Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Deleting blank rows in all tables
I need a macro that will look at all tables in a document, then delete any
rows in those tables where the entire row is blank. This is just a start, and does not work. Would someone provide some guidence? thanks in advance. Option Explicit Sub delete_blank_rows() Dim odoc1 As Document Dim lngRow As Long Dim oTable As Table Dim orow As Row Selection.HomeKey Unit:=wdStory If ActiveDocument.Tables.Count = 1 Then Set odoc1 = ActiveDocument For Each oTable In odoc1.Tables For lngRow = oTable.Rows.Count To 1 Step -1 If Selection.Text = "" Then oTable.Rows(lngRow).Delete End If Next lngRow Next oTable End If End Sub |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Blank spaces between tables in word | Tables | |||
disalignment of "header row(s)" in tables? | Tables | |||
Word tables should permit header rows to repeat only on every oth. | Tables | |||
Splitting Rows of tables across page breaks | Microsoft Word Help | |||
Blank spaces between rows | Tables |