Search & Replace

Johann Swart

unread,

Jan 3, 2010, 2:09:01 AM1/3/10

to

In Search & Replace (Find & Replace) where paragraph signs are involved, one
would use ^p in normal text or ^13 when using wild cards.
What are the equivalent codes when using Search & Replace in tables?

Graham Mayor

unread,

Jan 3, 2010, 2:42:28 AM1/3/10

to

Paragraph breaks are paragraph breaks wherever they are in the document.
What *exactly* are you trying to do?

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

"Johann Swart" <Johan...@discussions.microsoft.com> wrote in message
news:C8C7DDA4-987A-4DE9...@microsoft.com...

macropod

unread,

Jan 3, 2010, 3:57:50 AM1/3/10

to

Hi Johann,

You can also use ^10 with wildcards, and this works with the table cell markers as well.

--
Cheers
macropod
[Microsoft MVP - Word]

"Johann Swart" <Johan...@discussions.microsoft.com> wrote in message news:C8C7DDA4-987A-4DE9...@microsoft.com...

DeanH

unread,

Jan 4, 2010, 4:43:01 AM1/4/10

to

Hello Macropod (Happy New Year)
This ^10 does not work in the Find/Replace with wildcards checked.
I have 2003 on XP, should this work?
I have for many years wanted to find the code for the cell markers with no
joy, so any calification would be much appreciated.
Many thanks
DeanH

"macropod" wrote:

> .
>

DeanH

unread,

Jan 4, 2010, 4:51:01 AM1/4/10

to

Sorry, to clarify.
^10 does work but not on its own or with a space before.
As previously described in a previous posting, if you search for Wa^10 -
this will be found, But [space]^10 will not be found, any space will be found.
I have noticed Doug's macro and may have a play with that, any other ideas?
Thanks
DeanH

macropod

unread,

Jan 4, 2010, 5:05:03 AM1/4/10

to

Hi Dean,

Works fine in Word 2000. It seems to be just another thing that took a backward step with later versions ...

--
Cheers
macropod
[Microsoft MVP - Word]

"DeanH" <De...@discussions.microsoft.com> wrote in message news:E468DE5C-C572-41DA...@microsoft.com...

Johann Swart

unread,

Jan 4, 2010, 6:22:01 AM1/4/10

to

Hi Graham,
Apologies; I expressed myself incorrectly. I am not referring to paragraph
breaks (¶) in table cell, but to the actual cell marker (¤).
I have several documents that contain tables with a space or spaces between
the last character and the cell marker that I need to remove (quite laborious
in a 100-page document riddled with tables).
The ^10 suggested by DeanH does not do it either. I have tried a number of
permutations, and frankly, some weird things happen.

"Graham Mayor" wrote:

> .
>

DeanH

unread,

Jan 4, 2010, 6:38:01 AM1/4/10

to

Johann.
It was Macropod that suggested the ^10, and as you say this does not work
this [space]^10. I am still hoping for a solution.
What can work though if you are purely wanting to get rid of the superfluous
space before the cell end marker is to use the "old" trick of selecting the
text, align centre then align left (or left then centre). This will remove
all superfluous spaces, tabs, etc. at the end of paragraphs selected.
This works well, but obviously enusre that you select the text only not the
whole table, else the table itself will be aligned. I tend to select by
column, say columns 1 and 2 out of a 3-column table, do the trick, the n
select column 3 on its own, do the trick.
Not the best but does work well.
Lets see if anyone else can help with the Replace on [space] Cell End Marker.
Hope this helps
DeanH

Graham Mayor

unread,

Jan 4, 2010, 8:28:24 AM1/4/10

to

The following macro will clear trailing spaces from all the cells in the
table containing the cursor

Dim oRng As Range
With Selection.Tables(1)
For i = 1 To .Rows.Count
For j = 1 To .Columns.Count
Set oRng = .Cell(i, j).Range
oRng.End = oRng.End - 1
oRng.Text = RTrim(oRng.Text)
Next j
Next i
End With

