Word VBA 「青文字」を「赤文字」に置き換えたい

Question

Word VBA で文書の「青文字」を「赤文字」に置き換えたいのですが、うまく動作しません。
Word VBA初心者です。ご教授のほどよろしくお願いします。

Sub replace()

With Selection.Find
.Font.Color = wdColorBlue
With .Replacement
.Font.Color = wdColorRed
End With
.Execute replace:=wdReplaceAll
End With

End Sub

Answer 1

一概に「青文字」と言っても実際の書式に使っている「青文字」と「wdColorBlue」があっていないのではないでしょうか？
wdColorBlueは10進数で16711680（16進数でFF0000）で定義されています。
Word側で文字に色を設定するときに「その他の色」を選び、「ユーザー設定」で、赤「0」緑｢0」青「255」に設定してみてください。
これで私の環境では問題なく置換できました。
もちろんSelectionになっているので、実行前に置換範囲を選択しておくことをお忘れなく。

追記
前述の方法では今ある「青文字」を置換することができないことに気づいたので、別案です。
まずWord文書内から青文字の文字を選択して、「その他の色」→「ユーザー設定」を開きます。
赤緑青の値を覚えておきます。
検索する文字色を次のように書き換えます。

.Font.Color = RGB(赤,緑,青)

標準色の青の場合は次のようになるかと思います。

.Font.Color = RGB(0, 112, 192)

Comments

[addresshopeph]

青
.Font.Color = RGB(0, 112, 192)
赤
.Font.Color = RGB(255, 0, 0)
でうまく実行できました。

どうもありがとうございました。