Superscript and Subscript

[ager]

Don't work text position option in VBA code. For example, if I try to execute this code in VBA (CorelDraw X4):

Sub Test()
Dim d As Document
Dim s As Shape
Dim t As Text
Set d = CreateDocument
Set s = d.ActiveLayer.CreateParagraphText(2, 2, 4, 4, "This is an example.")
Set t = s.Text
t.Story.Words.First.Position = cdrSuperscriptFontPosition
End Sub

Run-time error appear, but if I write t.Story.Words.First.Position = cdrSubscriptFontPosition
(instead Superscript, like in VBA help) i have no error.

[shelbym]

I can confirm this is a bug. You can work around it by using the older FontPropertiesInRange:

Sub Test()
    Dim d As Document
    Dim s As Shape
    Dim t As Text
    Dim lngCount As Long
    
    Set d = CreateDocument
    Set s = d.ActiveLayer.CreateParagraphText(2, 2, 4, 4, "This is an example.")
    Set t = s.Text

    lngCount = t.Story.Words.First.Characters.Count
    t.FontPropertiesInRange(1, lngCount).Position = cdrSuperscriptFontPosition
End Sub

-Shelby

[ager]

Shelbym! Thank you very much, it works
But bug is really exist, may be it had been fixed in CorelDraw X5 .

[shelbym]

Not fixed in X5, that was the version I was using to confirm the issue.

-Shelby

[Plixo]

And your work-around still works.

Thanks Shelby, saved my day, one more time