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

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

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

。リボンの[挿入]タブを表示します。

。 [ヘッダーとフッター]グループで、変更するヘッダーまたはフッターのいずれかをクリックします。 Wordは、オプションのドロップダウンリストを表示します。

。手順3でクリックしたツールに応じて、[ヘッダーの編集]または[フッターの編集]をクリックします。Wordには、リボンの[デザイン]タブとともにヘッダーまたはフッターが表示されます。

。 [次へ]ツールをクリックします。 Wordは、ドキュメントの2番目のセクションのヘッダーまたはフッターを表示します。

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

。 [次へ]ツールをクリックします。これにより、次の(3番目の)ヘッダーが表示されます

ドキュメントのセクション。

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

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

。リボンの[デザイン]タブで、[ヘッダーとフッターを閉じる]をクリックします。

ドキュメントにかなりの数のヘッダーがある場合、これらの手順の実行には時間がかかることがあります。また、ドキュメント内のすべてのフッターに対してそれらを実行する必要があります。 (唯一の注意点は、ステップ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_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

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

(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(7541)は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス: