Radio buttons.

gmaxey · #5 07-21-2020, 10:23 AM

If you opt to stick with the ActiveX controls (which I don't recommend) and if the option buttons are in fact captioned "Yes", "No" and "NA" then:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oFld As Field
  For Each oFld In ThisDocument.Fields
    Select Case oFld.OLEFormat.ClassType
      Case Is = "Forms.OptionButton.1"
        If oFld.OLEFormat.Object.Caption = "No" Then oFld.OLEFormat.Object.Value = True
    End Select
  Next
lbl_Exit:
  Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Need help with userform and radio buttons	Fissure	Word VBA	4	04-27-2018 04:10 AM
Radio Buttons in Word Document in MAC Office 2016	kim88	Word	3	12-19-2016 03:36 PM
check box issue (problem with radio buttons from web page) Word 2013	cQQlgirl	Word	6	03-19-2015 07:23 PM
Performance problem ActiveX radio buttons	NobodysPerfect	Word VBA	8	05-31-2014 03:51 AM
example of radio buttons in for data entry?	derohanes	Excel	1	03-05-2011 09:37 AM