一、word里包含多个表格如何同时修改
使用“宏”完成选择所有表格-修改，方法如下：
复制以下脚本：
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将选择该文档中全部的表格。
二、怎么快速调整word里的所有表格
打开word文档，切换到“视图”标签-点击“宏”下拉箭头-点击“查看宏”
或者直接快捷键Alt+F8
请点击输入图片描述
在弹出的宏创建对话框，输入宏名字（可以是中文），然后点击右侧“创建”按钮
请点击输入图片描述
用所给的代码替换掉默认的内容：
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
请点击输入图片描述
粘贴完代码后，直接点击工具栏的运行按钮▶，此时文档中所有表格已经选中，关闭VBA编辑器。（再次运行宏的话，直接Alt+F8打开对话框，选中宏点击右侧“运行”）
请点击输入图片描述
回到文档，在“表格工具”-设计-设置框线粗细-边框下拉菜单里点击“所有边框”，如果点击一次“所有边框”是取消掉所有表格的框线，接着再点一次“所有框线”即可
请点击输入图片描述
最后再检查从前往后检查一下，这个设置好像会把表格单元格内斜线取消掉，需要重新加一下
请点击输入图片描述
