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. |
|
|
Thread Tools | Display Modes |
#21
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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 | |
|
|