Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.tables
|
|||
|
|||
Deleting extra rows in table
I have a table that can be used either in printed form or online. When users
are done entering information online, there are blank rows at the end of the table that need to be deleted. Can someone please give me a macro that just deletes blank lines from the table? Thank you. I tried the macros in otehr postings - and could not get them to work. HELP! |
#2
Posted to microsoft.public.word.tables
|
|||
|
|||
Deleting extra rows in table
Hi Gail,
The following code will delete all blank rows (except for those with vertically merged cells) in all tables in the document: Sub DelBlankRows() Dim Pwd As String Dim oRow As Integer Dim oTable As Table Dim pState As Boolean With ActiveDocument pState = False If .ProtectionType wdNoProtection Then Pwd = "Password" pState = True .Unprotect Pwd End If If .Tables.Count 0 Then For Each oTable In .Tables For oRow = oTable.Rows.Count To 1 Step -1 If Len(Replace(oTable.Rows(oRow).Range.Text, Chr(13) & Chr(7), vbNullString)) = 0 Then On Error Resume Next 'skip vertically merged cells oTable.Rows(oRow).Delete End If Next oRow Next oTable End If If pState = True Then .Protect wdAllowOnlyFormFields, Noreset:=True, Password:=Pwd pState = False Pwd = "" End With End Sub If the document is protected for forms, you'll need to replace "Password" with the real password (if any) Cheers -- macropod [MVP - Microsoft Word] "Gail" wrote in message ... | I have a table that can be used either in printed form or online. When users | are done entering information online, there are blank rows at the end of the | table that need to be deleted. Can someone please give me a macro that just | deletes blank lines from the table? Thank you. I tried the macros in otehr | postings - and could not get them to work. HELP! |
#3
Posted to microsoft.public.word.tables
|
|||
|
|||
Deleting extra rows in table
Thank you - it works perfectly!
"macropod" wrote: Hi Gail, The following code will delete all blank rows (except for those with vertically merged cells) in all tables in the document: Sub DelBlankRows() Dim Pwd As String Dim oRow As Integer Dim oTable As Table Dim pState As Boolean With ActiveDocument pState = False If .ProtectionType wdNoProtection Then Pwd = "Password" pState = True .Unprotect Pwd End If If .Tables.Count 0 Then For Each oTable In .Tables For oRow = oTable.Rows.Count To 1 Step -1 If Len(Replace(oTable.Rows(oRow).Range.Text, Chr(13) & Chr(7), vbNullString)) = 0 Then On Error Resume Next 'skip vertically merged cells oTable.Rows(oRow).Delete End If Next oRow Next oTable End If If pState = True Then .Protect wdAllowOnlyFormFields, Noreset:=True, Password:=Pwd pState = False Pwd = "" End With End Sub If the document is protected for forms, you'll need to replace "Password" with the real password (if any) Cheers -- macropod [MVP - Microsoft Word] "Gail" wrote in message ... | I have a table that can be used either in printed form or online. When users | are done entering information online, there are blank rows at the end of the | table that need to be deleted. Can someone please give me a macro that just | deletes blank lines from the table? Thank you. I tried the macros in otehr | postings - and could not get them to work. HELP! |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
error messages when using table formula after moving column tot's | Tables | |||
Adding rows to a table | Tables | |||
How do I repeat table header rows when the table has section break | Tables | |||
Word 2003: Can one disable table styles? | Tables | |||
Table headers | New Users |