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

Wordで複数のテーブルをテキストに変換する方法は?

ドキュメントに多数のテーブルがあり、それらをテキストに変換したい場合、どうすればそれをすばやく実行できますか? このチュートリアルでは、Wordで複数のテーブルをテキストにすばやく変換するためのトリッキーな方法をいくつか紹介します。

表をXNUMXつずつテキストに変換する

VBAを使用してすべてのテーブルをテキストに変換する

Kutoolsを使用して複数のテーブルをテキストに簡単に変換する

Wordに推奨される生産性ツール

Kutools for Word: AIの統合 🤖、100 を超える高度な機能により、ドキュメントの処理時間が 50% 節約されます。無料ダウンロード

Office Tab: Word (およびその他の Office ツール) にブラウザーのようなタブが導入され、複数ドキュメントのナビゲーションが簡素化されます。無料ダウンロード


矢印青い右バブル 表をXNUMXつずつテキストに変換する

Office Wordには、表を通常のテキストに変換する機能がありますが、一度に適用できるのはXNUMXつの表のみです。

Office タブ: Word、Excel、PowerPoint にタブ付きインターフェイスをもたらします...
ot word ミドル広告 100
今すぐワークフローを強化しましょう。      続きを読む       無料ダウンロード

ステップ1:変換するテーブルを選択するかカーソルを置きます。

ステップ2:に移動します レイアウト 下のタブ テーブルツール、クリック テキストに変換する in 且つ グループ;

doc-tables-to-text-1

ステップ3:テーブルセルを区切るマークスタイルを選択します。

doc-tables-to-text-2

ステップ4:クリック OK Wordはテーブルをテキストに変換します。

ステップ5:すべてのテーブルが変換されるまで、ステップ1からステップ4を繰り返します。


矢印青い右バブル VBAを使用してすべてのテーブルをテキストに変換する

VBAは、ドキュメントのすべてのテーブルをテキストに変換できます。

ステップ1:Alt-F11」をクリックして、Microsoft Visual Basic forApplicationウィンドウを開きます。

ステップ2:クリック モジュール インセット タブをクリックし、次のVBAコードをコピーしてモジュールウィンドウに貼り付けます。

ステップ3:クリック ラン ボタンを押してVBAを適用します。

すべてのテーブルをテキストに変換するためのVBAコード:

サブTablesToText()
テーブルとして薄暗い
ActiveDocument.Tablesの各大さじについて
tbl.ConvertToText
セパレータ:= wdSeparateByTabs
次のtbl
tbl =なしに設定
End Subの


矢印青い右バブル Kutoolsを使用して複数のテーブルをテキストに簡単に変換する

複数のテーブルをXNUMXつずつテキストに変換するには時間がかかり、VBAコードは常にドキュメント内のすべてのテーブルを分離するXNUMXつの方法を提供します。 Kutoolsは、すべてのテーブルを選択範囲またはドキュメント全体から通常のテキストに簡単に変換できます。 また、Wordと同じ関数インターフェイスを使用して、テーブルセルを分離するさまざまな方法をユーザーに提供します。

Kutools for Word、便利なアドインには、作業を容易にし、Word文書を処理する能力を強化するためのツールのグループが含まれています。 45日間の無料トライアル! 今すぐ入手!

クツール >>クリック 表からテキストへ inグループヘッド

doc-tables-to-text-3

選択範囲の複数のテーブルまたはドキュメント全体を変換するには、最初にドキュメントの一部またはドキュメント全体を選択してから、Kutools >> Table to Text in Tableをクリックしてユーティリティを適用し、変換後に通常のテキストの区切り文字を選択してください。 [テーブルをテキストに変換]ダイアログボックス。

詳細については、以下のサイトをご覧ください。 複数のテーブルをテキストに変換する.


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

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

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

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

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

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

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

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

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

👉 これらの機能を試してみませんか? Kutools for Wordは、 60日無料トライアル、制限なし! 🚀
 
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
After running the VBA code, MS Word has changed. I no longer have access to VBA tools, and the font is larger. I don't know what else has changed yet. What do I do now?
This comment was minimized by the moderator on the site
Thank you for this! it is appreciated!
This comment was minimized by the moderator on the site
The correct code as follows: Sub TablesToText() Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.ConvertToText Separator = wdSeparateByTabs Next tbl Set tbl = Nothing End Sub
This comment was minimized by the moderator on the site
thank you, now it works
This comment was minimized by the moderator on the site
please kindly let me know "what is the code for change only selected tables to text in word?"
This comment was minimized by the moderator on the site
Thank you. It worked.
This comment was minimized by the moderator on the site
Thank you. It works!!
This comment was minimized by the moderator on the site
Here's a code that works: Sub AllTablestoText() ' ' AllTablestoText Macro ' Macro created by Jarosław Michalak ' For Each aTable In ActiveDocument.Tables aTable.ConvertToText wdSeparateByCommas, True Next aTable End Sub Source: http://howto.wikispaces.umb.edu/Convert+all+tables+to+text
This comment was minimized by the moderator on the site
The VBA code isn't working.. when I press F5 for execution, it says "Compile error; syntax error;"
This comment was minimized by the moderator on the site
I think lines 4 and 5 of the VBA code above should be combined: tbl.ConvertToText Separator:=wdSeparateByTabs
This comment was minimized by the moderator on the site
Thank you SImon! It works.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations