回答編集履歴
3
コードを若干修正
test
CHANGED
|
@@ -34,9 +34,9 @@
|
|
|
34
34
|
|
|
35
35
|
Sub findAmikake()
|
|
36
36
|
|
|
37
|
+
Selection.Range.HighlightColorIndex = wdNoHighlight
|
|
38
|
+
|
|
37
39
|
With Selection.Find
|
|
38
|
-
|
|
39
|
-
Selection.Range.HighlightColorIndex = wdNoHighlight
|
|
40
40
|
|
|
41
41
|
.Font.Shading.BackgroundPatternColor = wdColorWhite
|
|
42
42
|
|
2
表現を若干修正
test
CHANGED
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
|
|
29
29
|
|
|
30
30
|
|
|
31
|
-
これには、
|
|
31
|
+
これには、次のコードでいかがでしょうか。
|
|
32
32
|
|
|
33
33
|
```VBA
|
|
34
34
|
|
1
文言を少々修正
test
CHANGED
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
|
|
29
29
|
|
|
30
30
|
|
|
31
|
-
には、以下でいかがでしょうか。
|
|
31
|
+
これには、以下でいかがでしょうか。
|
|
32
32
|
|
|
33
33
|
```VBA
|
|
34
34
|
|