Word VBA宏：计算选定表格的行数总和

Sub sum()

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

该宏代码首先声明了两个变量 i 和 sum，i 用于循环计数，sum 用于存储行数总和，并将 sum 初始化为 0。

然后使用 Word.Selection.Tables.Count 获取选定文档中的表格数，并使用 For 循环遍历每个表格。循环体中，使用 Word.Selection.Tables.Item(i) 获取第 i 个表格，并使用 Rows.Count 获取该表格的行数。由于表头行不计入行数总和，因此将行数减 1，并将结果加到 sum 中。

接下来，使用 Set 语句将 thisTable 对象设置为当前循环的表格，并使用另一个 For 循环遍历表格中除表头外的每一行。此循环暂时被注释掉，因为它没有实际作用，只是演示如何访问表格中的单元格。

最后，将表格数和行数总和打印到调试窗口中。