DelEmptyParas

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen

Delete empty paragraphs (DelEmptyParas) ist ein VBA-Unterprogram (MS-Word-Makro), das leere Paragrafen im aktiven Dokument löscht.

Sub DelEmptyParas ()

Dim P As Object
Dim I As Long

I = 0
For Each P In ActiveDocument.Paragraphs
  If P.Range.Characters.Count = 1 Then
    P.Range.Delete
    I = I + 1
  End If
  
Next
 MsgBox "Es wurden " & Str(I) & " Zeilen glöscht.", vbOKOnly, "Löschen leerer Paragrafen"
End Sub