I've recorded a macro converting selected text to superscript. This
works fine, as long as the desired changes are always in the same
relative position on a slide. How should I change the macro that the
current text selection is being dealt with rather than the recorded
one? In other words, how can the "Start" and "Length" values reflect
the current selection?
Thanks in advance
Elmar
Sub SupNormal()
'
' Macro recorded 20.09.2006 by Elmar von Muralt
'
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=122,
Length:=3).Select
With ActiveWindow.Selection.TextRange.Font
.Name = "Arial"
.Size = 32
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0.3
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
End With
End Sub
Elmar,
Delete the following line:
> ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=122,
> Length:=3).Select
The rest will work only on the active text selection.

Signature
Regards,
Shyam Pillai
Image Importer Wizard
http://skp.mvps.org/iiw.htm
> I've recorded a macro converting selected text to superscript. This
> works fine, as long as the desired changes are always in the same
[quoted text clipped - 27 lines]
> End With
> End Sub
Elmar - 20 Sep 2006 03:24 GMT
Thankyou very much Shyam,
It works like a charm :o)
Kind regards
Elmar
> Elmar,
>
[quoted text clipped - 41 lines]
> > End With
> > End Sub