DelEmptyParas

Aus Thomas Wiki
Version vom 5. Mai 2017, 05:06 Uhr von Thomas (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „'''Delete empty paragraphs''' (DelEmptyParas) ist ein VBA-Unterprogram (MS-Word-Makro), das '''leere Paragrafen''' im aktiven Dokument '''löscht'''. <pre> Su…“)
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
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