Delete Tables using conditions from Drop Down Field

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

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