テーブルはWordのユーザーにとって大きな恩恵です。ただし、別のワードプロセッサで作成されたドキュメントを操作する場合、テーブルが煩わしい場合があります。たとえば、ある_WordTips_の読者は、別のワードプロセッサで作成された2列のテキストがWordでテーブルに変換されたと不満を漏らしました。彼は、各テーブルを手動で処理する必要なしに、すべてのテーブルをテキストに自動的に変換する方法を求めました。

次のマクロAllTablesToTextがそのトリックを実行します。現在のドキュメントの各テーブルをステップスルーし、列の間にタブを付けてすべてをテキストに変換します。

Sub AllTablesToText()

Dim t As Table

For Each t in ActiveDocument.Tables         t.ConvertToText Separator:=wdSeparateByTabs     Next t End Sub

列の間にタブが必要ない場合は、Separatorパラメーターに割り当てられた値を変更するだけです。 wdSeparateByCommas、wdSeparateByDefaultListSeparator、またはwdSeparateByParagraphsを使用できます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（13171）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

linkテーブルをテキストに変換。