Excel VBAからWord文章を抽出したい

Question

Excel2010 VBAにて、Word文章から指定行の文章を抽出するマクロを作成しているのですが
Word文章のヘッダーファイルに記載している文字列を抽出できる関数が見つからず困っています。

具体的な手順としては

Excelファイルにて、Wordファイルのフルパスを入力・実行ボタンを押下
↓
指定のWordファイルをオープン
↓
ヘッダー文章と指定行を変数に格納
↓
EXCELファイルに転記

を実現させたいです。

ヘッダーファイルの文字列と指定行の文字列抽出が可能な
関数をご存知の方いらっしゃいましたら
ご教授のほど宜しくお願い致します。

sub WORD文章抽出マクロ()

    'WORDファイルオープン
    Dim myWord As Word.Document
    Set myWord = GetObject("C:\Word2013Data\指定WORDファイル.docx")
    myWord.Application.Visible = True

    'ヘッダーファイルの文字列抽出を行いたい

    '指定行の文字列抽出を行いたい

    worksheets("WORDからの抽出").cells(1,"A") = ヘッダーファイル文字列
    worksheets("WORDからの抽出").cells(2,"A") = 指定行文字列    
    
end sub

Answer 1

MSDNサイトの「HeaderFooter オブジェクト (Word)」の記事が手掛かりです。

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text

を取得したり、上書きしたりできるようです。

Comments

[bob_heuer0925]

返信がだいぶ遅れてしまい申し訳ございませんでした。

記事を参考に解決することができました。有難うございます。