Hallo meine Lieben,
ich brauche mal schnell eure Hilfe. Ich habe ein Word-Dokument und möchte bestimmte Zeichenketten (reg. Ausdruck: [a-zA-Z]{3}[0-9]{3}) immer so abändern, dass davor und danach ein * steht. Danach möchte ich diesen Ausdruck (mit *) in eine andere Schriftart bringen. Kann mir bitte jemand helfen?
Bisher ist es mir gelungen, dass sich die Größe und die Schriftart ändert. Allerdings weiß ich nicht wie ich den Ausdruck um die * erweitern kann. Schnelle Hilfe wäre super :)
Sub test()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Size = 22
Selection.Find.Replacement.Font.Name = "Arial Black"
With Selection.Find
.Text = "[a-zA-Z]{3}[0-9]{3}"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
|