Solved

Macro to delete empty paragraph marks is also deleting section breaks

Posted on 2004-04-30
3
491 Views
Last Modified: 2012-05-04
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
Comment
Question by:sehenkel
  • 2
3 Comments
 
LVL 14

Accepted Solution

by:
Tommy Kinard earned 300 total points
ID: 10960805
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
 
LVL 14

Expert Comment

by:Tommy Kinard
ID: 11259655
The code I posted worked for me. No clue if it answered the question.

dragontooth

0

Featured Post

What is SQL Server and how does it work?

The purpose of this paper is to provide you background on SQL Server. It’s your self-study guide for learning fundamentals. It includes both the history of SQL and its technical basics. Concepts and definitions will form the solid foundation of your future DBA expertise.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question