アーロンは、ドキュメントの外観を標準化する必要がある他の人からドキュメントを受け取ることがよくあります。彼はテンプレートを添付して、ドキュメント内のテキストにスタイルを適用できるようにすることができます。しかし、彼が本当に必要としているのは、標準のヘッダーとフッターをドキュメントに添付する方法です。彼はテンプレートでそれらを定義しましたが、テンプレートを添付してもヘッダーとフッターは追加されません。彼は、これらのドキュメントに標準のヘッダーとフッターを追加する簡単な方法があるかどうか疑問に思います。

テンプレートを既存のドキュメントに添付する場合、基本的に行うことは、テンプレートに格納されているスタイルとマクロのセットへのドキュメントアクセスを提供することです。ドキュメントがテンプレートのページレベルまたはセクションレベルの特性を取得する唯一の方法は、そのテンプレートに基づいてドキュメントを作成することです。これが、多くの人がこの一般的な順序に従うことを選択する理由です：

。テンプレートに基づいて新しいドキュメントを作成します。 （これがターゲットドキュメントです。）

。他の人から受け取ったドキュメントを開きます。標準化したいもの。 （これはソースドキュメントです。）

。ソースドキュメントからテキストをコピーして、ターゲットドキュメントに貼り付けます。

何らかの理由でこのルートに進むことができない場合、次善の策は、ヘッダーとフッターに必要なテキストを定義するビルディングブロックのセットを作成することです。次に、ビルディングブロックを使用して、標準化するドキュメントを含め、任意のドキュメントにヘッダーとフッターを追加することで、時間を節約できます。

最後に、必要に応じて、必要なヘッダーとフッターを追加するマクロを作成できます。マクロは派手である必要はありません。これは、標準化されたヘッダーとフッターのテキストをドキュメントの各セクションに追加するだけのものです。

Sub MyHeadersAndFooters()

Dim i As Long

For i = 1 To ActiveDocument.Sections.Count         With ActiveDocument.Sections(i)

.Headers(wdHeaderFooterPrimary).Range.Text = "Header Text Here"

.Footers(wdHeaderFooterPrimary).Range.Text = "Footer Text Here"

End With     Next i End Sub

マクロを使用するには、「HeaderTextHere」と「FooterTextHere」を目的のヘッダーとフッターのテキストに置き換えるだけです。このマクロは、特別なスタイルを適用したり、必要なフィールド（ページ番号など）を含めたりしないため、出発点にすぎません。

注：

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

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

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

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