次の方法で共有

HeaderFooter.LinkToPrevious プロパティ (Word)

  • [アーティクル]

True を指定 したヘッダーまたはフッターが前のセクションの対応するヘッダーまたはフッターにリンクされている場合。 読み取り/書き込みが可能な Boolean です。

構文

式。 LinkToPrevious

式 'HeaderFooter' オブジェクトを返す式。

注釈

ヘッダーまたはフッターがリンクされると、その内容は前のセクションのヘッダーまたはフッターと同じになります。 既定では、LinkToPrevious プロパティは True に設定されるので、最初のセクションのヘッダー、フッター、およびページ番号を設定すると、ヘッダー、フッター、およびページ番号を文書全体に追加できます。 たとえば、次の使用例は、作業中の文書のすべてのセクションのすべてのページにページ番号を追加します。

ActiveDocument.Sections(1) _ 
 .Headers(wdHeaderFooterPrimary).PageNumbers.Add

LinkToPrevious プロパティはヘッダーまたはフッターに個別に適用されます。 たとえば、LinkToPrevious プロパティに設定する値を、偶数ページのヘッダーでは True、偶数ページのフッターでは False にすることもできます。

例

次の使用例は、まず、新しい文書を作成し、2 つのセクションを作成します。 次に、新しい文書の 1 番目および 2 番目のセクションでそれぞれの偶数および奇数ページに固有のヘッダーを作成します。

Documents.Add 
With Selection 
 For j = 1 to 4 
 .TypeParagraph 
 .InsertBreak 
 .TypeParagraph 
 Next j 
End With 
With ActiveDocument 
 .Paragraphs(5).Range.InsertBreak Type:=wdSectionBreakNextPage 
 .PageSetup.OddAndEvenPagesHeaderFooter = True 
End With 
With ActiveDocument.Sections(2) 
 With .Headers(wdHeaderFooterPrimary) 
 .LinkToPrevious = False 
 .Range.InsertBefore "Section 2 Odd Header" 
 End With 
 With .Headers(wdHeaderFooterEvenPages) 
 .LinkToPrevious = False 
 .Range.InsertBefore "Section 2 Even Header" 
 End With 
End With 
With ActiveDocument.Sections(1) 
 .Headers(wdHeaderFooterPrimary) _ 
 .Range.InsertBefore "Section 1 Odd Header" 
 .Headers(wdHeaderFooterEvenPages) _ 
 .Range.InsertBefore "Section 1 Even Header" 
End With

関連項目

HeaderFooter オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。