I've tried the following and get an error message:
Code: Select all
Activedocument.Shapes(1).Range.contentcontols.add(wdcontentcontrolgroup)
I get the same error message with:
Code: Select all
activedocument.Shapes.Range.TextFrame.ContainingRange.ContentControls.Add (wdContentControlGroup)