word选中所有表格

ctrl+F----->表格,即可一次性选择word中的所有表格。-----<注:这是一个错误的答案,抱歉。下面有正确的答案,往下看。>

针对此回答,引来不少人的质疑和嘲笑,非常抱歉和遗憾;因为当时自己有个类似的需求,得知有该方法,遇到该问题时,当时觉得和自己当时遇到的问题一样就回答了。确实我说的这个方法只能是一次性突出显示word里的包含表格的标题,且该表格所属的标题必须做了级别设定,而且只是在导航窗格里黄色突出显示而已,好处是能看出来有级别设定的表格有多少,不是选中。如下图。

另回答一下本问题:“如何一次性选中word里的所有表格“

1 将下面的脚本复制(在最后哦,也是网上找的)

2 word---视图---宏----查看宏----输入宏名:SelectAllTables----点击创建(参图1)

3 将脚本编辑窗口中的默认代码删掉,粘贴1步复制的脚本,保存并关闭(参图2)

4 word---视图---宏----查看宏----运行刚创建的宏(参图1)

在word中查看,所有表格已为选中状态。

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
  • 1
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 4
    评论
评论 4
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值