Word VBA: 计算表格行数并遍历表格单元格

Dim i As Integer

Dim sum As Integer sum = 0

Debug.Print ('表格数：' & Word.Selection.Tables.Count)

For i = 1 To Word.Selection.Tables.Count

sum = sum + Word.Selection.Tables.Item(i).Rows.Count - 1

Dim thisTable As Table

Set thisTable = Word.Selection.Tables.Item(i)

Dim j As Integer For j = 2 To thisTable.Rows.Count

  'thisTable.Cell(j, 4).Range.Text = '一致'

Next

Next Debug.Print ('用例数：' & sum)

End Sub