Solved

How do I create a macro that removes empty carriage returns from a Word table cell?

Posted on 2008-11-02
2
361 Views
Last Modified: 2010-04-21
I'm a technical writer and often edit people's Word documents. A common formatting issue is that people place extra carriage returns in their tables. Word has an excellent search/replace facility, but it doesn't have a code for finding the end-of-table-cell character. So, I can remove all double carriage returns (¶¶, or ^p^p) in a cell, but can't remove that final ¶ before the end of the cell. I'd like to create a macro to find and replace "¶ followed by an end-of-table-cell character" with just the end-of-table-cell character. I know this has got to be an extremely simple bit of code but I'm not familiar enough with VBA yet to know what to do. Thanks in advance for any suggestions.
0
Comment
Question by:calyx_teren
2 Comments
 
LVL 76

Accepted Solution

by:
GrahamSkan earned 125 total points
ID: 22863672
I think this will help you.
Sub TidyCells()

    Dim cl As Cell

    Dim tbl As Table

    Dim rng As Range

    

    For Each tbl In ActiveDocument.Tables

        For Each cl In tbl.Range.Cells

            Set rng = cl.Range

            rng.MoveEnd wdCharacter, -1 'moves back from cell formatting character

            Do While Right$(rng.Text, 1) = vbCr 'move back over paragraph marks

                rng.MoveEnd wdCharacter, -1

            Loop

            cl.Range.Text = rng.Text

        Next cl

    Next tbl

End Sub

Open in new window

0
 

Author Closing Comment

by:calyx_teren
ID: 31512516
Thank you very much. This will save me enormous amounts of tedious work, and I learned more about VBA in the bargain. Much appreciated.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
This video shows and describes the main difference between both orientations in Microsoft Word. Viewers will understand when to use each orientation and how to get the most out of them.
The viewer will learn how to make their project stand out over others by learning how to change colors and shapes, add spaces, change directions, and add bullets to their charts.

910 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now