Office: Absätze und Leerzeichen am Ende löschen

Hallo!

Folgendes Problem:
In einem Dokument, dass auf einer Vorlage basiert, gibt es teilweise mehrere (1 bis 20) Abschnitte (eingefügt über Layout - Umbrüche - Abschnittsumbrüche). Mit 1 Abschnitt meine ich, dass das Dokument einen Text enthält aber kein zusätzlciher Abschnitt eingefügt wurde. Ich möchte gerne alle Absätze und alle Leerzeichen am Ende jedes Abschnittes eines Dokumentes löschen.

Dazu verwende ich folgenden Code:

Code:

With ActiveDocument
Dim i As Integer
    For i = 1 To ActiveDocument.Sections.Count
        Dim s As String
        With ActiveDocument
            If Len(.Range) = 1 Then Exit Sub
            s = .Characters.Last.Previous
            While s = " " Or s = Chr(13)
                .Characters.Last.Previous.Delete
                s = .Characters.Last.Previous
            Wend
        End With
    Next i
End With

Der Code funktioniert leider nur beim letzten Abschnitt.

Hat jemand eine Ahnung woran das liegen könnte?

lg Alex

 

Hallo Alex,

du machst zwar eine Schleife über alle deine Abschnitte, aber du prüfst in jedem Abschnitt immer nur das vorletzte Zeichen des Dokuments.: s = .Characters.Last.Previous bezieht sich ja wegen With ActiveDocument auf Activedocument.Characters... und nicht auf ActiveDocument.Sections(i).Range.Characters...

Ich hab bei der Gelegenheit den Code auch ein wenig gestrafft. Teste mal, ob er zu deinen Dokumenten passt:

Code:

Sub AlleAbschnitteBereinigen()
Dim i As Integer, s As String

With ActiveDocument
    For i = 1 To .Sections.Count
            If Len(.Sections(i).Range) = 1 Then Exit Sub
            s = .Sections(i).Range.Characters.Last.Previous
            While s = " " Or s = Chr(13)
                .Sections(i).Range.Characters.Last.Previous.Delete
                s = .Sections(i).Range.Characters.Last.Previous
            Wend
      Next i
End With
   
End Sub

 

Vielen Dank für deine Antwort!

Ich hab das in mein Dokument eingebaut. Wenn ich es ausführe, scheint es eine Endlosschleife zu geben.
Nachdem ich mir das im Debugger genauer angesehen habe, melde ich mich nochmal.