You can use the shapes collection madhan
here is an example to get the textboxes
Sub TB_Focus()
For i = 1 To ActiveDocument.Shapes.Count
If ActiveDocument.Shapes(i).Type = msoTextBox Then MsgBox True
Next i
End Sub
cheers
Shasur
http://www.vbadud.blogspot.com