|
ED
|
avaliable
|
RT
|
not used
|
This method returns the number of limits from a datatype.
Sub CountEdLimits() Dim zVarTypes As VarTypes 'Object from type VarTypes Dim zVarType As VarType 'Child object from type VarTypes 'Fill the objects Set zVarTypes = MyWorkspace.ActiveDocument.VarTypes 'Read the datatype INT from the list.Project some limits at the datatype. Set zVarType = zVarTypes.Item("INT") 'Count the number of limits from a datatype Debug.Print "Number of limits at the datatype = " & zVarType.EdLimitCount End Sub