表は、さまざまな種類の情報を表示するための優れた方法です。実際、ほぼ完全にテーブルで構成されているドキュメントを見たことがあります。テーブルで多くの作業を行う場合は、（ある時点で）すべてのテーブルを1つのドキュメントから新しいドキュメントにコピーすることをお勧めします。これは、新しいドキュメントで利用できるようにする必要がある表形式の情報があるが、元のドキュメントの残りの情報は必要ない場合に役立ちます。

このタイプのコピーを行う最も簡単な方法は、マクロを使用することです。

幸い、ドキュメント内のすべてのテーブルは、Tablesコレクションを通じてVBAで使用できるようになっています。つまり、コレクション内の各アイテムをステップスルーして（各アイテムは個別のテーブルになります）、それをコピーできます。

Sub CopyTables()

Dim Source As Document     Dim Target As Document     Dim tbl As Table     Dim tr As Range

Set Source = ActiveDocument     Set Target = Documents.Add

For Each tbl In Source.Tables         Set tr = Target.Range         tr.Collapse wdCollapseEnd         tr.FormattedText = tbl.Range.FormattedText         tr.Collapse wdCollapseEnd         tr.Text = vbCrLf     Next End Sub

マクロを実行すると、新しいドキュメント（Target）が作成され、元のドキュメント（Source）から新しいドキュメントにテーブルがコピーされます。 （ソースドキュメントは、マクロを実行したときにアクティブだったドキュメントです。）

マクロは、ターゲットドキュメントの各テーブルの間に空白行を配置します。

空白行が必要ない場合は、Nextステートメントの直前の行を削除するかコメントアウトします。

注：

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

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

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（13338）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice365のWordに適用されます。