Word神技，1秒统一全部表格样式

有一位妹纸曾向 King 老师提过一个问题：

一份100多页的Word文档中，有很多的表格，表格样式各不相同。有什么办法可以快速统一？

她的文档是一份标书，不便公开，下图可以大概看出当时她那文档的样子。

（五颜六色，简直不忍心看）

除了手工一个一个改，还有没有更加便捷高效的方法，可以一次性统一美化呢？

当然有，只要请出“扫地僧”——录制宏，就能轻松解决。

宏是 Office软件中的「扫地僧」，功夫却深不可测，简直就是神一般的存在。

当你面对大量重复操作，找不到解决方法时，请它出山，必有奇效。

录制宏，是一部动作录像机。能够将你在word中的部分操作录制下来，自动生成一个代码程序，下一次要做同样的操作时，执行该程序就能自动完成。

不知道你有没有注意到，幻方秋叶PPT公众号的文章，序号通常都是「? ? ?」的类型，而不是普通的「1. 2. 3.」，难道小编是一个个替换的？

当然不！

通过录制宏，一次操作，即可永远使用，一劳永逸！

下面就用这个案例教你，如何录制宏~

单击【视图】选项卡中的【宏】-【录制宏】，出现【录制宏】对话框。

由于【录制宏】用的太多，甚至于在 Office2016 的底部状态栏里，也有了快捷按钮，直接点击即可开始录制了~

在【宏名】框中，输入宏的名称，写清楚功能，便于以后调用。

在【将宏保存在】框中，选择宏的保存位置。

默认是「所有文档(Normal.dotm)」，这样以后所有文档都可以使用这个宏。

如果只想在当前文档使用，就选择当前文档（比如我选择的就是当前文档「周二Word...」）。

单击【确定】按钮，开始录制宏。

成功开始录制以后，鼠标旁边会多一个录音带图标。此时所做的操作会被记录下来。

录制完毕后，点击状态栏的【停止录制】（就是那个■），停止录制宏。

点击【视图】-【宏】，选择自己录好的那个宏，即可使用。

同样的道理，我还可以把引号的替换、空白区域的删除，统统做到一个宏里面，点几下就搞定格式，妥妥的~

通过「录制宏」，很多批量处理，都可以被我们轻松搞定，甚至，不用写一行代码！

不过，开头提到的表格样式一键统一，仅有「录制宏」还不够。

该怎么处理？继续往下看~

回到开头的那个问题，如何快速统一文章中所有表格的样式？

直接上操作！

按下录制按钮，开始录制

修改一个表格样式，并结束录制

成功开始录制以后，鼠标旁边会多一个录音带图标。此时所做的操作会被记录下来。只需要修改其中一个表格就行。

修改完成以后，再次点击录制按钮，则停止录制。

修改代码，让动作循环重复

同时按下Alt+F8，进入VBA代码界面，编辑刚才录制好的宏。

接下来要做一个非常关键的操作，就是将录制好的一次操作，应用到当前文档中的所有表格上。

因此，代码要做点小修改：

a. 计算当前文档中表格的总数

b.从第一个表格开始应用修改，直到最后一个为止。

修改过程看着很晕？没关系，看修改以后的代码，只是添加了红字部分，修改了蓝色字而已：

Sub 统一表格样式()

'统一表格样式宏

For i = 1 ToActiveDocument.Tables.Count

'计算当前文档中的表格总数,

ActiveDocument.Tables(i).Style = '网格表 4'

'修改当前文档中第i个表格的样式

' “网格表4”是录制时选择的样式名称。

Next i

'修改完成后，继续修改下一个，直到i等于表格总数时停止

End Sub

至于这里面「'」单引号开头的绿色文字，其实是 King 写上去的注释，帮助大家理解代码，删掉也会不影响代码运行的~

* 可以直接复制粘贴以上代码到你的编辑器中，

执行代码，一次完成

运行宏，就能将文档中所有的表格统一样式了。

通过「录制宏」就可以帮我们解决很多批量处理的问题，更可以帮助不会写代码的人生成一份代码的主体。要知道，对于不懂VBA编程的人来说，要独立写一段完整代码出来，非常困难。

而有了「录制宏」生成的主体部分，只要在此基础上稍作修改，就能威力倍增！

统一所有图片尺寸、删除所有的图片、将所有图片居中对齐……

这些批量操作再也不用手动点了~

如果你需要反复做相同的操作，直接录制完整的操作，下一次要再次用时，直接运行宏就可以了。

比如每月分析报表输出报告、随机抽取数据（抽奖）……

当然，聪明的你一定已经想到了，搜一个宏啊！

没错，单调繁琐的操作，就交给宏，让它自己去完成吧。

省下更多时间，悠闲地喝咖啡，多好~

小教程太零散？

点击【阅读原文】，马上开始系统学习 Word！

从各个功能和日常场景出发，助你提升工作效率。已经有近万名学员学过这门课了哟~

作者丨King

编辑丨阿机