Vb.net – check a checkbox in word using vb.net

automationms-wordvb.net

I have a word doc with several checkbox fields. I can fill the text fields, but haven't figured out how to check checkboxes.

I can't just make a macro in word and see how word does it because to use the keyboard to check the box (space bar), you have to enable document protection, which disables macro creation.

Best Answer

I just tried setting an old fashion Word2003 Checkbox with VBA. Worked with that piece of code:

' demo purposes - added a command
Private Sub CommandButton1_Click()
    ' FormFields refers to Word2003 FormFields
    If ActiveDocument.FormFields(1).Type = wdFieldFormCheckBox Then
        ActiveDocument.FormFields(1).CheckBox.Value = True
    End If

   ' ContentControls refers to >= Word2007 Controls - thx to StevenDotNet for the hint
   ActiveDocument.ContentControls(1).Checked = True
End Sub

WordCheckBoxControl_Form

On the other hand I created a VS2012 WordProject with VB.net and added some code to check the box on load.

Private Sub ThisDocument_Open() Handles Me.Open
    Me.FormFields(1).CheckBox.Value = True
End Sub

Advantages

The result looks very nice. Here are the advantages of this method:

The code keeps its original layout and colors
The code is separated from the rest of the document, as if it was a picture or a chart
Spelling errors won't be highlighted in the code (this is cool !)

And it takes only few seconds.

Excel – Call Excel VBA from Word

This is just a hunch, but would it be possible to migrate the Excel macro from the Excel spreadsheet to the Word document? Then you could add a bit of code to launch the correct Excel spreadsheet and perform the necessary field manipulations. So, basically, let your Word document do all the work on the Excel spreadsheet.

Alternately, you could follow the procedure discussed here:

http://support.microsoft.com/kb/177760

Here is the relevant code listing:

 Sub XLTest()

     Dim XL as Object

     Set XL = CreateObject("Excel.Application")

     XL.Workbooks.Open "C:\My Documents\ExcelFile.xls"

     ' If there is more than one macro called TestMacro,
     ' the module name would be required as in
     '
     ' XL.Run "Module1.TestMacro"
     '
     ' to differentiate which routine is being called.
     '
     XL.Run "TestMacro"

End Sub

Best Answer

Related Solutions

How to display code snippets in MS Word preserving format and syntax highlighting

Advantages

Excel – Call Excel VBA from Word

Related Topic