Microsoft Office Forums - View Single Post - Append values from a MS Word form to an existing CSV or text file

gmayor · 07-11-2019, 09:58 PM

The following will extract the data to an worksheet including the values from the checkboxes. Extract data from forms You can save the worksheet as CSV.
The basic code to get the value from a checkbox content control is

Code:

Sub Macro1()
Dim oCC As ContentControl
Dim objCC As Object
Dim strData As String
    Set oCC = ActiveDocument.SelectContentControlsByTitle("SportsCheckbox").Item(1)
    If oCC.Type = wdContentControlCheckBox And Val(Application.Version) > 12 Then
        Set objCC = oCC
        If objCC.Checked Then
            strData = True
        Else
            strData = False
        End If
        MsgBox strData
    Else
        MsgBox "Not a checkbox"
    End If
End Sub