怎样快捷一次调整word文档中全部表格格式

Question

如题所述

Answer 1

技术标有时候采用暗标，对于格式会有统一要求，有的连表格框线粗细都会要求，加上总体页数有限制，内容里用到的表格就会比较多，但是各个数据表格可能由不同人员提供造成格式不一致，那么最后汇总在一起时我们可以采用快捷方式一次把所有表格都调整为需要的格式……

打开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打开对话框，选中宏点击右侧“运行”）

回到文档，在“表格工具”-设计-设置框线粗细-边框下拉菜单里点击“所有边框”，如果点击一次“所有边框”是取消掉所有表格的框线，接着再点一次“所有框线”即可

最后再检查从前往后检查一下，这个设置好像会把表格单元格内斜线取消掉，需要重新加一下