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

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



Comments

  • 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

    Reply
  • 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.
    ActiveDocument.Selection.StartOfDocument
    currLine = 1
    prevLine = 0
    Do While currLine > prevLine
    ActiveDocument.Selection.LineDown
    If ActiveDocument.Selection.Text = "" Then
    ActiveDocument.Selection.Delete
    End If
    prevLine = currLine
    currLine = ActiveDocument.Selection.CurrentLine
    Loop
    End Sub

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

Top White Papers and Webcasts

  • Live Event Date: March 19, 2015 @ 1:00 p.m. ET / 10:00 a.m. PT The 2015 Enterprise Mobile Application Survey asked 250 mobility professionals what their biggest mobile challenges are, how many employees they are equipping with mobile apps, and their methods for driving value with mobility. Join Dan Woods, Editor and CTO of CITO Research, and Alan Murray, SVP of Products at Apperian, as they break down the results of this survey and discuss how enterprises are using mobile application management and private …

  • The mobile market is white hot. Building a well-crafted product development plan that addresses market research, strategy, design, and development will provide the greatest chance for success. Each phase of an app's lifecycle is critical to the its overall success and feeds into the next step of the process of product development for the app. This white paper examines the five key phases of mobile app creation, one by one, to understand how they work together to help create a successful mobile app.

Most Popular Programming Stories

More for Developers

RSS Feeds

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