Note: The other languages of the website are Google-translated. Back to English

如何在Word文档中选择所有表?

单击Word中的一个表很容易 点选择表符号 表格左上角的按钮,如下图所示。 您也可以使用“选择表”功能选择一个表。 但是,有什么方法可以在Word文档中一次快速选择所有表吗? 本文中的方法将帮助您理解它。 


使用VBA代码选择Word中的所有表

使用Kutools for Word轻松选择Word中的所有表


使用VBA代码选择Word中的所有表

1。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 在开幕 Microsoft Visual Basic应用程序 窗口中,单击 插页 > 模块,然后将以下VBA代码复制并粘贴到“模块”窗口中;

VBA代码:选择当前文档中的所有表:

Sub selecttables()
Dim mytable As Table

For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
End Sub

3。 按 F5 运行代码的关键

然后,立即在当前文档中选择所有表。


使用Kutools for Word轻松选择Word中的所有表

与使用VBA代码选择文档中的所有表相比,Kutools for Word的 选择表 实用程序非常方便。 您可以使用此功能选择所选内容或整个文档中的表格。 请执行以下操作:

Kutools for Word :拥有100多个方便的Word加载项, 免费试用,没有限制 60.

单击 库工具 > > 选择表。 看截图:

备注:要在选择中选择表,需要先选择范围,然后再应用功能。

然后,您可以看到如下结果。

在选择中选择表:

在整个文档中选择表:

如果您想免费试用该实用程序,请转到 免费下载软件 首先,然后按照上述步骤进行操作。


演示:使用Kutools for Word轻松选择Word中的所有表



推荐的Word生产力工具

 

Kutools For Word-超过100种Word高级功能,节省50%的时间

  • 复杂和重复的操作可以在几秒钟内完成一次处理。
  • 跨文件夹一次将多个图像插入Word文档。
  • 将文件夹中的多个Word文件合并并合并为所需顺序。
  • 根据标题,分节符或其他条件将当前文档拆分为单独的文档。
  • 在Doc和Docx之间,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等...
按评论排序
注释 (10)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
非常感谢他是一个很好的程序但是几天后停止并且需要密码和用户名
该评论由网站上的主持人最小化
优秀的宏,非常容易
该评论由网站上的主持人最小化
一开始很漂亮的代码,但它肯定破坏了 Word 2010 中的一堆表格。把我的文件搞砸了,不得不恢复到早期版本。 警惕!
该评论由网站上的主持人最小化
太好了,我通过使用 VBA 代码得到了解决方案。 非常感谢
该评论由网站上的主持人最小化
以下修改后的代码选择所有表,除了只有一行的表: Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) 将 Tbl 作为 Table For Each Tbl In ActiveDocument.Tables If Tbl.Rows.Count > 1 Then Tbl.Range。 Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub 以下代码仅选择标题行: Sub selallHeaders() On Error Resume Next ActiveDocument.DeleteAllEditableRanges (-1)将 Tbl 作为表格为 ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub 我有更多这样的代码选择最后一行、所有项目符号、小/长段落等。观看我的以下视频: https://www.youtube.com/watch?v=p_ZhufliFw8
该评论由网站上的主持人最小化
一个文档中有多个表(大约 200 个)。 我只想选择所有这些表格并将它们粘贴到表格格式的新文档中。 当我按照上述过程选择表格时,在粘贴操作期间它将它们粘贴为文本而不是表格。 你能帮我么?
该评论由网站上的主持人最小化
看来此宏在 Word 2016 中不起作用
该评论由网站上的主持人最小化
它适用于 Word 2016。您遇到什么错误?
该评论由网站上的主持人最小化
我已经明白了。 为了正确的工作宏,当您调用宏时,光标必须不在表中。 谢谢你。
该评论由网站上的主持人最小化
很不错的方法。 谢谢
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护