tangopeter
Gebruiker
- Lid geworden
- 15 aug 2007
- Berichten
- 5
Beste forummers,
Waarschijnlijk een simpele vraag: hoe kan ik in een zoek- en vervangmacro (Word 2002) vermijden dat ik 'nee' moet antwoorden op de vraag: "Het doorzoeken van de selectie is voltooid. x vervanging. Wilt u de rest van het document doorzoeken?"?
Ik vermoed dat ik iets met MsgBox en vbNo=7 moet doen, maar weet niet goed hoe ik het aanpak.
Alvast hartelijk bedankt voor elke suggestie!
M'n macro ziet er nu zo uit:
Sub HRt_weg()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
Waarschijnlijk een simpele vraag: hoe kan ik in een zoek- en vervangmacro (Word 2002) vermijden dat ik 'nee' moet antwoorden op de vraag: "Het doorzoeken van de selectie is voltooid. x vervanging. Wilt u de rest van het document doorzoeken?"?
Ik vermoed dat ik iets met MsgBox en vbNo=7 moet doen, maar weet niet goed hoe ik het aanpak.
Alvast hartelijk bedankt voor elke suggestie!
M'n macro ziet er nu zo uit:
Sub HRt_weg()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub