Microsoft Office Forums - View Single Post - [Solved] How do I Convert All Legacy Check Boxes to ActiveX?

macropod · 12-20-2011, 05:11 PM

Hi GreenPolyps,

That is possible, using a macro like:

Code:

Sub Demo()
Dim Rng As Range, i As Long
With ActiveDocument
  For i = .FormFields.Count To 1 Step -1
    With .FormFields(i)
      If .Type = wdFieldFormCheckBox Then
        Set Rng = .Range
        .Delete
        With Rng
          .InlineShapes.AddOLEControl ClassType:="Forms.CheckBox.1"
          .MoveEnd wdWord, 1
          .InlineShapes(1).Width = .InlineShapes(1).Height
        End With
      End If
    End With
  Next
End With
End Sub

Of course, you'd possibly want to do more than just replacing one with the other, but this should get you started.