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

此代码用于计算当前选定区域中的表格数和表格中除表头外的行数之和，以及将表格中第4列的单元格中填入'一致'字符串。

首先，定义了一个整型变量 i 和一个整型变量 sum（初始值为 0），用于循环遍历当前选定区域中的所有表格和统计表格中除表头外的行数之和。

然后，使用 Debug.Print 语句输出选定区域中的表格数。

接着，使用 For 循环遍历所有表格，计算表格中除表头外的行数之和，并将该值累加到 sum 变量中。

同时，使用 Set 语句将当前遍历到的表格赋值给 thisTable 变量，以便后续操作。

再使用另一个整型变量 j，使用 For 循环遍历表格中的所有行（除表头外），将第 4 列单元格中填入'一致'字符串。

最后，使用 Debug.Print 语句输出计算出的用例数。