-2
Sub delete_table()
Dim cctr as content control, I as long
Dim pwd as string pstate as variant,
Dim tbl as table
With ActiveDocument.tbl.Range
For I=.contentcontrols To 1 Step -1
With. Contentcontrols(I)
If. Type = wdContentcontrolCheckbox Then
If. Checked = True Then
Tbl. Delete
End With
End If
E...
