快捷选中整篇文档中所有表格、调整表格的格式

1、点开你需要表格调整的word文档，切换到视图，点击宏

3、用下面代码替换掉原有默认内容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 = TrueEnd Sub

5、关闭后此时文档中所有表格都已选中