以下のようなマクロを作成しましたが、文章の最後まで連続置換をしたい場合

質問

以下のようなマクロを作成しましたが、文章の最後まで連続置換をしたい場合はどうすればよいのでしょうか。
ご教示をお願い致します。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Selection.Find.ClearFormatting
With Selection.Find
.Text = "＜G＞*＜M＞"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Font.Name = "ＭＳ ゴシック"
Selection.Find.ClearFormatting
With Selection.Find
.Text = "＜G＞*＜M＞"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With
End Sub
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

回答No.1

Wendy02 · ベストアンサー

ご質問の場合は、そのマクロが何をするか書いていただいたほうがよいですね。
一応、書式をMSゴシックに替えるものとして理解して作りました。また、Find でループして交換する法もありますが、一括、書式交換というなら、以下のようにすればよいと思います。

Sub FormatReplace()
　　Selection.Find.ClearFormatting
　　Selection.Find.Replacement.ClearFormatting
　　With Selection.Find
　　　　.Text = "＜G＞*＜M＞"
　　　　.Replacement.Text = "^&"
　　　　.Replacement.Font.Name = "ＭＳ ゴシック"
　　　　.Forward = True
　　　　.Wrap = wdFindContinue
　　　　.Format = True
　　　　.MatchCase = False
　　　　.MatchWholeWord = False
　　　　.MatchByte = False
　　　　.MatchAllWordForms = False
　　　　.MatchSoundsLike = False
　　　　.MatchFuzzy = False
　　　　.MatchWildcards = True
　　End With
　　Selection.Find.Execute Replace:=wdReplaceAll
End Sub

p.s.この前、誰か、Match プロパティをTrue のものだけを書いて省略している人がいましたが、Word Macro は、省略しないほうが良いです。

お礼

早々のご回答感謝いたします。今回初めての質問でしたので言葉が足りず申し訳ありませんでした。次回から気をつけます。