1、点开你需要表格调整的word文档，切换到视图，点击宏。
2、在弹出的对话框中输入宏的名字可以是英文，然后点击创建按钮。
3用下面代码替换掉原有默认内容
Sub表格()
DimtempTableAsTable
Application.ScreenUpdating=False
'判断文档是否被保护
IfActiveDocument.ProtectionType=wdAllowOnlyFormFieldsThen
MsgBox"文档已保护，此时不能选中多个表格！"
ExitSub
EndIf
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRangeswdEditorEveryone
'添加可编辑区域
ForEachtempTableInActiveDocument.Tables
tempTable.Range.Editors.AddwdEditorEveryone
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRangeswdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRangeswdEditorEveryone
Application.ScreenUpdating=True
EndSub
4、替换之后点击运行按钮，之后关闭宏编辑。
5、关闭后此时文档中所有表格都已选中。
