次の方法で共有


HeaderFooter.Index プロパティ (Word)

指定したヘッダーまたはフッターの文書またはセクションを表す WdHeaderFooterIndex を返します。 読み取り専用です。

構文

インデックス

expression 必須です。 'HeaderFooter' オブジェクトを表す変数。

次の使用例は、指定された変数が先頭ページのヘッダーを参照している場合に、現在の文書内の先頭ページのヘッダーに図形を追加します。

Sub ChangeFirstPageFooter() 
 Dim hdrFirstPage As HeaderFooter 
 
 Set hdrFirstPage = ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage) 
 
 If hdrFirstPage.Index = wdHeaderFooterFirstPage Then 
 With hdrFirstPage.Shapes.AddShape(Type:=msoShapeHeart, _ 
 Left:=36, Top:=36, Width:=36, Height:=36) 
 .Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0) 
 End With 
 End If 
 
End Sub

関連項目

HeaderFooter オブジェクト

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

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