Private Sub Document_Open()
Dim cbx As ComboBox, ishp As InlineShape
Application.ScreenUpdating = False
For Each ishp In ActiveDocument.Tables(1).Range.InlineShapes
ishp.Select
If ishp.Type = wdInlineShapeOLEControlObject Then
If ishp.OLEFormat.ClassType = "Forms.ComboBox.1" Then
Set cbx = ishp.OLEFormat.Object
cbx.Clear
Select Case ishp.Range.Information(wdEndOfRangeColumnNumber)
Case 1:
cbx.AddItem "Sunday"
cbx.AddItem "Monday"
Case 3:
cbx.AddItem "January"
cbx.AddItem "February"
End Select
End If
End If
Next
Application.ScreenUpdating = True
End Sub