word--批量修改所有表格

我们在使用Word排版编写书籍时候，需要修改所有表格：
批量修改所有表格

1、利用宏选择所有表格。首先，我们进入「开发工具」-「Visual Basic」将下列代码复制进去（该宏的主要作用是，可以让你一次选中文档中所有的表格）。然后，在「宏」中点击「运行」。

复制下列代码：

Sub 批量修改表格()
 
    Dim tempTable As Table
    Application.ScreenUpdating = False
    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
        MsgBox "文档已保护，此时不能选中多个表格！"
        Exit Sub
    End If
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    For Each tempTable In ActiveDocument.Tables
        tempTable.Range.Editors.Add wdEditorEveryone
    Next
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    Application.ScreenUpdating = True
    
End Sub