回答編集履歴
3
コードを若干修正
answer
CHANGED
|
@@ -16,8 +16,8 @@
|
|
|
16
16
|
これには、次のコードでいかがでしょうか。
|
|
17
17
|
```VBA
|
|
18
18
|
Sub findAmikake()
|
|
19
|
+
Selection.Range.HighlightColorIndex = wdNoHighlight
|
|
19
20
|
With Selection.Find
|
|
20
|
-
Selection.Range.HighlightColorIndex = wdNoHighlight
|
|
21
21
|
.Font.Shading.BackgroundPatternColor = wdColorWhite
|
|
22
22
|
.Font.Shading.Texture = wdTexture15Percent
|
|
23
23
|
If .Execute = True Then
|
2
表現を若干修正
answer
CHANGED
|
@@ -13,7 +13,7 @@
|
|
|
13
13
|
Selection.Range.HighlightColorIndex = wdNoHighlight
|
|
14
14
|
のみを適用する
|
|
15
15
|
|
|
16
|
-
これには、
|
|
16
|
+
これには、次のコードでいかがでしょうか。
|
|
17
17
|
```VBA
|
|
18
18
|
Sub findAmikake()
|
|
19
19
|
With Selection.Find
|
1
文言を少々修正
answer
CHANGED
|
@@ -13,7 +13,7 @@
|
|
|
13
13
|
Selection.Range.HighlightColorIndex = wdNoHighlight
|
|
14
14
|
のみを適用する
|
|
15
15
|
|
|
16
|
-
には、以下でいかがでしょうか。
|
|
16
|
+
これには、以下でいかがでしょうか。
|
|
17
17
|
```VBA
|
|
18
18
|
Sub findAmikake()
|
|
19
19
|
With Selection.Find
|