Ersetzen nur in Markierung

Computer: Software & Programmierung Office Software
1

Hallo,
ich möchte den Such-Ersetzen-Befehl ausschließlich auf einen markierten Bereich anwenden, zB. so:
With Selection.Find
.Text = „AAA“
.Replacement.Text = „BBB“
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
?? Selection.Find.Execute Replace:=wdReplaceAll ??

Wie erreiche ich ein automatisches Ende ohne die Nachfrage „Soll im restlichen…“
Es grüßt
Tomte

2

ich möchte den Such-Ersetzen-Befehl ausschließlich auf einen
markierten Bereich anwenden, zB. so:
Wie erreiche ich ein automatisches Ende ohne die Nachfrage
„Soll im restlichen…“

Hallo Tomte,

Private Sub CommandButton1\_Click()
With Selection.Find
 .Text = "AAA"
 .Replacement.Text = "BBB"
 .Forward = True
 .Wrap = wdFindStop
 .Format = False
 .MatchCase = False
 .MatchWholeWord = False
 .MatchWildcards = False
 .MatchSoundsLike = False
 .MatchAllWordForms = False
 .Execute Replace:=wdReplaceAll
End With
End Sub

Gruß
Reinhard

3

Hej Reinhard,
das war´s!
Ein herzliches Dankeschön!
Bis zur nächsten Frage…
Tomte