他の人から受け取ったドキュメントを操作する場合、日常的に行う必要のあるタスクの1つは、ドキュメント内のすべてのヘッダーとフッターを削除することです。これを行う1つの方法は、さまざまなヘッダーとフッターを選択して削除することですが、ドキュメントに多くのセクションが含まれている場合は、非常に時間がかかる可能性があります。 （特に、各セクションに最大3つの異なるヘッダーとフッターを含めることができると考える場合。）

反復的で時間のかかるタスクは、常にマクロの最有力候補です。これも例外ではありません。次のマクロは、ドキュメントの各セクションを直接圧縮し、定義されているすべてのヘッダーとフッターを削除します。

Sub RemoveHeadAndFoot()

Dim oSec As Section     Dim oHead As HeaderFooter     Dim oFoot As HeaderFooter

For Each oSec In ActiveDocument.Sections         For Each oHead In oSec.Headers             If oHead.Exists Then oHead.Range.Delete         Next oHead

For Each oFoot In oSec.Footers             If oFoot.Exists Then oFoot.Range.Delete         Next oFoot     Next oSec End Sub

このマクロは非常に強力です。続行するかどうかを尋ねたり、ヘッダーとフッターに何が含まれるかを考慮したりしません。それらをすべて削除するだけで、ドキュメントには何も残されません。かなりの数のドキュメントを定期的に処理する場合は、マクロをツールバーボタン、メニュー項目、またはショートカットキーに簡単に割り当てることができます。

注：

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

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

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

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

linkすべてのヘッダーとフッターの削除。