分享两个好用的vba宏，用于批量处理word中的表格

有个word中有几百张表，我现在想第一步，把表格中 某几列删除掉，然后把表格宽度 根据窗口自适应。

脚本一：把表格中 某几列删除掉，这里删除“主键” 和 “价格” 两列。
~~~
Sub DeleteSpecificColumns()
    Dim tbl As Table
    Dim colIndex As Integer
    Dim colName As String
    Dim i As Integer
    
    ' 遍历文档中的每个表格
    For Each tbl In ActiveDocument.Tables
        ' 从最后一列开始向前遍历（避免删除列后索引错乱）
        For i = tbl.Columns.Count To 1 Step -1
            ' 获取当前列的第一个单元格内容
            colName = Trim(tbl.Cell(1, i).Range.Text)
            ' 去除单元格末尾的换行符
            colName = Replace(colName, Chr(13) & Chr(7), "")
            
            ' 如果列标题是 "业务步骤编号" 或 "用例编号"，则删除该列
            If colName = "主键" Or colName = "价格" Then
                tbl.Columns(i).Delete
            End If
        Next i
    Next tbl
End Sub

~~~

脚本二：把表格宽度 根据窗口自适应
~~~
Sub AutoFitAllTables()
    Dim tbl As Table
    ' 遍历文档中的每个表格
    For Each tbl In ActiveDocument.Tables
        ' 根据窗口调整表格大小
        tbl.AutoFitBehavior wdAutoFitWindow
    Next tbl
End Sub
~~~

操作步骤：

步骤 1：打开 VBA 编辑器
按下 Alt + F11 打开 VBA 编辑器。
在左侧的项目窗口中，找到你的文档名称（例如 Document1），右键单击它。
选择“插入” -> “模块”，创建一个新的模块。
在模块中输入上面的代码，然后保存。

步骤 2： 关闭 VBA 编辑器，返回到 Word 文档。
按下 Alt + F8，在弹出的宏列表中选择 DeleteSpecificColumns。然后点击 运行即可。