DataItems.Count

Property Count As Long

The Count property returns the number of fields available. Fields that are empty and not a document default are not listed in this collection. See DataFields for the full list of data fields available in the document.

The Count property returns a read-only value.

The following code example counts the number of data fields in the active shape.

Sub Test() 
 Dim n As Long 
 CountFields = ActiveSelection.Shapes(1).ObjectData.Count 
 MsgBox CountFields 
End Sub