Sub macro2()
Dim ee As ElementEnumerator
Set ee = ActiveModelReference.Scan()
Do While ee.MoveNext
If ee.Current.IsTextElement Then
Debug.Print ee.Current.AsTextElement.TextStyle.Name
End If
Loop
End SubWhen the active text setting is set to "None" textstyle.Name is correct
When the active text setting is set to an existing active Design file textStyle and the text do not have any text style then textStyle.name is active TextStyle Name which is incorrect