Can I use Excel VBA with data, to create a WinWord form (Consists to control Checkbox

[justuptou]

24238
Can I use Excel VBA with data, to create a Winword form(Consists to control Checkbox)

How to use Excel VBA code to control Checkbox ( True / False ) in Winword ?

[gmayor]

The following should get you started


Sub WriteToWord()
Dim wdApp As Object
Dim wdDoc As Object
Dim bCheck As Boolean
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err Then
Set wdApp = CreateObject("Word.Application")
End If
Set wdDoc = wdApp.Documents.Add(Template:="C:\Path\DocName.docx")
If Range("B2") = "Test" Then
bCheck = True
Else
bCheck = False
End If
wdDoc.SelectContentControlsByTitle("Title of Checkbox").Item(1).Checked = bCheck
End Sub