VBA Word 文档表格行数统计 - Sub sum() 函数示例

Sub sum()

Dim i As Integer Dim sum As Integer sum = 0

Dim thisTable As Table Dim j As Integer

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

For i = 1 To Word.Selection.Tables.Count Set thisTable = Word.Selection.Tables.Item(i) sum = sum + thisTable.Rows.Count - 1

For j = 2 To thisTable.Rows.Count 'thisTable.Cell(j, 4).Range.Text = "一致" Next Next

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

End Sub