View Single Post
  #14  
Old January 5th, 2010, 09:46 AM posted to microsoft.public.word.tables
DeanH
external usenet poster
 
Posts: 1,783
Default Search & Replace

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

Any ideas?
DeanH


"Graham Mayor" wrote:

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" wrote in message
...
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" wrote in message
...
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:

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" wrote in message
...
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?


.





.