1.背景:当word中有很多表格需要修改时,逐个修改既费时又可能有遗漏。如果能同时选中所有表格,对所有表格同步进行修改,就能大大提高效率。
2.方法:通过Word中的宏命令,选中全部表格,并修改表格列宽。
3.选中全部表格的宏命令。
在WPS中,依次选择视图>>宏>>编辑,添加代码如下:
Sub SelectAllTables()
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
宏名为SelectAllTables,保存为docm格式,后续调用时,先打开这个文件,依次选择视图>>宏>>选中要运行的宏>>运行。
4.修改第一列列宽的代码:
Sub SelectAllTables1column()
Dim tempTable As Table
For Each tempTable In ActiveDocument.Tables
'设置第一列列宽为2.4cm
tempTable.Columns(1).Width = 68
Next
End Sub