If you want to clear leading and trailing spaces change RTrim for Trim

Note that if you select the table and Click CTRL+E then CTRL+L all leading
and trailing white space will be cleared from the table.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

"Johann Swart" <Johan...@discussions.microsoft.com> wrote in message

news:3A803511-34E7-49A3...@microsoft.com...

Graham Mayor

unread,

Jan 4, 2010, 8:32:50 AM1/4/10

to

To process all the tables change that to

Dim oRng As Range
Dim oTable As Table
For Each oTable In ActiveDocument.Tables
With oTable

For i = 1 To .Rows.Count
For j = 1 To .Columns.Count
Set oRng = .Cell(i, j).Range
oRng.End = oRng.End - 1
oRng.Text = RTrim(oRng.Text)
Next j
Next i
End With

Next oTable

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

"Graham Mayor" <gma...@REMOVETHISmvps.org> wrote in message
news:Oo3xIHUj...@TK2MSFTNGP06.phx.gbl...

Pamelia Caswell via OfficeKB.com

unread,

Jan 4, 2010, 11:57:09 AM1/4/10

to

I just tried searching for " face^10", "face ^10", and " ^10" in W2009. All
work with wild cards enabled. It selects only up to the end of cell
marker—probably because the marker cannot be manipulated. It also replaces
only up to the end of cell marker.

Thanks, Paul.

Pam

macropod wrote:
>Hi Dean,
>
>Works fine in Word 2000. It seems to be just another thing that took a backward step with later versions ...
>

>> Sorry, to clarify.
>> ^10 does work but not on its own or with a space before.

>[quoted text clipped - 20 lines]

>>> > > What are the equivalent codes when using Search & Replace in tables?
>>> > .

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-tables/201001/1

Pamelia Caswell via OfficeKB.com

unread,

Jan 4, 2010, 3:21:39 PM1/4/10

to

It also works with " {1,}^10. I too have had to delete trailing spaces from
dozens of tables and hundreds of cells—by hand. So this could be a big help.

Pam

Pamelia Caswell wrote:
>I just tried searching for " face^10", "face ^10", and " ^10" in W2009. All
>work with wild cards enabled. It selects only up to the end of cell
>marker—probably because the marker cannot be manipulated. It also replaces
>only up to the end of cell marker.
>
>Thanks, Paul.
>
>Pam
>

>>Hi Dean,
>>
>[quoted text clipped - 5 lines]

DeanH

unread,

Jan 5, 2010, 3:34:01 AM1/5/10

to

Hi Pamela.
Unfortuantely, this still does not work, it finds any space in the table,
not just a space next to the Cell End Marker, which is what is required. Oh
well never mind.
Thanks anyway.

DeanH

> .
>

DeanH

unread,

Jan 5, 2010, 3:46:01 AM1/5/10

to

Hello Graham.
Many thanks for these two macros.
Unfortunately both fail at:
Set oRng = .Cell(I, j).Range

Any ideas?
DeanH

"Graham Mayor" wrote:

> .
>

Graham Mayor

unread,

Jan 5, 2010, 4:22:48 AM1/5/10

to

The thing that occurs is that you may have merged cells in your table. The
macros will not work with merged or split cells.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

"DeanH" <De...@discussions.microsoft.com> wrote in message

news:FB116B83-423C-4D89...@microsoft.com...

DeanH

unread,

Jan 5, 2010, 5:11:01 AM1/5/10

to

Graham, yep that was it, two cells in the header row were merged in the test
table.
Many thanks
DeanH

"Graham Mayor" wrote:

> .
>

Doug Robbins - Word MVP

unread,

Jan 5, 2010, 5:31:16 AM1/5/10

to

Note that you can step through all of the cells of a table that contains
merged cells by using

Dim acell As Cell
For Each acell In ActiveDocument.Tables(1).Range.Cells
'Do something with each cell
Next acell

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"DeanH" <De...@discussions.microsoft.com> wrote in message

