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 IfEnd Sub