Win10_word如何批量修改表格样式（WPSOffice2019PC版）?

今天写数据库文档&＃xff0c;顺便把导出的那些很丑的表格美化一下&＃xff0c;按照统一的模板整理成文档。就想着是不是可以有一种方法可以批量修改表格样式&＃xff0c;然后搜了搜并实践了一下&＃xff0c;确实很便捷&＃xff0c;记录并分享下。
&＃xff08;不过&＃xff0c;我文档中并没有用到&＃xff0c;这些能一次性修改所有表格的通用属性字号、颜色、间距啥的&＃xff0c;但我是需要修改列数据且要对其中一列进行拆分&＃xff0c;而且还要对每个表进行描述&＃xff0c;所以就手动复制粘贴了。下次如果文档要调整风格&＃xff0c;我应该就能用上了。&＃xff09;

伴随一系列问号&＃xff0c;开始发现并逐步解决问题&＃xff1a;

word如何批量修改表格样式&＃xff1f;
wps宏不能使用怎么办&＃xff1f;
一次性选中word中全部表格的宏怎么写&＃xff1f;

一、word如何批量修改表格样式&＃xff1f;

使用宏。

wps中&＃xff0c;开发工具—>宏&＃xff0c;但是不可点&＃xff1a;

二、wps宏不能使用怎么办&＃xff1f;

安装宏插件vba&＃xff0c;下载地址&＃xff1a;https://download.csdn.net/download/pang787559613/12397585

下载安装&＃xff1a;

重启wps&＃xff0c;宏可用&＃xff1a;

三、一次性选中word中全部表格的宏怎么写&＃xff1f;

继续看下去。

VB编辑器&＃xff1a;

将如下代码粘贴进去&＃xff1a;

Sub 批量修改表格()&＃39;
&＃39; 批量修改表格 Macro
&＃39; 宏由 zsz 录制&＃xff0c;时间: 2020/05/07
&＃39;
&＃39;Dim tempTable As TableApplication.ScreenUpdating &＃61; False&＃39;判断文档是否被保护If ActiveDocument.ProtectionType &＃61; wdAllowOnlyFormFields ThenMsgBox "文档已保护&＃xff0c;此时不能选中多个表格&＃xff01;"Exit SubEnd If&＃39;删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryone&＃39;添加可编辑区域For Each tempTable In ActiveDocument.TablestempTable.Range.Editors.Add wdEditorEveryoneNext&＃39;选中所有可编辑区域ActiveDocument.SelectAllEditableRanges wdEditorEveryone&＃39;删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryoneApplication.ScreenUpdating &＃61; TrueEnd Sub


如下图&＃xff1a;

此处可自行选择在当前项目下或者通用项目下创建宏&＃xff08;选中相应项目&＃xff0c;插入—>模块即可&＃xff09;&＃xff1a;

关闭VB编辑器&＃xff0c;并在要使用宏的文档中开发工具—>宏—>批量修改表格&＃xff08;选择自己创建的宏&＃xff09;—>运行&＃xff1a;

则文档中全部表格被选中&＃xff0c;可对表格进行批量修改样式等操作&＃xff1a;