Microsoft Office Forums - View Single Post - Delete Tables using conditions from Drop Down Field

macropod · 10-20-2014, 05:12 AM

Try:

Code:

Sub Parent()
Application.ScreenUpdating = False
Dim i As Long
ActiveDocument.Unprotect
Select Case ActiveDocument.FormFields("Parent1").Result
Case "No"
  For i = 14 To 10 Step -1
    ActiveDocument.Tables(i).Delete
  Next
End Select
ActiveDocument.Protect wdAllowOnlyFormFields, True
Application.ScreenUpdating = True
End Sub

PS: When posting code, please use the code tags (added via the # symbol on the posting menu).