Microsoft Office Forums - View Single Post - [Solved] Delete Rows in Protected Table with Form Fields

macropod · 04-05-2013, 02:10 PM

Hi Elan05,

Your document has multiple tables. You could achieve what you're after simply by changing .Tables(1).Rows to .Tables(2).Rows, though if you had a schedule with no items, the code would produce an error as the 3rd row has no formfields. The modified code below runs without producing an error in such cases:

Code:

Sub DeleteEmptyRows()
'Delete empty rows in the table after all equipment has been entered
Application.ScreenUpdating = False
Dim StrPwd As String
StrPwd = ""
With ActiveDocument
  If .ProtectionType = wdAllowOnlyFormFields Then .Unprotect Password:=StrPwd
  With .Tables(2).Rows
    Do While .Last.Range.FormFields.Count > 0
      If .Last.Range.FormFields(1).Result = "" Then
        .Last.Delete
      Else
        Exit Do
      End If
    Loop
  End With
  .Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=StrPwd
End With
Application.ScreenUpdating = True
End Sub