今天写数据库文档,顺便把导出的那些很丑的表格美化一下,按照统一的模板整理成文档。就想着是不是可以有一种方法可以批量修改表格样式,然后搜了搜并实践了一下,确实很便捷,记录并分享下。
(不过,我文档中并没有用到,这些能一次性修改所有表格的通用属性字号、颜色、间距啥的,但我是需要修改列数据且要对其中一列进行拆分,而且还要对每个表进行描述,所以就手动复制粘贴了。下次如果文档要调整风格,我应该就能用上了。)
伴随一系列问号,开始发现并逐步解决问题:
word如何批量修改表格样式?
wps宏不能使用怎么办?
一次性选中word中全部表格的宏怎么写?
使用宏。
wps中,开发工具—>宏,但是不可点:
安装宏插件vba,下载地址:https://download.csdn.net/download/pang787559613/12397585
下载安装:
重启wps,宏可用:
继续看下去。
开发工具—>宏—>给宏命名—>创建:
VB编辑器:
将如下代码粘贴进去:
Sub 批量修改表格()'' 批量修改表格 Macro' 宏由 zsz 录制,时间:2020/05/07'' 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
如下图:
此处可自行选择在当前项目下或者通用项目下创建宏(选中相应项目,插入—>模块即可):
关闭VB编辑器,并在要使用宏的文档中开发工具—>宏—>批量修改表格(选择自己创建的宏)—>运行:
则文档中全部表格被选中,可对表格进行批量修改样式等操作: