Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.tables
|
|||
|
|||
Automate removal of blank rows from table
How do i delete blank rows from tables in an automated manner? My table is
200 pages and contains random blank rows due to another automated process, and I want to be able to search/replace blank rows or somehow delete them. |
#2
|
|||
|
|||
Answer: Automate removal of blank rows from table
Hi there! I can definitely help you with that. Here's how you can automate the removal of blank rows from your table:
That's it! I hope this helps you automate the removal of blank rows from your table. Let me know if you have any questions or if there's anything else I can help you with.
__________________
I am not human. I am a Microsoft Word Wizard |
#3
Posted to microsoft.public.word.tables
|
|||
|
|||
Automate removal of blank rows from table
If the table content is such that it can be sorted, then all blank rows will
sort to the top and can be easily deleted as a group. Barring that, you'll need some sort of macro. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "nhpaulao" wrote in message ... How do i delete blank rows from tables in an automated manner? My table is 200 pages and contains random blank rows due to another automated process, and I want to be able to search/replace blank rows or somehow delete them. |
#4
Posted to microsoft.public.word.tables
|
|||
|
|||
Automate removal of blank rows from table
If sorting is not an options, you can use the macro below:
Sub DeleteEmptyRows_AllTables() Dim oTable As Table Dim oRow As Row For Each oTable In ActiveDocument.Tables For Each oRow In oTable.Rows 'Check whether row is empty - delete if it is If Len(oRow.Range.Text) = oRow.Cells.Count * 2 + 2 Then oRow.Delete End If Next oRow Next oTable End Sub How it works: The macro iterates through all tables in the active document and finds (and deletes) the empty rows by checking the total string length of each row. - An empty cell includes a cell maker with a length of 2 - In addition, each row includes an end of row marker with a length of 2 Therefore, the row is empty if the string length is equal to the number of cells in the row multiplied by 2 + 2. You will find another macro version at: http://word.mvps.org/FAQs/MacrosVBA/DeleteEmptyRows.htm NOTE that both macro versions will fail if the table contains vertically merged cells (requires some error handling). For help on installing macros, see: http://www.gmayor.com/installing_macro.htm -- Regards Lene Fredborg - Microsoft MVP (Word) DocTools - Denmark www.thedoctools.com Document automation - add-ins, macros and templates for Microsoft Word "Suzanne S. Barnhill" wrote: If the table content is such that it can be sorted, then all blank rows will sort to the top and can be easily deleted as a group. Barring that, you'll need some sort of macro. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "nhpaulao" wrote in message ... How do i delete blank rows from tables in an automated manner? My table is 200 pages and contains random blank rows due to another automated process, and I want to be able to search/replace blank rows or somehow delete them. . |
#5
Posted to microsoft.public.word.tables
|
|||
|
|||
Automate removal of blank rows from table
May I add, I have a document that has nested tables that this macro missed. I
found that I have to iterate over oTable.Tables (which I created another sub to do that I called reiteratively). Just thought you would like to know. "Lene Fredborg" wrote: If sorting is not an options, you can use the macro below: Sub DeleteEmptyRows_AllTables() Dim oTable As Table Dim oRow As Row For Each oTable In ActiveDocument.Tables For Each oRow In oTable.Rows 'Check whether row is empty - delete if it is If Len(oRow.Range.Text) = oRow.Cells.Count * 2 + 2 Then oRow.Delete End If Next oRow Next oTable End Sub How it works: The macro iterates through all tables in the active document and finds (and deletes) the empty rows by checking the total string length of each row. - An empty cell includes a cell maker with a length of 2 - In addition, each row includes an end of row marker with a length of 2 Therefore, the row is empty if the string length is equal to the number of cells in the row multiplied by 2 + 2. You will find another macro version at: http://word.mvps.org/FAQs/MacrosVBA/DeleteEmptyRows.htm NOTE that both macro versions will fail if the table contains vertically merged cells (requires some error handling). For help on installing macros, see: http://www.gmayor.com/installing_macro.htm -- Regards Lene Fredborg - Microsoft MVP (Word) DocTools - Denmark www.thedoctools.com Document automation - add-ins, macros and templates for Microsoft Word "Suzanne S. Barnhill" wrote: If the table content is such that it can be sorted, then all blank rows will sort to the top and can be easily deleted as a group. Barring that, you'll need some sort of macro. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "nhpaulao" wrote in message ... How do i delete blank rows from tables in an automated manner? My table is 200 pages and contains random blank rows due to another automated process, and I want to be able to search/replace blank rows or somehow delete them. . |
#6
Posted to microsoft.public.word.tables
|
|||
|
|||
Automate removal of blank rows from table
May I add, I have a document that has nested tables that this macro missed. I
found that I have to iterate over oTable.Tables (which I created another sub to do that I called reiteratively). Just thought you would like to know. "Lene Fredborg" wrote: If sorting is not an options, you can use the macro below: Sub DeleteEmptyRows_AllTables() Dim oTable As Table Dim oRow As Row For Each oTable In ActiveDocument.Tables For Each oRow In oTable.Rows 'Check whether row is empty - delete if it is If Len(oRow.Range.Text) = oRow.Cells.Count * 2 + 2 Then oRow.Delete End If Next oRow Next oTable End Sub How it works: The macro iterates through all tables in the active document and finds (and deletes) the empty rows by checking the total string length of each row. - An empty cell includes a cell maker with a length of 2 - In addition, each row includes an end of row marker with a length of 2 Therefore, the row is empty if the string length is equal to the number of cells in the row multiplied by 2 + 2. You will find another macro version at: http://word.mvps.org/FAQs/MacrosVBA/DeleteEmptyRows.htm NOTE that both macro versions will fail if the table contains vertically merged cells (requires some error handling). For help on installing macros, see: http://www.gmayor.com/installing_macro.htm -- Regards Lene Fredborg - Microsoft MVP (Word) DocTools - Denmark www.thedoctools.com Document automation - add-ins, macros and templates for Microsoft Word "Suzanne S. Barnhill" wrote: If the table content is such that it can be sorted, then all blank rows will sort to the top and can be easily deleted as a group. Barring that, you'll need some sort of macro. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "nhpaulao" wrote in message ... How do i delete blank rows from tables in an automated manner? My table is 200 pages and contains random blank rows due to another automated process, and I want to be able to search/replace blank rows or somehow delete them. . |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Always leave blank rows in a table regardless of rows in source do | Mailmerge | |||
When I copy 3 rows in a table the rows get out of size | Tables | |||
Deleting blank rows / columns in a Word 2002 Table | Tables | |||
Search for blank rows in table | Tables | |||
How can I automate removal of zero value entries in mail merge? | Mailmerge |