Wordのマクロの繰り返しと停止

質問

Wordで"XX"の場所に"★"の後にある文字列を挿入、という以下のマクロを記録したのですが、この作業を★がなくなるまで繰り返したいと思っております。どのように記入すればよいでようか？

Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "★"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "XX"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute
Selection.Paste
Selection.TypeBackspace
End Sub

回答No.2

Wendy02 · ベストアンサー

こんばんは。

以下のように一行加えてみてください。つまり、最初に戻ればよいわけですね。ダメだったら、また、教えてください。

Sub sub_Test2()
Selection.StartOf wdStory '←　一行加えればよいと思いますね。
With Selection.Find
　・
　・
　・

お礼

おお～ばっちりです。
ご親切にありがとうございました。
マクロを入れたら一瞬で作業が終わったのでびびりましたｗ

回答No.1

Wendy02

こんにちは。

元のテキストがどんな風になっているか分らないので、記録マクロから起こしてみましたが、あとは、修正していただけませんか？
なお、必ず、★とXXは、対になっているものだと思っています。

Sub Test1()
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting

With Selection.Find
　Do While .Execute(FindText:="★", Forward:=True, Format:=False) = True
　 With Selection
　　 .Delete Unit:=wdCharacter, Count:=2
　　 .EndKey Unit:=wdLine, Extend:=wdExtend
　　 .Cut
　 End With
　 Call sub_Test2
Loop
End With
End Sub
Sub sub_Test2()
With Selection.Find
　.Execute FindText:="XX", Forward:=True, Format:=False
　 Selection.Paste
　 Selection.TypeBackspace
End With
End Sub

補足

ご親切にありがとうございます。
実行したいのは以下のような作業です。
教えていただいたマクロを入れてみたところXXに入れ替える部分は実行されず、★のみが消える作業になってしまいました。

1.－XX
あああああ

2.－XX
いいいいいい

3.－XX
うううううう

★(tab) A
★(tab) B
★(tab) C

↓

1.－A
あああああ

2.－B
いいいいいい

3.－C
うううううう