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 for Applications 窗口中,單擊 插入 > 模塊,然後將以下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保護