Sub ReplaceSuperscriptsTTG()
    '
    ' ReplaceSuperscriptsTTG
    '
    ' VBA macro for use with Corel DRAW 10 for Windows
    ' Copyright (c) 2002-10-21 by Adam Twardoch/TTG <adam@twardoch.com>
    ' Version 1.0b1
MySupScale = InputBox("Input superscript scale " & _
"in percent (for example: 65)", _
"Replace Superscripts TTG by Adam@Twardoch.com", 65)
MySupShift = InputBox("Input superscript shift " & _
"in percent (for example: 30)", _
"Replace Superscripts TTG by Adam@Twardoch.com", 30)
MySubScale = InputBox("Input subscript scale " & _
"in percent (for example: 65)", _
"Replace Superscripts TTG by Adam@Twardoch.com", 65)
MySubShift = InputBox("Input subscript shift " & _
"in percent (for example: -30)", _
"Replace Superscripts TTG by Adam@Twardoch.com", -30)
For Each MyPage In ActiveDocument.Pages
For Each MyShape In MyPage.Shapes
For MyCharCount = 1 To MyShape.Text.CharacterCount
With MyShape.Text.FontPropertiesInRange _
(MyCharCount, 1, cdrCharacterIndexing)
If .Position = cdrSuperscriptFontPosition Then
.Position = cdrNormalFontPosition
.Size = .Size * MySupScale / 100
MyShape.Text.AlignPropertiesInRange _
(MyCharCount, 1, cdrCharacterIndexing). _
VerticalCharacterShift = MySupShift
End If
If .Position = cdrSubscriptFontPosition Then
.Position = cdrNormalFontPosition
.Size = .Size * MySubScale / 100
MyShape.Text.AlignPropertiesInRange _
(MyCharCount, 1, cdrCharacterIndexing). _
VerticalCharacterShift = MySubShift
End If
End With
Next MyCharCount
Next MyShape
Next MyPage
End Sub