Looping through styles and deleting blank lines

[Nick Ward]

Hi
I've had a good look through past posts and can't seem to find the answer
that will help me solve my problem.
I need to loop through about 5 lines of an address and collapse or delete
any blank lines that are present.

Dim para As Paragraph

For Each para In ActiveDocument.Paragraphs
If Len(para.Range.Text) <= 1 Then
para.Range.Delete
End If

Next

this as I have found deletes all blank lines in the doc but I only want to
delete the ones in the address section. I have assigned a style to each one
of the lines but can't figure out how to loop through each style and delete
where the paragraphs are blank

Any help would be much appreciated

rgds

 

[Jezebel]

Very simple. Instead of ActiveDocument.Paragraphs, you want only the range
containing the address. If you have that selected you could use: For each
para in Selection.Paragraphs

Or if you used a bookmark: For each para in AddressBookmark.Paragraphs

etc

 

[Nick Ward]

Thanks for that

Very simple. Instead of ActiveDocument.Paragraphs, you want only the range
containing the address. If you have that selected you could use: For each
para in Selection.Paragraphs

Or if you used a bookmark: For each para in AddressBookmark.Paragraphs

etc