Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.word.tables
|
|||
|
|||
Search & Replace
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? . . . |
#2
Posted to microsoft.public.word.tables
|
|||
|
|||
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? . . . . |
#3
Posted to microsoft.public.word.tables
|
|||
|
|||
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? . . . . |
#4
Posted to microsoft.public.word.tables
|
|||
|
|||
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? . . . . |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Selective Replace in Search and Replace | Microsoft Word Help | |||
Search and Insert, Search and Replace, Modify Document Margins | Formatting Long Documents | |||
Search and replace. | Microsoft Word Help | |||
Search and Replace | Microsoft Word Help | |||
Search and Replace | Formatting Long Documents |