Delete Tables using conditions from Drop Down Field

macropod · #5 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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to delete all empty rows from all tables	braddgood	Word VBA	15	10-02-2015 01:54 PM
Excel to Word and delete certain tables	jon12355	Word VBA	10	10-15-2014 03:01 PM
IF field + Drop-Down list	nightkn8	Word	2	07-02-2014 02:42 AM
Form Field Drop Down List	James Ayers	Word	3	07-14-2013 07:53 PM
using checkboxes to delete tables	atfresh	Word Tables	1	06-19-2011 09:13 PM