teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

追記

2020/09/08 05:52

投稿

ttyp03
ttyp03

スコア17002

answer CHANGED
@@ -2,4 +2,17 @@
2
2
  wdColorBlueは10進数で16711680(16進数でFF0000)で定義されています。
3
3
  Word側で文字に色を設定するときに「その他の色」を選び、「ユーザー設定」で、赤「0」緑「0」青「255」に設定してみてください。
4
4
  これで私の環境では問題なく置換できました。
5
- もちろんSelectionになっているので、実行前に置換範囲を選択しておくことをお忘れなく。
5
+ もちろんSelectionになっているので、実行前に置換範囲を選択しておくことをお忘れなく。
6
+
7
+ 追記
8
+ 前述の方法では今ある「青文字」を置換することができないことに気づいたので、別案です。
9
+ まずWord文書内から青文字の文字を選択して、「その他の色」→「ユーザー設定」を開きます。
10
+ 赤緑青の値を覚えておきます。
11
+ 検索する文字色を次のように書き換えます。
12
+ ```VBA
13
+ .Font.Color = RGB(赤,緑,青)
14
+ ```
15
+ 標準色の青の場合は次のようになるかと思います。
16
+ ```VBA
17
+ .Font.Color = RGB(0, 112, 192)
18
+ ```