适用于在有很多表格的时候，想一次性修改所有表格的样式。

比如说，我这里有3张表格：

怎么做呢

1.先把开发工具菜单调出来，开发工具菜单默认情况下不在WORD中菜单栏显示，需要自己调。

文件 > 选项 > 自定义功能区 > 勾选开发工具

就有了

2.利用 宏 选择所有表格

点击 开发工具 > Visual Basic  选择  "插入" > “模块”

将下列代码复制进去（该宏的主要作用是，可以让你一次选中文档中所有的表格）

Sub 批量修改表格()

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

3.关掉窗口，选择开发工具中的 宏 ，运行刚才插入的 宏 ，即可选择所有表格

选中了所有表格

4.修改样式，所有表格都会改

例如：修改磅值、字体等：

修改居中、行距等：

修改样式等：

这样的话，基本能满足批量修改表格的需求了，只有一些只修改表格部分属性而不是整体属性的需求做不到（例如只修改标题行）。在工作量较大的情况下使用这种方法能节省非常多的时间，还更加准确，不会遗漏。

本篇文章由 泉州SEO www.234yp.com 整理发布，office办公软件学习 www.234yp.com/Article/155228.html 谢谢合作！
office办公软件学习

　　前不久有用户反馈说，自己在使用wps表格制作他人联系方式表格时，想把手机号隐藏起来，但整个表格起码有几千个数据，如果手动一个个去修改，实在费时间，有没有什么快捷方法呢？只要掌握了wps表格里批量修改表格内容的方法，这些都不算难题！下面要分享的就是wps表格批量修改内容的方法。

　　方法步骤

　　1、首先打开Excel文件，以下列表格内容为例：

　　2、点击C2单元格，在菜单栏中依次点击【公式】-【常用函数】，在【查找函数】的搜索框中输入“REPLACE”点击【确定】选项：

　　3、接下来设置函数参数，在弹出来的对话框中原字符串中点击B2单元格元文本手机号码，在【开始位置】输入4（我们要修改的位置从第4个数字开始修改），【字符个数】输入4，在【新字符串】中输入：“****”，需要注意的是这里要加入双引号作引用，然后点击【确定】：

　　4、这时候第一个单元格的隐藏手机号已经完成，我们只需要将鼠标移至C2单元格右侧下拉就可以了：

　　5、如下图所示，最终呈现在我们面前的便是批量修改后的内容了：

关于更多office办公软件学习内容，可以收藏本网页。

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

伴随一系列问号，开始发现并逐步解决问题：

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

一、word如何批量修改表格样式？

使用宏。

wps中，开发工具—>宏，但是不可点：

二、wps宏不能使用怎么办？

安装宏插件vba，下载地址：https://download.csdn.net/download/pang787559613/12397585

下载安装：

重启wps，宏可用：

三、一次性选中word中全部表格的宏怎么写？

继续看下去。

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 = True

End Sub

如下图：

此处可自行选择在当前项目下或者通用项目下创建宏（选中相应项目，插入—>模块即可）：

关闭VB编辑器，并在要使用宏的文档中开发工具—>宏—>批量修改表格（选择自己创建的宏）—>运行：

则文档中全部表格被选中，可对表格进行批量修改样式等操作：