news:E7F169EA-7B9E-46FC...@microsoft.com...

Graham Mayor

unread,

Jan 5, 2010, 7:20:09 AM1/5/10

to

Good thinking - that would equate to

Dim oRng As Range
Dim oTable As Table

Dim acell As Cell

For Each oTable In ActiveDocument.Tables
With oTable

For Each acell In oTable.Range.Cells
Set oRng = acell.Range

oRng.End = oRng.End - 1
oRng.Text = RTrim(oRng.Text)

Next acell
End With
Next oTable

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

"Doug Robbins - Word MVP" <d...@REMOVECAPSmvps.org> wrote in message
news:395BF82D-2682-43CE...@microsoft.com...

Johann Swart

unread,

Jan 5, 2010, 7:30:01 AM1/5/10

to

So then, it would appear as though there is no "one size fits all" solution.
Many thanks to all contributors!

Doug Robbins - Word MVP

unread,

Jan 5, 2010, 2:37:15 PM1/5/10

to

I believe that the code posted by Graham will work for all of the "sizes"
mentioned. What other "sizes" were you thinking about.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"Johann Swart" <Johan...@discussions.microsoft.com> wrote in message
news:7F8E9860-4BB7-4516...@microsoft.com...

macropod

unread,

Jan 5, 2010, 4:00:23 PM1/5/10

to

W2009?

--
Cheers
macropod
[Microsoft MVP - Word]

"Pamelia Caswell via OfficeKB.com" <u43222@uwe> wrote in message news:a19d92a8b0b2c@uwe...

Pamelia Caswell via OfficeKB.com

unread,

Jan 5, 2010, 7:51:10 PM1/5/10

to

2007. Fingers slipped. And I'm very disappointed that ^10 doesn't work in
W2007.

Pam

macropod wrote:
>W2009?

>
>>I just tried searching for " face^10", "face ^10", and " ^10" in W2009. All
>> work with wild cards enabled. It selects only up to the end of cell

>[quoted text clipped - 14 lines]

>>>>> > > What are the equivalent codes when using Search & Replace in tables?
>>>>> > .

--
Message posted via http://www.officekb.com

Johann Swart

unread,

Jan 8, 2010, 5:37:01 AM1/8/10

to

Graham Mayor posted a macro that clears tables of leading and trailing spaces.
Before I could put it to the test, DeanH wrote that he experienced failure
of this macro, which was then attributed to merged cells.
Doug Robbins then posted a macro to find merged cells, and then to manually
do whatever is required.
Both macros are certainly valuable and will help me a great deal; many
thanks Graham.
As my tables are riddled with merged cells, it will still require a
significant degree of "manual labour" to take care of merged cells
separately; hence my "one size..." (read "one macro") comment.
Again, sincere thanks. It certainly beats inspecting thousands of cells one
by one.

> .
>

DeanH

unread,

Jan 8, 2010, 6:37:02 AM1/8/10

to

Hi Johann. The revised macro with the "acell" works very well with merged
cells.
I have tested this with some very complex tables and no problems have been
noticed.
Graham - many thanks.
DeanH

Johann Swart

unread,

Jan 11, 2010, 4:01:01 AM1/11/10

to

Suddenly the lights went on! Thanks Dean.

David Turner

unread,

Mar 18, 2010, 3:01:01 PM3/18/10

to

"Graham Mayor" wrote:

> Good thinking - that would equate to
>
> Dim oRng As Range
> Dim oTable As Table
> Dim acell As Cell
> For Each oTable In ActiveDocument.Tables
> With oTable
> For Each acell In oTable.Range.Cells
> Set oRng = acell.Range
> oRng.End = oRng.End - 1
> oRng.Text = RTrim(oRng.Text)
> Next acell
> End With
> Next oTable
>
> --
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> Graham Mayor - Word MVP
>
> My web site www.gmayor.com
> Word MVP web site http://word.mvps.org
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Might be best to first check whether there is actually a space before the
end of cell marker to avoid unnecessary trimming.

