expression.WizardTagInstance
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
The combination of the WizardTagInstance property and the WizardTag property uniquely defines every shape in a publication.
Example
The following example displays the wizard tag and wizard tag instance information for all the shapes on page one of the active publication.
Dim shpLoop As Shape
For Each shpLoop In ActiveDocument.Pages(1).Shapes
With shpLoop
Debug.Print "Shape: " & .Name
Debug.Print " Wizard tag: " & .WizardTag
Debug.Print " Wizard tag instance: " _
& .WizardTagInstance
End With
Next shpLoop