メインコンテンツへスキップ

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's テーブルの選択 ユーティリティは非常に便利です。 この機能を使用して、選択範囲内のテーブルまたはドキュメント全体を選択できます。 次のようにしてください。

Kutools for Word ：100以上の便利なWordアドインで、 制限なしで無料で試すことができます 60 日.

クツール > テーブル類 > テーブルの選択。 スクリーンショットを参照してください：

Note：選択するテーブルを選択するには、最初に範囲を選択してから、機能を適用する必要があります。

次に、次のように結果を確認できます。

選択するテーブルを選択します。

ドキュメント全体でテーブルを選択します。

このユーティリティの無料トライアルをご希望の場合は、 ソフトウェアを無料でダウンロード まず、上記の手順に従って操作を適用します。

デモ：Kutools for Wordを使用して、Wordのすべてのテーブルを簡単に選択できます

最高のオフィス生産性向上ツール

Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能！

🤖 Kutools AI アシスタント: AI であなたの文章を変革します - コンテンツを生成する  /  テキストを書き換える  /  文書を要約する  /  情報のお問い合わせ 文書に基づいて、すべて Word 内で

📘 ドキュメントマスタリー: 分割ページ  /  ドキュメントをマージする  /  選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...)  /  PDFへの一括変換  /  ページを画像としてエクスポート  /  複数のファイルを一度に印刷する...

✏ コンテンツ編集: バッチ検索と置換 複数のファイルにわたる  /  すべての画像のサイズを変更する  /  テーブルの行と列を転置する  /  表をテキストに変換...

🧹 楽にお掃除：振り払って 余分なスペース  /  セクションブレーク  /  すべてのヘッダー  /  テキストボックス  /  ハイパーリンク  / その​​他の取り外しツールについては、当社の Web サイトをご覧ください。 グループを削除...

➕ クリエイティブインサート：挿入 千の区切り文字  /  チェックボックス  /  ラジオボタン  /  QRコード  /  バーコード  /  斜線テーブル  /  方程式のキャプション  /  画像キャプション  /  テーブルキャプション  /  複数の写真  / 詳細については、 グループを挿入...

🔍 正確な選択： ピンポイント 特定のページ  /  テーブル  /  シェイプ  /  見出し段落  / ナビゲーションを強化する 他には？ 機能の選択...

⭐ スターの強化: あらゆる場所に素早く移動  /  繰り返しのテキストを自動挿入  /  ドキュメントウィンドウをシームレスに切り替える  /  11 変換ツール...

👉 これらの機能を試してみませんか? Kutools for Wordは、 60日無料トライアル、制限なし！ 🚀
 
Comments (10)
No ratings yet. Be the first to rate!
Bloodmist
Bloodmist
This comment was minimized by the moderator on the site
Very nice method. Thank you
Reply
0
0
Alex
Alex
This comment was minimized by the moderator on the site
It seeems that this macros does not work in Word 2016
Reply
0
0
Suril
Suril     Alex
This comment was minimized by the moderator on the site
It works in Word 2016. What error are you getting?
Reply
0
0
Alex
Alex     Suril
This comment was minimized by the moderator on the site
I understand already. For correct work macros cursor must to be not in table when you call macros. Thank you.
Reply
0
0
Iqbal
Iqbal
This comment was minimized by the moderator on the site
There are multiple tables in a document (about 200). I want to select all these tables only and paste them in a new document in the table format. When I select the tables as per above procedure then during paste operation it pastes them as text and not as table. Can you please help me?
Reply
0
0
Suril
Suril
This comment was minimized by the moderator on the site
The following modified code selects all tables, except tables having only one row: Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As 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 The following code select only the header rows: Sub selallHeaders() On Error Resume Next ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table For Each Tbl In ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub I have many more such codes that select last rows, all bullets, small / long paras, etc. Watch my following video: https://www.youtube.com/watch?v=p_ZhufliFw8
Reply
0
0
Vinoth Murali
Vinoth Murali
This comment was minimized by the moderator on the site
Wonderful I got the solution by using the VBA code. Thank you so much
Reply
0
0
JPF
JPF
This comment was minimized by the moderator on the site
Nifty code at first but it definitely corrupted a bunch of tables in Word 2010. Screwed up my file pretty good and had to revert back to an earlier version. Be wary!
Reply
0
0
rodrigo
rodrigo
This comment was minimized by the moderator on the site
excellent macro and very easy
Reply
0
0
refaat
refaat
This comment was minimized by the moderator on the site
thank you so much he is good program but after few days stopped and require password and user name
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations