Type some text then highlight a couple of characters then run the macro. All other "Positions" work but not Superscript. Just wonder if it was fixed with 2017.
Sub TextToSupercript()Dim p As Variant p = ActiveShape.Text.Selection.Position ActiveShape.Text.Selection.Position = cdrSuperscriptFontPositionEnd Sub
I got an error: