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

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

Sub AllTablesToText()

Dim Tbls As Long     Dim J As Long

Tbls = ActiveDocument.Tables.Count     For J = Tbls To 1 Step —1         ActiveDocument.Tables(J).ConvertToText Separator:=wdSeparateByTabs     Next J End Sub

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

注：

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

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

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（866）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

link：/ wordribbon-Converting_Tables_to_Text [テーブルをテキストに変換]。