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


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
 str1 = str1 + Mid(str, i, 1)
 i = i + 1
 ActiveDocument.Selection.Text = str1
End Sub

Date Last Updated: February 1, 1999


  • nice example

    Posted by Legacy on 07/06/2002 12:00am

    Originally posted by: kirankumar

    Nice, but i want paragraph funcations any examples is there please infoam my mail id

    my problem is starting of document to space finishing of the file two spaces.

    please sir
    your friend

  • Nice, but destroys the nice formatting

    Posted by Legacy on 05/11/1999 12:00am

    Originally posted by: Yonat

    This is really useful, but it deletes double new lines even 
    when you don't want too (ie, when the original file
    containes empty lines).

    Here is my own version, which just deletes every second line:

    Sub DelEvenLines()
    'DESCRIPTION: Delete all even lines in a file. Useful for files where MSDev turned every LF to an empty line.
    currLine = 1
    prevLine = 0
    Do While currLine > prevLine
    If ActiveDocument.Selection.Text = "" Then
    End If
    prevLine = currLine
    currLine = ActiveDocument.Selection.CurrentLine
    End Sub

Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Lenovo recommends Windows 8 Pro. "I dropped my laptop getting out of the taxi." This probably sounds familiar to most IT professionals. If your employees are traveling, you know their devices are in for a rough go. Whether it's a trip to the conference room or a convention out of town, any time equipment leaves a user's desk it is at risk of being put into harm's way. Stay connected at all times, whether at the office or on the go, with agile, durable, and flexible devices like the Lenovo® …

  • U.S. companies are desperately trying to recruit and hire skilled software engineers and developers, but there's simply not enough quality talent to go around. In response, companies often resort to inferior solutions -- hiring substandard developers and engineers, recruiting talent on a part-time or temporary basis, poaching people from competitors, or burdening an already stressed IT staff for more of their labor. Fortunately, there's a better solution. Read this white paper to learn the business value of …

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date