Jakeには、Word以外のプログラムによって自動的に作成されるドキュメントがあります。ドキュメントには多くのページが含まれていますが、各ページは個別のセクションとして作成されます。 Jakeは、ドキュメントの2番目のセクションから始めて、ヘッダーとフッターが同じになるようにドキュメントをすばやくフォーマットする方法を探しています。 （最初のページは独自のセクションでもあり、カバーシートが含まれています。）

次の手順に従って、必要な変更を手動で行うことができます。

。 Ctrl + Homeを押して、ドキュメントの先頭に移動します。

。 [表示]メニューから[ヘッダーとフッター]を選択すると、[ヘッダーとフッター]ダイアログボックスが表示されます。 [ヘッダーとフッター]ダイアログボックスに、ドキュメントの最初のセクションのヘッダーが表示されます。

。 [次を表示]ボタンをクリックします。これにより、ドキュメントの2番目のセクションのヘッダーが表示されます。

。ヘッダーに変更を加えて、見た目どおりに見えるようにします。

。 [次を表示]ボタンをクリックします。これにより、ドキュメントの次の（3番目の）セクションのヘッダーが表示されます。

。 [前へリンク]をクリックします。このヘッダーを削除して前のセクションにリンクするかどうかを尋ねるダイアログボックスが表示されます。 [はい]をクリックします。

。ドキュメント内のすべてのヘッダーを処理するまで、手順5〜6を繰り返します。

。 [ヘッダーとフッター]ダイアログボックスを閉じます。

ドキュメントにかなりの数のヘッダーがある場合、これらの手順の実行には時間がかかることがあります。また、ドキュメント内のすべてのフッターに対してそれらを実行する必要があります。 （唯一の注意点は、ステップ3の前または後にフッターを表示するように切り替える必要があることです。）多くのドキュメントでこれを日常的に行う必要がある場合、プロセスはさらに面倒になります。

退屈な解決策は、必要な変更を行うマクロを作成することです。次のマクロについて考えてみます。

Sub MakeSame()

Dim J As Integer     Dim K As Integer

If ActiveDocument.Sections.Count > 2 Then         For J = 3 To ActiveDocument.Sections.Count             For K = 1 To ActiveDocument.Sections(J).Headers.Count                 ActiveDocument.Sections(J).Headers(K).LinkToPrevious = True             Next K             For K = 1 To ActiveDocument.Sections(J).Footers.Count                 ActiveDocument.Sections(J).Footers(K).LinkToPrevious = True             Next K         Next J     End If End Sub

マクロは、ドキュメントに少なくとも3つのセクションがあるかどうかを確認します。ある場合は、3番目のセクションから変更を加え始めます。各セクションのすべてのヘッダーとフッターをステップスルーし、前のセクションと同じに設定されていることを確認します。

このマクロの実行が完了したら、2番目のセクションの[ヘッダーとフッター]ダイアログボックスを表示し、ヘッダーとフッターが希望どおりに設定されていることを確認します。

注：

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

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

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

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

link多くのセクションがあるドキュメントのフッターをすばやくフォーマットする。