选中Word中全部表格和修改表格列宽

最新推荐文章于 2025-10-13 15:20:39 发布

原创最新推荐文章于 2025-10-13 15:20:39 发布 · 8.3k 阅读

9 ·

CC 4.0 BY-SA版权

文章标签：

#Word #宏命令

提高效率专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种使用Word宏命令批量选中并修改文档中所有表格列宽的方法，通过简单的VBA代码实现对大量表格的第一列列宽统一调整至2.4厘米，有效提升文档编辑效率。

1.背景：当word中有很多表格需要修改时，逐个修改既费时又可能有遗漏。如果能同时选中所有表格，对所有表格同步进行修改，就能大大提高效率。

2.方法：通过Word中的宏命令，选中全部表格，并修改表格列宽。

3.选中全部表格的宏命令。

在WPS中，依次选择视图>>宏>>编辑，添加代码如下：

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

宏名为SelectAllTables，保存为docm格式，后续调用时，先打开这个文件，依次选择视图>>宏>>选中要运行的宏>>运行。

4.修改第一列列宽的代码：

Sub SelectAllTables1column()

Dim tempTable As Table

For Each tempTable In ActiveDocument.Tables
    '设置第一列列宽为2.4cm
    tempTable.Columns(1).Width = 68
Next


End Sub