Wort suchen, ganzen Absatz Fett

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:)
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
 

Neue Beiträge

Zurück