|
ED
|
avaliable
|
RT
|
not used
|
Returns a object at a position or by a specified key
'Enumerate all Assignements of the active project Sub EnumAssignments() Dim zVarAssign As VarAssignment Dim zVarAssigns As VarAssignments Dim i As Integer Set zVarAssigns = MyWorkspace.ActiveDocument.VarAssignments For i = 0 To zVarAssigns.Count - 1 Set zVarAssign = zVarAssigns.Item(i) Debug.Print zVarAssign.Name & " [" & _ zVarAssign.DynProperties("SourceVariable").Name & " > " & _ zVarAssign.DynProperties("TargetVariable").Name & "]" Next i End Sub