ドキュメントを作成していて、アウトライン（見出し）を他の人と共有したい場合があります。幸い、Wordではこれをかなり簡単に行うことができます。もちろん、最も簡単な方法は、単にアウトラインを印刷することです。これを行うには、次の手順に従います。

。ドキュメントのアウトラインビューに切り替えます。

。リボンの[アウトライン]タブにある[レベルの表示]ツールを使用して、表示する見出しレベルを指定します。

。 Ctrl + Pを押してアウトラインを印刷します。

アウトラインを表示しているときは、どのように印刷するかが非常に重要であることに注意してください。印刷プレビューを選択した場合、Wordはドキュメントの見出しだけを表示しません。つまり、実際に何が印刷されるかはわかりません。さらに、[印刷プレビュー]から[印刷]を選択すると、見出しだけでなく印刷されます。これにより、一部の読者は、アウトラインだけを印刷することはできないと考える可能性があります。これは単に誤解を招くだけです。上記の手順に従えば、アウトラインをうまく印刷できます。

このアウトラインは、必要に応じて他の人と共有できます。

しかし、アウトラインだけで構成されるドキュメント（印刷物ではない）を共有したい場合はどうでしょうか？ここでは物事がもう少し粘着性になります。見出し以外のすべてを削除する方法を見つける必要があるという考えです。これを行うための明白な方法は、目次またはRDフィールドのいずれかを使用することです。 （これらの手法は両方とも、_WordTips_の他の問題で取り上げられています。）

見出しだけをかなり共有する必要がある場合、より簡単な解決策は、ヘッダーを除くすべてをドキュメントから取り除くマクロを作成することです。次のVBAマクロは非常にうまく機能します：

Sub ReduceToHeadings()

Dim docActive As Document     Dim objPara As Paragraph     Dim objShape As Shape

' set fixed ref to the working document     Set docActive = ActiveDocument

' loop and remove any non-"Heading" paragraphs     For Each objPara In docActive.Content.Paragraphs         If LCase(Left(objPara.Style, 7)) <> "heading" Then             objPara.Range.Delete         End If     Next objPara End Sub

このマクロが行うことは、段落が見出しスタイルを使用していない場合、単にループしてドキュメントの本文の段落を削除することです。もちろん、見出しスタイルの名前は変更されていないことを前提としています。実行が完了すると、見出しのみが残ります。他のユーザーと共有できるドキュメントを作成するには、すぐに[名前を付けて保存]コマンドを使用する必要があります。 [保存]コマンドは使用しないでください。使用すると、元のドキュメントが上書きされます（間違いなく悪いことです）。

注：

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

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

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

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

Wordの古いメニューインターフェイスに関するこのヒントのバージョンは、次の場所にあります：

linkSharing Headings withOthers。