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.

Please also mark the comments that contributed to the solution of the article

Content-Key: 39857

Url: https://administrator.de/contentid/39857

Printed on: April 26, 2024 at 00:04 o'clock

2 Comments

Latest comment

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

Psycho

Danke viel mal.
Es hat geklapt.

German Question Microsoft Office Microsoft

Hotly discussed

Check of ZFW Firewallgleixnerd - 5 Comments