Examples:
The following VBA example checks whether the specified selection is a text object. If this text object contains characters with varying font sizes, it sets a uniform font size for the entire text object.
Sub MixedLong()
Dim s As Shape
Set s = ActiveDocument.Selection.Shapes(1)
If s.Type = cdrTextShape Then
If s.Text.FontProperties.Size = cdrMixedLong Then
s.Text.FontProperties.Size = 12
End If
End If
End Sub