WORDで文字列検索をするマクロに関する質問

以下のWSHのWORD検索で、WORDのヘッダー・フッターも検索できるようにできるでしょうか?
http://q.hatena.ne.jp/1193793654#a773920
目的は、部署名が変わったので元の名前が入っているかどうかチェックをしたいためです。

回答の条件
  • 1人2回まで
  • 13歳以上
  • 登録:2011/05/30 08:56:12
  • 終了:2011/06/06 09:00:03

回答(0件)

回答はまだありません

  • id:ken3memo
    チョト リアルで呼び出しを受けたので、やりかけをコメントで失礼します。
    .Headers を 探ると
    Sub aaa()
    'ヘルプより、テスト データのセット
    With ActiveDocument.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range.Text = "Header text"
    .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text"
    End With
    End Sub

    Sub bbb()
    '値がほしいので、逆に取り出す
    MsgBox "ヘッダー" & ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text
    MsgBox "フッター" & ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text
    End Sub

    で、テストできたので、何かの参考となれば。
    ※ヘッダー・フッターを勘違いしてたらすみません。

    あっ、WSHでしたね、
    ? wdHeaderFooterPrimary
    1
    なので、
    Const wdHeaderFooterPrimary = 1
    ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text
    で使ってみてください。

    ヤバイ、行かなきゃ。
  • id:garyo
    なんとかできました。ありがとうございます。
    http://d.hatena.ne.jp/garyo/20110602/p2
  • id:ken3memo
    あっ、忘れてた。
    完成されたみたいで、よかったです。
    ※リニューアルされて、ウォッチリストに行きにくくなったのと ボケてて回答忘れてました。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません