MsgBox deaktivieren bzw. automatisch schliessen
Daniel
ich habe folgendes Problem:
Ich möchte in einem Text bestimmte Zeichen ersetzen.
Mit Hilfe des Makrorecorders habe ich das geschafft.
Nun möchte ich mehrere Zeichen nacheinander ersetzen.
Jedoch stören mich am Ende der Ersetzung zwei MsgBoxen.
Hier ist der Quellcode:
Sub HTML_Replace()
' HTML_Replace Makro
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ChrW(269)
.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
End Sub
Wie kann ich diese MsgBoxen deaktivieren bzw. automatisch schliessen?
Viele Grüße
Daniel Rudolf
Anzeige