+ -
当前位置:首页 → 问答吧 → ■如何一下选中文章中所有的表格■

■如何一下选中文章中所有的表格■

时间:2010-01-14

来源:互联网

请问有什么简便方法或代码可以一次选择上WORD文章中的所有表格?谢谢大家了!

作者: zhuquanmao   发布时间: 2010-01-14

可以使用如下VBA代码:
引用:
Sub SelectAllTable()

Dim tempTable As Table
Application.ScreenUpdating = False
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

作者: frainer   发布时间: 2010-01-14

很强大,这下工作可省事了不少,非常感谢!!!

作者: zhuquanmao   发布时间: 2010-01-14

很强大

作者: hangye   发布时间: 2010-02-10

嗯。非常不错。谢谢分享。

作者: monvzhilei   发布时间: 2010-02-10

好东西,收藏,谢谢楼主

作者: 佛山小老鼠   发布时间: 2010-02-10

强大好东西啊,找了半个世纪了。哈哈。

作者: cowb   发布时间: 2010-08-11

引用:
原帖由 frainer 于 2010-1-14 13:35 发表
可以使用如下VBA代码:
学习一下,哈哈

作者: renqiang851224   发布时间: 2010-08-11

真是这样就太经典了,谢谢!!

作者: pezgh   发布时间: 2010-09-03

强大的功能 多谢分享

作者: dh3355by   发布时间: 2011-02-25

热门下载

更多