Microsoft Office Forums - View Single Post - [Solved] How to get the MS Word Form Fields Check box associated text and their value using VBA?

gmayor · 11-25-2016, 04:59 AM

What you require is as follows. The names will depend on what you have called the check boxes. The default is Checkn where n is an incrementing number

Code:

Sub Test()
'Graham Mayor - http://www.gmayor.com - Last updated - 25/11/2016 
Dim oFF As FormField
Dim strCheckBoxName As String
Dim strCheckBoxValue As String
Dim i As Long
    For i = 1 To ActiveDocument.FormFields.Count
        Set oFF = ActiveDocument.FormFields(i)
        If oFF.Type = wdFieldFormCheckBox Then
            strCheckBoxName = oFF.Name
            strCheckBoxValue = oFF.CheckBox.Value
Debug.Print strCheckBoxName & " = " & strCheckBoxValue
        End If
    Next
End Sub