回答編集履歴
1
コード修正
test
CHANGED
|
@@ -31,7 +31,6 @@
|
|
|
31
31
|
.MatchWildcards = True
|
|
32
32
|
Do While .Execute
|
|
33
33
|
If Selection.OMaths.Count = 0 Then
|
|
34
|
-
Debug.Print Selection.Text
|
|
35
34
|
Selection.Font.Spacing = 3
|
|
36
35
|
Selection.Characters.First.Previous.Font.Spacing = 3
|
|
37
36
|
End If
|