Hallo,
ich versuche alle Platzhalter in einem Wordokument beginnend und endend mit "%" zu suchen. Sobald etwas gefunden wurde, soll das Ergebnis darauf geprüft werden, ob es kleine und/oder große Buchstaben enthält. Die Suche mache ich über selection.find mit der Variabel "%*%". Nun soll der gefundene Text "RepeatBMK" daraufhin untersucht werden, ob er kleine und/oder große Buchstaben enthält. Es könnten auch Zahlen enthalten sein, die nicht interessieren oder auch "_" die auch nicht weiter interessieren. Nur wenn der String (abgesehen von Zahlen oder "_") Großbuchstaben enthält, soll der Text ersetzt werden. Da komme ich dann aber alleine klar.
Kann mir jemand dabei helfen?
Danke und Grüße
Kerstin
Sub Prozent_Suchen()
'
Dim RepeatBMK As String
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "%*%"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Find.ClearFormatting
Selection.Find.Font.Color = wdColorAutomatic
Selection.Find.Replacement.ClearFormatting
RepeatBMK = Selection
|