Sub RemSpaceBeforeCellMarker()

Dim oRng As Range
Dim oTable As Table
Dim acell As Cell
For Each oTable In ActiveDocument.Tables
With oTable
For Each acell In oTable.Range.Cells
Set oRng = acell.Range
oRng.End = oRng.End - 1

If Right(oRng.Text, 1) = " " Then
oRng.Text = RTrim(oRng.Text)
End If

Next acell
End With
Next oTable

End Sub

Graham Mayor

unread,

Mar 19, 2010, 2:37:55 AM3/19/10

to

"David Turner" <David...@discussions.microsoft.com> wrote in message
news:06160F4B-06AA-45B2...@microsoft.com...

>
> Might be best to first check whether there is actually a space before the
> end of cell marker to avoid unnecessary trimming.

If there is no space nothing is trimmed, so the extra test would appear
superfluous?

Peter Cooper

unread,

Jan 19, 2011, 9:44:29 AM1/19/11

to

Thanks for the question and comments, as I have to do similar things. As I have sometimes done before, I have decided to convert the table to text, with tabs. Then Replace, and convert back to a table. The Replace behaviour seems more understandable and controllable then.

> On Sunday, January 03, 2010 2:09 AM Johann Swart wrote:

> In Search & Replace (Find & Replace) where paragraph signs are involved, one
> would use ^p in normal text or ^13 when using wild cards.
> What are the equivalent codes when using Search & Replace in tables?

>> On Sunday, January 03, 2010 2:42 AM Graham Mayor wrote:

>> Paragraph breaks are paragraph breaks wherever they are in the document.
>> What *exactly* are you trying to do?
>>
>> --
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>> Graham Mayor - Word MVP
>>
>> My web site www.gmayor.com
>> Word MVP web site http://word.mvps.org
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>

>>> On Sunday, January 03, 2010 3:57 AM macropod wrote:

>>> Hi Johann,
>>>
>>> You can also use ^10 with wildcards, and this works with the table cell markers as well.
>>>

>>> --
>>> Cheers
>>> macropod
>>> [Microsoft MVP - Word]

>>>> On Monday, January 04, 2010 4:43 AM DeanH wrote:

>>>> Hello Macropod (Happy New Year)
>>>> This ^10 does not work in the Find/Replace with wildcards checked.
>>>> I have 2003 on XP, should this work?
>>>> I have for many years wanted to find the code for the cell markers with no
>>>> joy, so any calification would be much appreciated.
>>>> Many thanks
>>>> DeanH
>>>>
>>>>
>>>> "macropod" wrote:

>>>>> On Monday, January 04, 2010 4:51 AM DeanH wrote:

>>>>> Sorry, to clarify.
>>>>> ^10 does work but not on its own or with a space before.

>>>>> As previously described in a previous posting, if you search for Wa^10 -
>>>>> this will be found, But [space]^10 will not be found, any space will be found.
>>>>> I have noticed Doug's macro and may have a play with that, any other ideas?
>>>>> Thanks
>>>>> DeanH
>>>>>
>>>>>
>>>>> "DeanH" wrote:

>>>>>> On Monday, January 04, 2010 5:05 AM macropod wrote:

>>>>>> Hi Dean,
>>>>>>
>>>>>> Works fine in Word 2000. It seems to be just another thing that took a backward step with later versions ...
>>>>>>

>>>>>> --
>>>>>> Cheers
>>>>>> macropod
>>>>>> [Microsoft MVP - Word]

>>>>>>> On Monday, January 04, 2010 6:22 AM Johann Swart wrote:

>>>>>>> Hi Graham,
>>>>>>> Apologies; I expressed myself incorrectly. I am not referring to paragraph

>>>>>>> breaks (??) in table cell, but to the actual cell marker (??).

