Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oCtl As Object
Dim oCC As ContentControl
On Error Resume Next
  For Each oCtl In ActiveDocument.InlineShapes
    If oCtl.OLEFormat.ProgID = "Forms.OptionButton.1" Then
      oCtl.OLEFormat.Object.Value = False
    End If
  Next oCtl
  For Each oCC In ActiveDocument.Range.ContentControls
    Select Case oCC.Type
      Case Is = wdContentControlDropdownList
        oCC.Type = 1
        oCC.Range.Text = vbNullString
        oCC.Type = wdContentControlDropdownList
      Case Is = wdContentControlComboBox
        oCC.Type = 1
        oCC.Range.Text = vbNullString
        oCC.Type = wdContentControlComboBox
      Case Else
        oCC.Range.Text = vbNullString
    End Select
  Next oCC
lbl_Exit:
  Exit Sub
End Sub