word里包含多个表格如何同时修改
2015-09-21 · 知道合伙人软件行家
使用“宏”完成选择所有表格-修改,方法如下:
复制以下脚本:
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打开word-视图-宏(查看宏)
3. 在“宏”对话框中,输入宏名“SelectAllTables”(自定义)点击【创建】按钮
4. 删除默认脚本,粘贴复制的脚本,保存并关闭“宏”对话框
5. 视图-宏-查看宏-运行
6. 稍等,word将选择该文档中全部的表格。
2、选择单个的表(这个表都选择),在表格工具(点右键也行),里面有“自动套用表格”,选一个你中意的表格套用,其余的表格也选用相同的套用表格。
3、另外,采用右键单击中的“自动调整”