質問編集履歴
1
タイトル及び内容の表現をわかりやすく変更しました。
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
Word の VBAの
|
|
1
|
+
Word の VBAで特定の色で塗りつぶした語句を検索して蛍光ペンでハイライト表示したい
|
test
CHANGED
|
@@ -2,19 +2,25 @@
|
|
|
2
2
|
|
|
3
3
|
・やりたいこと
|
|
4
4
|
|
|
5
|
-
⓵塗りつぶし
|
|
5
|
+
⓵文書の中の特定の色で塗りつぶした語句をEnterキーを押すごとに一か所ずつ検索して、その都度蛍光ペンでハイライト表示します。
|
|
6
6
|
|
|
7
|
-
⓶直前に検出され
|
|
7
|
+
⓶Enterキーを押して次の部分の検索に移った時に直前に検出された蛍光ペンのハイライト表示の部分を元の塗りつぶしの色に戻していきます。
|
|
8
8
|
|
|
9
9
|
|
|
10
10
|
|
|
11
11
|
・うまく動作しなかったコード
|
|
12
12
|
|
|
13
|
-
|
|
13
|
+
Shading.BackgroundPatternColor = -553582746
|
|
14
14
|
|
|
15
|
-
|
|
15
|
+
(マクロの記録で確認したインデックス番号です。)
|
|
16
16
|
|
|
17
|
+
を指定して検索したのですが、全ての部分に黄色の蛍光ペンがかかってしまいました。
|
|
18
|
+
|
|
19
|
+
元の塗りつぶしの色に戻りませんでした。
|
|
20
|
+
|
|
21
|
+
Enterキーを押して次の検索を行うコードをどう表現すればいいのかわかりませんでした。
|
|
22
|
+
|
|
17
|
-
|
|
23
|
+
VBA初心者です。ご教授のほどよろしくお願いします。
|
|
18
24
|
|
|
19
25
|
|
|
20
26
|
|