word选中所有表格的问题

最新推荐文章于 2024-08-19 23:17:12 发布

吃肉又吃蒜

最新推荐文章于 2024-08-19 23:17:12 发布

阅读量777

点赞数

文章标签： word

本文链接：https://blog.csdn.net/qq_38156743/article/details/131324283

版权

该文章介绍了一个VBA宏代码，用于在Word文档中快速选择所有的表格。当文档包含多个表格时，用户只需按AIT+F8并运行宏，等待约30秒，即可实现全部表格的选中。宏首先检查文档是否被保护，如果保护则提示用户，然后删除并重新添加可编辑区域，最终选中所有表格并再次删除这些区域。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1 首先在word文档中按下AIT+F8。名字无所谓，SelectAllTables

![在这里插入图片描述](https://img-blog.csdnimg.cn/484670cf04d9431ba814ba5e073e8877.png

把下面的代码输入进去，运行，注意运行后等一会，就行了，大约30S，滑动滚轮就看就行

在这里插入图片描述



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