>>>>>>> I have several documents that contain tables with a space or spaces between
>>>>>>> the last character and the cell marker that I need to remove (quite laborious
>>>>>>> in a 100-page document riddled with tables).
>>>>>>> The ^10 suggested by DeanH does not do it either. I have tried a number of
>>>>>>> permutations, and frankly, some weird things happen.
>>>>>>>
>>>>>>> "Graham Mayor" wrote:

>>>>>>>> On Monday, January 04, 2010 6:38 AM DeanH wrote:

>>>>>>>> Johann.
>>>>>>>> It was Macropod that suggested the ^10, and as you say this does not work
>>>>>>>> this [space]^10. I am still hoping for a solution.
>>>>>>>> What can work though if you are purely wanting to get rid of the superfluous
>>>>>>>> space before the cell end marker is to use the "old" trick of selecting the
>>>>>>>> text, align centre then align left (or left then centre). This will remove
>>>>>>>> all superfluous spaces, tabs, etc. at the end of paragraphs selected.
>>>>>>>> This works well, but obviously enusre that you select the text only not the
>>>>>>>> whole table, else the table itself will be aligned. I tend to select by
>>>>>>>> column, say columns 1 and 2 out of a 3-column table, do the trick, the n
>>>>>>>> select column 3 on its own, do the trick.
>>>>>>>> Not the best but does work well.
>>>>>>>> Lets see if anyone else can help with the Replace on [space] Cell End Marker.
>>>>>>>> Hope this helps
>>>>>>>> DeanH
>>>>>>>>
>>>>>>>>
>>>>>>>> "Johann Swart" wrote:

>>>>>>>>>>> On Monday, January 04, 2010 11:57 AM Pamelia Caswell via OfficeKB.com wrote:

>>>>>>>>>>> I just tried searching for " face^10", "face ^10", and " ^10" in W2009. All
>>>>>>>>>>> work with wild cards enabled. It selects only up to the end of cell

>>>>>>>>>>> marker???probably because the marker cannot be manipulated. It also replaces

>>>>>>>>>>> only up to the end of cell marker.
>>>>>>>>>>>
>>>>>>>>>>> Thanks, Paul.
>>>>>>>>>>>
>>>>>>>>>>> Pam
>>>>>>>>>>>
>>>>>>>>>>> macropod wrote:
>>>>>>>>>>>
>>>>>>>>>>> --
>>>>>>>>>>> Message posted via OfficeKB.com
>>>>>>>>>>> http://www.officekb.com/Uwe/Forums.aspx/word-tables/201001/1

>>>>>>>>>>>> On Monday, January 04, 2010 3:21 PM Pamelia Caswell via OfficeKB.com wrote:

>>>>>>>>>>>> It also works with " {1,}^10. I too have had to delete trailing spaces from

>>>>>>>>>>>> dozens of tables and hundreds of cells???by hand. So this could be a big help.
>>>>>>>>>>>>
>>>>>>>>>>>>
>>>>>>>>>>>> Pam

>>>>>>>>>>>>
>>>>>>>>>>>>
>>>>>>>>>>>>
>>>>>>>>>>>>
>>>>>>>>>>>> Pamelia Caswell wrote:
>>>>>>>>>>>>
>>>>>>>>>>>> --
>>>>>>>>>>>> Message posted via OfficeKB.com
>>>>>>>>>>>> http://www.officekb.com/Uwe/Forums.aspx/word-tables/201001/1

>>>>>>>>>>>>> On Tuesday, January 05, 2010 3:34 AM DeanH wrote:

>>>>>>>>>>>>> Hi Pamela.
>>>>>>>>>>>>> Unfortuantely, this still does not work, it finds any space in the table,
>>>>>>>>>>>>> not just a space next to the Cell End Marker, which is what is required. Oh
>>>>>>>>>>>>> well never mind.
>>>>>>>>>>>>> Thanks anyway.
>>>>>>>>>>>>>
>>>>>>>>>>>>> DeanH
>>>>>>>>>>>>>
>>>>>>>>>>>>>
>>>>>>>>>>>>> "Pamelia Caswell via OfficeKB.com" wrote:

