word文档批量处理表格

最新推荐文章于 2025-08-14 10:47:49 发布

原创

最新推荐文章于 2025-08-14 10:47:49 发布 · 2.3k 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#vba

可以使用宏，编写脚本代码来进行批量修改。需要在“开始”-“选项”页将开发工具放入快捷工具栏，点击“开发工具”，选择“宏”，可以看到有很多预设的宏代码，这里不用自带的，点击创建，敲入代码能达到想要的功能。

全选word中所有的表格

Sub SelectAllTable()
 
    Dim tempTable As Table
    
    Application.ScreenUpdating = False
    
    '判断文档是否被保护
    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
        MsgBox "文档已保护，此时不能选中多个表格！"
        Exit Sub
    End If
    '删除所有