Delete all blank lines (97)

Topic

New Reply

Hello all,

I looking for a macro that will delete all blank lines (Line with only a paragraph mark) from a Word document.
(Because I have a Document full of data to be converted to Excel, but there are a lot of empty lines that I don’t need, and now the document is to big to import in Excel, without these emply lines it should fit)
Who can help me?

Reply | Quote

Replies

I already found a solution:

Sub DeleteBadLines()
Application.ScreenUpdating = False
Dim BadLine As Long
With ActiveDocument
For BadLine = .Paragraphs.Count To 1 Step -1
If Len(.Paragraphs(BadLine).Range.Text) < 2 Then
.Paragraphs(BadLine).Range.Delete
End If
Next
End With
Application.ScreenUpdating = True
End Sub

Tanks anyway for thinking with me.

Reply | Quote

… simply doing a replace will do it

Search for ^p^p and replace with ^p

Reply | Quote

…although you may need to do the replace several times if there are consecutive blank lines (at least that’s how it works in Word XP)

Reply | Quote

You can use wildcards &:
Find: ^13{1,}
Replace all: ^p
Then you only need to do it once.

Reply | Quote

Patrick’s solution is handy for removing a single paragraph mark inside table cells though – the search and replace methods don’t do this.

It doesn’t however fix a table cell that has some text followed by a return and then nothing. To catch those little critters is more complex as you need to delete the paragraph mark which precedes that paragraph without changing the previous paragraph’s style.

Reply | Quote

Patrick’s solution is handy for removing a single paragraph mark inside table cells though – the search and replace methods don’t do this.

It doesn’t however fix a table cell that has some text followed by a return and then nothing. To catch those little critters is more complex as you need to delete the paragraph mark which precedes that paragraph without changing the previous paragraph’s style.

Reply | Quote

You can use wildcards &:
Find: ^13{1,}
Replace all: ^p
Then you only need to do it once.

Reply | Quote

…although you may need to do the replace several times if there are consecutive blank lines (at least that’s how it works in Word XP)

Reply | Quote

… simply doing a replace will do it

Search for ^p^p and replace with ^p

Reply | Quote

I already found a solution:

Sub DeleteBadLines()
Application.ScreenUpdating = False
Dim BadLine As Long
With ActiveDocument
For BadLine = .Paragraphs.Count To 1 Step -1
If Len(.Paragraphs(BadLine).Range.Text) < 2 Then
.Paragraphs(BadLine).Range.Delete
End If
Next
End With
Application.ScreenUpdating = True
End Sub

Tanks anyway for thinking with me.

Reply | Quote