>>>>>>>>>>>>>> On Tuesday, January 05, 2010 3:46 AM DeanH wrote:

>>>>>>>>>>>>>> Hello Graham.
>>>>>>>>>>>>>> Many thanks for these two macros.
>>>>>>>>>>>>>> Unfortunately both fail at:
>>>>>>>>>>>>>> Set oRng = .Cell(I, j).Range
>>>>>>>>>>>>>>
>>>>>>>>>>>>>> Any ideas?
>>>>>>>>>>>>>> DeanH
>>>>>>>>>>>>>>
>>>>>>>>>>>>>>
>>>>>>>>>>>>>> "Graham Mayor" wrote:

>>>>>>>>>>>>>>> On Tuesday, January 05, 2010 4:22 AM Graham Mayor wrote:

>>>>>>>>>>>>>>> The thing that occurs is that you may have merged cells in your table. The
>>>>>>>>>>>>>>> macros will not work with merged or split cells.
>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>> --
>>>>>>>>>>>>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>>>>>>>>>>>>>> Graham Mayor - Word MVP
>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>> My web site www.gmayor.com
>>>>>>>>>>>>>>> Word MVP web site http://word.mvps.org
>>>>>>>>>>>>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>

>>>>>>>>>>>>>>>> On Tuesday, January 05, 2010 5:11 AM DeanH wrote:

>>>>>>>>>>>>>>>> Graham, yep that was it, two cells in the header row were merged in the test
>>>>>>>>>>>>>>>> table.
>>>>>>>>>>>>>>>> Many thanks
>>>>>>>>>>>>>>>> DeanH
>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>> "Graham Mayor" wrote:

>>>>>>>>>>>>>>>>> On Tuesday, January 05, 2010 5:31 AM Doug Robbins - Word MVP wrote:

>>>>>>>>>>>>>>>>> Note that you can step through all of the cells of a table that contains
>>>>>>>>>>>>>>>>> merged cells by using
>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>> Dim acell As Cell
>>>>>>>>>>>>>>>>> For Each acell In ActiveDocument.Tables(1).Range.Cells
>>>>>>>>>>>>>>>>> 'Do something with each cell
>>>>>>>>>>>>>>>>> Next acell
>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>> --
>>>>>>>>>>>>>>>>> Hope this helps.
>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>> Please reply to the newsgroup unless you wish to avail yourself of my
>>>>>>>>>>>>>>>>> services on a paid consulting basis.
>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

>>>>>>>>>>>>>>>>>> On Tuesday, January 05, 2010 7:20 AM Graham Mayor wrote:

>>>>>>>>>>>>>>>>>> Good thinking - that would equate to

>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>> Dim oRng As Range
>>>>>>>>>>>>>>>>>> Dim oTable As Table

>>>>>>>>>>>>>>>>>> Dim acell As Cell

>>>>>>>>>>>>>>>>>> For Each oTable In ActiveDocument.Tables
>>>>>>>>>>>>>>>>>> With oTable

>>>>>>>>>>>>>>>>>> For Each acell In oTable.Range.Cells
>>>>>>>>>>>>>>>>>> Set oRng = acell.Range

>>>>>>>>>>>>>>>>>> oRng.End = oRng.End - 1
>>>>>>>>>>>>>>>>>> oRng.Text = RTrim(oRng.Text)

>>>>>>>>>>>>>>>>>> Next acell

>>>>>>>>>>>>>>>>>> End With
>>>>>>>>>>>>>>>>>> Next oTable
>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>> --
>>>>>>>>>>>>>>>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>>>>>>>>>>>>>>>>> Graham Mayor - Word MVP
>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>> My web site www.gmayor.com
>>>>>>>>>>>>>>>>>> Word MVP web site http://word.mvps.org
>>>>>>>>>>>>>>>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>

