【Word】ヘッダ・フッダ・先頭1行目・２行目を確認するマクロ　その１

Wordマクロ

出来合いの資料があって、その一部を修正するようなシーンで使うために考えたマクロの例

最終的には、複数資料から一括で、ヘッダ・フッダ・先頭1行目・２行目が抜ければよいかなと思っている。

まずは手始めにこのレベルから

いまいち、wordオブジェクトの考え方が入ってこない。。　Sentencesとかrangeとか

国語（英語？）の文法構造に弱いのかな、、　

①出来合い資料のヘッダ・フッダ・先頭1行目・２行目確認するマクロ

Sub Word_ヘッダ_フッダ_1_2行目の確認()
    Dim h As HeaderFooter
    Dim f As HeaderFooter
    Dim s As Section
    Dim a As Word.Range
    For Each s In Me.Sections
        Debug.Print s.Headers(wdHeaderFooterPrimary).Range.Text
        Debug.Print s.Footers(wdHeaderFooterPrimary).Range.Text
        Debug.Print Me.Sentences(1).Text
        Debug.Print Me.Sentences(2).Text
    Next s

End Sub

②　①の確認のためのダミーデータを作成（設定）するマクロ

Sub Word_ヘッダ_フッダ_1_2行目の設定()
    Dim h As HeaderFooter
    Dim f As HeaderFooter
    Dim s As Section
    Dim a As Word.Range
    For Each s In Me.Sections
        s.Headers(wdHeaderFooterPrimary).Range.Text = "ヘッダ"
        s.Footers(wdHeaderFooterPrimary).Range.Text = "フッダ"
       
        Me.Range.InsertAfter "１行目" & vbCrLf
        Me.Range.InsertAfter "２行目" & vbCrLf
       
       
    Next s
End Sub