我们在使用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