A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Word » Tables
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Search & Replace



 
 
Thread Tools Display Modes
  #21  
Old January 5th, 2010, 10:00 PM posted to microsoft.public.word.tables
macropod[_2_]
external usenet poster
 
Posts: 2,402
Default Search & Replace

W2009?

--
Cheers
macropod
[Microsoft MVP - Word]


"Pamelia Caswell via OfficeKB.com" u43222@uwe wrote in message news:a19d92a8b0b2c@uwe...
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.a...ables/201001/1


  #22  
Old January 6th, 2010, 01:51 AM posted to microsoft.public.word.tables
Pamelia Caswell via OfficeKB.com
external usenet poster
 
Posts: 404
Default Search & Replace

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

  #23  
Old January 8th, 2010, 11:37 AM posted to microsoft.public.word.tables
Johann Swart
external usenet poster
 
Posts: 41
Default Search & Replace

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:

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

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" wrote in message
...
Graham, yep that was it, two cells in the header row were merged in
the
test
table.
Many thanks
DeanH


"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



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


.





.



.

.

  #24  
Old January 8th, 2010, 12:37 PM posted to microsoft.public.word.tables
DeanH
external usenet poster
 
Posts: 1,783
Default Search & Replace

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:

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:

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

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" wrote in message
...
Graham, yep that was it, two cells in the header row were merged in
the
test
table.
Many thanks
DeanH


"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



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


.





.



.

.

  #25  
Old January 11th, 2010, 10:01 AM posted to microsoft.public.word.tables
Johann Swart
external usenet poster
 
Posts: 41
Default Search & Replace

Suddenly the lights went on! Thanks Dean.

"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:

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:

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

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" wrote in message
...
Graham, yep that was it, two cells in the header row were merged in
the
test
table.
Many thanks
DeanH


"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



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


.





.



.

.

  #26  
Old March 18th, 2010, 08:01 PM posted to microsoft.public.word.tables
David Turner
external usenet poster
 
Posts: 1
Default Search & Replace



"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
  #27  
Old March 19th, 2010, 07:37 AM posted to microsoft.public.word.tables
Graham Mayor
external usenet poster
 
Posts: 18,297
Default Search & Replace


"David Turner" wrote in message
...

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?

--

Graham Mayor - Word MVP

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



 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 12:44 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.