VB: TheText = (superscript) "2"

[Nikolay Klinachyov]

Please correct my VB-code:
Shapes.ItemFromID(3).Text = "Ts²+1"

(HTML analogue: <p>Ts²+1</p>)

Unfortunately this code is not desirable:
Shapes.ItemFromID(3).Text = "Ts^2+1"

 

[Markus Breugst]

Hello Nikolay,

so you want to have different text formats within a single shape. The only
way I know is to create multiple "Character" tables in the ShapeSheet.

Here's a VB example. It sets the text of shape "Sheet.1" to "xy2+1" where
"xy" is normal, and "2+1" is superscript.

Best regards,
Markus

Public Sub SetText()
Dim myShape As Shape
Dim myChar As Characters

Set myShape = ThisDocument.Pages(1).Shapes("Sheet.1")
myShape.Text = "xy2+1"
Set myChar = myShape.Characters

myChar.Begin = 0
myChar.End = 1
myChar.CharProps(VisCellIndices.visCharacterPos) = 0
myChar.Begin = 2
myChar.End = 5
myChar.CharProps(VisCellIndices.visCharacterPos) = 1
End Sub