>>>>>>>>>>>>>>>>>>> On Tuesday, January 05, 2010 7:30 AM Johann Swart wrote:

>>>>>>>>>>>>>>>>>>> So then, it would appear as though there is no "one size fits all" solution.
>>>>>>>>>>>>>>>>>>> Many thanks to all contributors!
>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>> "Doug Robbins - Word MVP" wrote:

>>>>>>>>>>>>>>>>>>>> On Tuesday, January 05, 2010 2:37 PM Doug Robbins - Word MVP wrote:

>>>>>>>>>>>>>>>>>>>> I believe that the code posted by Graham will work for all of the "sizes"
>>>>>>>>>>>>>>>>>>>> mentioned. What other "sizes" were you thinking about.
>>>>>>>>>>>>>>>>>>>>

>>>>>>>>>>>>>>>>>>>> --
>>>>>>>>>>>>>>>>>>>> Hope this helps.
>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>> Please reply to the newsgroup unless you wish to avail yourself of my
>>>>>>>>>>>>>>>>>>>> services on a paid consulting basis.
>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

>>>>>>>>>>>>>>>>>>>>> On Tuesday, January 05, 2010 4:00 PM macropod wrote:

>>>>>>>>>>>>>>>>>>>>> W2009?
>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>> --
>>>>>>>>>>>>>>>>>>>>> Cheers
>>>>>>>>>>>>>>>>>>>>> macropod
>>>>>>>>>>>>>>>>>>>>> [Microsoft MVP - Word]

>>>>>>>>>>>>>>>>>>>>>> On Tuesday, January 05, 2010 7:51 PM Pamelia Caswell via OfficeKB.com wrote:

>>>>>>>>>>>>>>>>>>>>>> 2007. Fingers slipped. And I am very disappointed that ^10 does not work in

>>>>>>>>>>>>>>>>>>>>>> W2007.
>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>> Pam
>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>> macropod wrote:
>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>> --
>>>>>>>>>>>>>>>>>>>>>> Message posted via http://www.officekb.com

>>>>>>>>>>>>>>>>>>>>>>> On Friday, January 08, 2010 5:37 AM Johann Swart wrote:

>>>>>>>>>>>>>>>>>>>>>>> Graham Mayor posted a macro that clears tables of leading and trailing spaces.
>>>>>>>>>>>>>>>>>>>>>>> Before I could put it to the test, DeanH wrote that he experienced failure
>>>>>>>>>>>>>>>>>>>>>>> of this macro, which was then attributed to merged cells.
>>>>>>>>>>>>>>>>>>>>>>> Doug Robbins then posted a macro to find merged cells, and then to manually
>>>>>>>>>>>>>>>>>>>>>>> do whatever is required.
>>>>>>>>>>>>>>>>>>>>>>> Both macros are certainly valuable and will help me a great deal; many
>>>>>>>>>>>>>>>>>>>>>>> thanks Graham.
>>>>>>>>>>>>>>>>>>>>>>> As my tables are riddled with merged cells, it will still require a
>>>>>>>>>>>>>>>>>>>>>>> significant degree of "manual labour" to take care of merged cells
>>>>>>>>>>>>>>>>>>>>>>> separately; hence my "one size..." (read "one macro") comment.
>>>>>>>>>>>>>>>>>>>>>>> Again, sincere thanks. It certainly beats inspecting thousands of cells one
>>>>>>>>>>>>>>>>>>>>>>> by one.
>>>>>>>>>>>>>>>>>>>>>>>

>>>>>>>>>>>>>>>>>>>>>>> "Doug Robbins - Word MVP" wrote:

>>>>>>>>>>>>>>>>>>>>>>>> On Friday, January 08, 2010 6:37 AM DeanH wrote:

