AddOLEControl Method Example

This example adds a check box to the active document.

ActiveDocument.Shapes.AddOLEControl ClassType:="Forms.CheckBox.1"

This example adds a combo box to the active document.

ActiveDocument.Shapes.AddOLEControl ClassType:="Forms.ComboBox.1"

This example adds a check box to the active document, clears the check box, and then adds a caption for it.

Set myCB = ActiveDocument.Shapes _
    .AddOLEControl(ClassType:="Forms.CheckBox.1")
With myCB.OLEFormat.Object
    .Value = False
    .Caption = "Check if over 21"
End With