Checkbox adding a Comment box

Question

Hi,

I'm making a form on word. I added a checkbox in the form using developer tool. I was wondering if there was a way that when I check a checkbox, a comment box will appear?

Answer 1

Use the following code:

Private Sub CheckBox1_Click()

 With ActiveDocument

     With .Variables("Comment")

         If CheckBox1.Value = True Then

             .Value = InputBox("Insert your comment here", "CheckBox Comment Facilty")

         Else

             .Value = " "

         End If

     End With

     .Range.Fields.Update

 End With

 End Sub

Then, when you check the box, a dialog will appear into which you can insert your comment, which will be displayed in the Docvariable field

Answer 2

Hi Doug,

That's a neat trick, but I want a comment box to activate when a checkbox is checked so I can type in comments only when the checkbox is checked.

Answer 3

If you use an ActiveX checkbox and have a { DOCVARIABLE Comment } field where you want the comment to appear and have the following code for the checkbox

Private Sub CheckBox1_Click()

With ActiveDocument

    With .Variables("Comment")

        If CheckBox1.Value = True Then

            .Value = "This is the comment that you wanted to see."

        Else

            .Value = " "

        End If

    End With

    .Range.Fields.Update

End With

End Sub

When the checkbox is checked, the docvariable field will display

and when it is unchecked, it will display just an empty space