Absätze in Word Entfernen

Absätze in Word Entfernen

Hallo weiss vielleicht jemand von euich wie das man in Word 2003 mit nur ein Paar klicks die Absätze Entfernen kann?

Ich habe einen Text wo ich gerne jeden Absatz Enfernen möchte, nun ist der Text über 100 Seiten lang und ich möchte nicht Manuell jeden "Enterschlag" enfernen.
Währe sehr Dankbar um eure Hilfe.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 39857

Url: https://administrator.de/forum/absaetze-in-word-entfernen-39857.html

Ausgedruckt am: 18.04.2025 um 14:04 Uhr

2 Kommentare

Neuester Kommentar

Hi,

versuchs mal so:

Sub Absaetze_loeschen()

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = Chr(13)
        .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