访问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'来访问循环中的行数。您应该通过使用标记下方的“编辑”选项来改进您的问题。