wordのマクロについて質問です。

excelに検索したい単語の一覧表を作って、
マクロを用いてword上の文章から単語を検索し、
検索された単語の色を変更する事を考えています。どのようなソースコードを書けばよいのでしょうか?

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2008/03/28 20:59:15
  • 終了:2008/03/28 22:17:28

回答(1件)

id:felix33jp No.1

felix33jp回答回数484ベストアンサー獲得回数32008/03/28 22:04:25

id:shimyt

ありがとうございます。これを元に作ってみます。

2008/03/28 22:17:09
  • id:SALINGER
    WordマクロじゃなくてExcelマクロで作りました。
    vbaでwordオブジェクトの参照設定をしてください。方法はこちら
    http://members.at.infoseek.co.jp/kenchan_h/index21.html

    >|vb|
    Sub Macro()
    Dim wdObj As New Word.Application
    Dim wdDoc As Word.Document
    Dim filepath As String
    Dim i As Long

    'ワードファイルのパスを指定
    filepath = "C:\Documents and Settings\hogehoge\デスクトップ\test.doc"

    With wdObj
    .Visible = True
    .Documents.Open filepath

    Set wdDoc = .ActiveDocument

    i = 1
    While Worksheets("Sheet1").Cells(i, 1).Value <> ""
    With .Selection
    .Find.Text = Worksheets("Sheet1").Cells(i, 1).Value
    .Find.Forward = True
    '色を指定
    .Find.Replacement.Font.ColorIndex = wdRed
    .Find.Execute , , , , , , , , , , wdReplaceAll
    End With
    i = i + 1
    Wend
    End With

    wdDoc.Close SaveChanges:=True

    wdObj.Quit

    Set wdObj = Nothing
    Set wdDoc = Nothing
    End Sub
    ||<

    ここではSheet1のA列に検索文字を入れて実行すると文字を赤にします。
    B列に文字色を入れて文字ごとに色を変えるなどの応用もできますよ。
  • id:shimyt
    なるほど、excelで組んだほうがすっきりしますね。
    何とかwordで組んでみたのですが、回りくどくなってしまいました。
    これを参考に次は組みなおしてみようと思います!ありがとうございます!

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

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

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

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