Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 516
  • Last Modified:

Macro to delete empty paragraph marks is also deleting section breaks

I am trying to get rid of extra paragraph marks in a Word document. I have a macro that will delete all the empty paragraph marks in the document, but the problem is that it also deletes section breaks if they are right above the empty paragraph mark.

Is there a way to change the macro so that only the paragraph marks are deleted, not the section breaks above them?

Here's my code:

' Delete all empty paragraphs
For Each currPara In ActiveDocument.Paragraphs
    If Len(Trim$(currPara.Range.Text)) = 1 Then
        currPara.Range.Delete
    End If
Next
0
sehenkel
Asked:
sehenkel
  • 2
1 Solution
 
Tommy KinardCommented:
Hi sehenkel,

For Each currPara In ActiveDocument.Paragraphs
    If Len(Trim$(currPara.Range.Text)) = 1 Then
        currPara.Delete Unit:=wdCharacter, Count:=1
    End If
Next

Let me know if more help is required
dragontooth

0
 
Tommy KinardCommented:
The code I posted worked for me. No clue if it answered the question.

dragontooth

0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now