Quote:
Originally Posted by macropod
|
I managed in the end using this
Code:
Sub HideRowWhereSecondColumnBlank()
Dim Pwd As String
Dim oRow As Integer
Dim oTable As Table
Dim iTable As Table
Dim pState As Boolean
With ActiveDocument
pState = False
If .Tables.Count > 0 Then
For Each iTable In .Tables
If iTable.Tables.Count > 0 Then
For Each oTable In iTable.Tables
For oRow = oTable.Rows.Count To 1 Step -1
If Len(Replace(oTable.Cell(oRow, 2).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
Next iTable
End If
If pState = True Then .Protect wdAllowOnlyFormFields, Noreset:=True, Password:=Pwd
pState = False
Pwd = ""
End With
End Sub