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 = TrueEnd Sub
粘贴完代码后,直接点击工具栏的运行按钮▶,此时文档中所有表格已经选中,关闭VBA编辑器。(再次运行宏的话,直接Alt+F8打开对话框,选中宏点击右侧“运行”)
回到文档,在“表格工具”-设计-设置框线粗细-边框下拉菜单里点击“所有边框”,如果点击一次“所有边框”是取消掉所有表格的框线,接着再点一次“所有框线”即可
最后再检查从前往后检查一下,这个设置好像会把表格单元格内斜线取消掉,需要重新加一下
当然最好是在编制前给参与编制的人员提出统一要求,可以减少后期的相关调整
选中所有表格后也可以统一应用表格样式