Macro code to delete blank paragraphs in Word

You can delete a blank paragraph in Word by using the following macro code.

Sub Delblank ()

Dim I as Paragraph, n as Long

application.screenupdating = False ' Turn off screen refresh

For all I in activedocument.paragraphs ' loops in the collection of paragraphs in the active document

If Len (i.range) = 1 Then ' to judge the length of a paragraph, this can be based on the actual document

I.range.delete ' make the necessary modifications to remove any length of paragraph

n = n + 1 ' count

End If

Next

MsgBox "Delete blank paragraph" & N & "A!"

application.screenupdating = True ' Restore screen refresh

End Sub