>>>>>>>>>>>>>>>>>>>>>>>> Hi Johann. The revised macro with the "acell" works very well with merged
>>>>>>>>>>>>>>>>>>>>>>>> cells.
>>>>>>>>>>>>>>>>>>>>>>>> I have tested this with some very complex tables and no problems have been
>>>>>>>>>>>>>>>>>>>>>>>> noticed.
>>>>>>>>>>>>>>>>>>>>>>>> Graham - many thanks.
>>>>>>>>>>>>>>>>>>>>>>>> DeanH
>>>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>>>> "Johann Swart" wrote:

>>>>>>>>>>>>>>>>>>>>>>>>> On Monday, January 11, 2010 4:01 AM Johann Swart wrote:

>>>>>>>>>>>>>>>>>>>>>>>>> Suddenly the lights went on! Thanks Dean.
>>>>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>>>>> "DeanH" wrote:

>>>>>>>>>>>>>>>>>>>>>>>>>> On Thursday, March 18, 2010 3:01 PM David Turner wrote:

>>>>>>>>>>>>>>>>>>>>>>>>>> "Graham Mayor" wrote:
>>>>>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>>>>>> Might be best to first check whether there is actually a space before the
>>>>>>>>>>>>>>>>>>>>>>>>>> end of cell marker to avoid unnecessary trimming.
>>>>>>>>>>>>>>>>>>>>>>>>>>

>>>>>>>>>>>>>>>>>>>>>>>>>> Sub RemSpaceBeforeCellMarker()

>>>>>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>>>>>> Dim oRng As Range
>>>>>>>>>>>>>>>>>>>>>>>>>> Dim oTable As Table

>>>>>>>>>>>>>>>>>>>>>>>>>> Dim acell As Cell

>>>>>>>>>>>>>>>>>>>>>>>>>> For Each oTable In ActiveDocument.Tables
>>>>>>>>>>>>>>>>>>>>>>>>>> With oTable

>>>>>>>>>>>>>>>>>>>>>>>>>> For Each acell In oTable.Range.Cells
>>>>>>>>>>>>>>>>>>>>>>>>>> Set oRng = acell.Range

>>>>>>>>>>>>>>>>>>>>>>>>>> oRng.End = oRng.End - 1

>>>>>>>>>>>>>>>>>>>>>>>>>> If Right(oRng.Text, 1) = " " Then
>>>>>>>>>>>>>>>>>>>>>>>>>> oRng.Text = RTrim(oRng.Text)
>>>>>>>>>>>>>>>>>>>>>>>>>> End If
>>>>>>>>>>>>>>>>>>>>>>>>>> Next acell
>>>>>>>>>>>>>>>>>>>>>>>>>> End With
>>>>>>>>>>>>>>>>>>>>>>>>>> Next oTable
>>>>>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>>>>>> End Sub

>>>>>>>>>>>>>>>>>>>>>>>>>>> On Friday, March 19, 2010 2:37 AM Graham Mayor wrote:

>>>>>>>>>>>>>>>>>>>>>>>>>>> If there is no space nothing is trimmed, so the extra test would appear
>>>>>>>>>>>>>>>>>>>>>>>>>>> superfluous?
>>>>>>>>>>>>>>>>>>>>>>>>>>>

>>>>>>>>>>>>>>>>>>>>>>>>>>> --
>>>>>>>>>>>>>>>>>>>>>>>>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>>>>>>>>>>>>>>>>>>>>>>>>>> Graham Mayor - Word MVP
>>>>>>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>>>>>>> My web site www.gmayor.com
>>>>>>>>>>>>>>>>>>>>>>>>>>> Word MVP web site http://word.mvps.org
>>>>>>>>>>>>>>>>>>>>>>>>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>

>>>>>>>>>>>>>>>>>>>>>>>>>>> Submitted via EggHeadCafe
>>>>>>>>>>>>>>>>>>>>>>>>>>> Excel Generate High Quality RoadMaps
>>>>>>>>>>>>>>>>>>>>>>>>>>> http://www.eggheadcafe.com/tutorials/aspnet/3310004f-e1ae-45a7-9bea-7b2b970d1230/excel-generate-high-quality-roadmaps.aspx