VBA代码实现Word文档表格自动统计与编号

VBA代码实现Word文档表格自动统计与编号

在处理包含大量表格的Word文档时，手动统计表格数量并进行编号非常耗时。为了提高效率，本文提供了一段VBA代码，可以自动完成这两项任务。

代码功能：

1. 统计当前Word文档中表格的数量。
2. 为每个表格的第一行第一列添加自动编号，格式为'Table 1'，'Table 2'等。

VBA代码：

Sub CountTables()
    Dim tblCount As Integer
    Dim tbl As Table
    Dim i As Integer
    
    tblCount = ActiveDocument.Tables.Count
    
    If tblCount = 0 Then
        MsgBox 'There are no tables in this document.'
    Else
        MsgBox 'There are ' & tblCount & ' tables in this document.'
        For i = 1 To tblCount
            Set tbl = ActiveDocument.Tables(i)
            tbl.Cell(1, 1).Range.Text = 'Table ' & i
        Next i
    End If
End Sub

使用方法：

1. 打开需要统计表格并编号的Word文档。
2. 按下 Alt + F11 打开VBA编辑器。
3. 在左侧的'工程'窗口中，双击打开'ThisDocument'模块（如果没有，则需要先插入一个模块）。
4. 将上述VBA代码复制粘贴到模块中。
5. 关闭VBA编辑器，回到Word文档界面。
6. 按下 Alt + F8 打开'宏'对话框。
7. 选择'CountTables'宏，点击'运行'按钮。

运行宏后，代码会自动统计文档中的表格数量并弹出提示框，同时为每个表格的第一行第一列添加自动编号。

注意事项：

• 该代码会修改文档内容，建议在运行前先保存备份。
• 如果表格已经存在内容，自动编号会覆盖原有内容。

希望这段代码能够帮助您提高工作效率！