удалить все optionbutton

[alyam]

да. если optionbutton 1 в документе, то работает

[Ципихович Эндрю]

проверки пишите

[alyam]

Sub ss()
For Each tbl In ActiveDocument.Fields
tbl.Delete
Next tbl

End Sub

коряво. но пойдет. главное цель достигнута )
оглавление до кучи удалилось )

[viter.alex]

    Dim i As Integer
    With ActiveDocument.Fields
        For i = .Count To 1 Step -1
            If .Item(i).OLEFormat.ClassType = "Forms.OptionButton.1" Then
                .Item(i).Delete
            End If
        Next
    End With