Deathman123456
Grünschnabel
Hallo,
habe ein kleines Problem, will in einem Word Dokument nach bestimmten Zeichen suchen lassen, wenn er das Zeichen gefunden hat soll der gesamte Absatz mittig gestellt werden was auch klappt, aber er soll ihn auch auf Größe 14 und fett Stellen, also nicht nur das gefundene Zeichen sondern den gesamten Absatz.
Habt Ihr eine Idee! Danke schon mal
habe ein kleines Problem, will in einem Word Dokument nach bestimmten Zeichen suchen lassen, wenn er das Zeichen gefunden hat soll der gesamte Absatz mittig gestellt werden was auch klappt, aber er soll ihn auch auf Größe 14 und fett Stellen, also nicht nur das gefundene Zeichen sondern den gesamten Absatz.
Habt Ihr eine Idee! Danke schon mal
Code:
'-------------------------------------------------------------
Sub ZZZ_Testing_Dokument()
Dim i As Byte
Application.ScreenUpdating = False
Dim Zeichen$(5)
Zeichen$(0) = "w/m"
Zeichen$(1) = "m/w"
Zeichen$(2) = "m/f"
Zeichen$(3) = "f/m"
Zeichen$(4) = "er/innen"
Zeichen$(5) = "mann/frau"
Selection.Find.Format = False
Selection.Find.Replacement.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Find.Replacement.Font.Size = 14
Selection.Find.Replacement.Font.Bold = True
Selection.Find.Replacement.Font.ColorIndex = wdRed
For i = 0 To 5
With Selection.Find
.Text = Zeichen$(i)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub