Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/solr/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
访问Word表中行中第三个单元格的VBA代码_Vba_Ms Word - Fatal编程技术网

访问Word表中行中第三个单元格的VBA代码

访问Word表中行中第三个单元格的VBA代码,vba,ms-word,Vba,Ms Word,我是新手,我正在尝试合并一些单元格,并根据行的第三个单元格是否为空应用一些格式。到目前为止,我已经: For Each tTable In ActiveDocument.Range.Tables For Each rRow In tTable.Rows If Len ('third cell in row' < 3) Then <do stuff> End If Next Next ActiveDocu

我是新手,我正在尝试合并一些单元格,并根据行的第三个单元格是否为空应用一些格式。到目前为止,我已经:

For Each tTable In ActiveDocument.Range.Tables
    For Each rRow In tTable.Rows
        If Len ('third cell in row' < 3) Then
            <do stuff> 
        End If
    Next
Next
ActiveDocument.Range.Tables中每个tTable的

对于表.行中的每个箭头
如果Len('第三行'<3)则
如果结束
下一个
下一个

但是我不知道如何访问/指定行中的第三个单元格?我看过很多例子,但似乎都不太正确

所以我想出了这个方法(r.Cells(3).Range.Text<3),但现在我被困在如何合并这个单元格和它旁边的三个单元格上。我发现了一些使用范围进行合并的示例:Dim mrgrng As range With Selection.Tables(1)For I=1到2 Set mrgrng=.Cell(I,1)。range mrgrng.End=.Cell(I,2)。range.End mrgrng.Cells.Merge Next我以结束,但当我尝试将其应用于我的案例时,我感到困惑。这是什么意思。在牢房前面意味着什么?我假设我使用'r.Index'来访问循环中的行数。您应该通过使用标记下面的“编辑”选项来改进您的问题。因此我想出了如何做到这一点(r.Cells(3)。Range.Text<3),但现在我一直在研究如何合并此单元格和它旁边的三个单元格。我发现了一些使用范围进行合并的示例:Dim mrgrng As range With Selection.Tables(1)For I=1到2 Set mrgrng=.Cell(I,1)。range mrgrng.End=.Cell(I,2)。range.End mrgrng.Cells.Merge Next我以结束,但当我尝试将其应用于我的案例时,我感到困惑。这是什么意思。在牢房前面意味着什么?我假设我使用'r.Index'来访问循环中的行数。您应该通过使用标记下方的“编辑”选项来改进您的问题。