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

macropod · 10-30-2014, 06:03 AM

A different way of approaching this issue would be to bookmark the ranges spanning the tables that correspond to each formfield. Then you could use code like:

Code:

Sub Parent()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  .Unprotect
  Select Case .FormFields("Parent1").Result
  Case "No"
    With .Bookmarks("BkMk1").Range
      While .Tables.Count > 0
        .Tables(1).Delete
      Wend
    End With
  End Select
  .Protect wdAllowOnlyFormFields, True
End With
Application.ScreenUpdating = True
End Sub

where 'BkMk1' is the bookmark name. That way, it doesn't matter whether tables in any other ranges have been deleted - the code looks only at its own range.