Urgent-ActiveX and MS Word problem

Hi All,


This is very urgent.

My problem is as follows:

I want to find out the using vb howmany activex controls are there on a MS word document.

ITs like this :

Sub AddControl()

CommandBars("Control Toolbox").Visible = True
If Selection.StoryType <> wdMainTextStory Then
Selection.HeaderFooter.Shapes.AddOLEControl Anchor:=Selection.Range, _
ClassType:="INK.InkCtrl.1"
Else
ActiveDocument.Shapes.AddOLEControl Anchor:=Selection.Range, _
ClassType:="INK.InkCtrl.1"

End If
CommandBars("Control Toolbox").Visible = False

End Sub

This is how I add a ActiveX Control using vba

I have customized Word using vba so that when I click on a button in the menu a activex Control is loaded onto MS Word

I want to retreive the names and count of activex controls created on the MS Word using vb code.


please somebody help me.


any help is gr8tly appreciated.


thank u in advance

Pivi