Removing double empty lines (two 0x0a 0x0a in a row) 

--------------------------------------------------------------------------------

This article was contributed by Raul Sobon. 

MACRO: REMOVEEMPTYLINES 

PURPOSE: To remove double empty lines (two 0x0a 0x0a in a row) 

WHY: When converting from mac/unix/dos text file formats some programs stuff up by making double lines which is annoying 

HOW: Just mark your area and run the macro 

Sub RemEmptyLines()

 Dim comp

 str = ActiveDocument.Selection.Text

 str1 = ""

 comp = vbLf + vbLf

 comp2 = vbLf + vbLf

 i = 1

 Do While (i < Len(str)+1)

 Do While Mid(str, i, 2) = comp

 i = i + 1

 Loop

 str1 = str1 + Mid(str, i, 1)

 i = i + 1

 Loop

 ActiveDocument.Selection.Text = str1

End Sub

Date Last Updated: February 1, 1999