insert a character by vba

to insert a character isn't difficult (Ctrl+F11....). But I have diffucults to record a macro, who can give back the character alfa i.e.
Who knows the solution?
beny04

It should be CorelDRAW 11. Don't record a lot of... Try 12, in that the VBA works better.

To insert any character from VBA may use the Chr(x) vb function. It use the charactercode from actual codepage (x = 32 to 255). There is another function, ChrW(x), where x is the unicode index of the character, but it looks don't work in CDr11. But, maybe, I made some mistake...

Sample to insert character:

ActiveShape.Text.Selection.InsertAfter Chr(245)
' 245 otilde on 1252 codepage and in unicode
' ohungarumlaut on 1250 codepage

But, first you shold be sure the textcursor is in text.

Hey beny04! It maybe helps more like me: Text ENCODE

Hello,
thanks for your answers! The first steps are successfull!

Sub alfa()
ActiveShape.Text.Selection.InsertAfter Chr(97), Font:="Symbol"
End Sub

Now I try to program the Font size, and the superscript or the subscript mode.
Where I can find a introduction to make VBA-code in coreldraw?

Thanks and kind regard!
beny04

[shelbym]

CorelDraw 12 comes with a VBA programing guide. By default the user guides are not installed so you will need to install them. The file is called: dvba_pg.pdf also there is a PDF for the CorelDraw 12 Object Model called: VBA Object Model.pdf

Hope it Helps.

Shelby

[shelbym]

The following example creates a text object with a subscript character.

Sub Test()

 Dim s As Shape
 Set s = ActiveLayer.CreateArtisticText(4, 5, "H2O")
 s.Text.FontPropertiesInRange(2, 1).Position = cdrSubscriptFontPosition

End Sub

Hope it helps,

Shelby

[Alex]

s.Text.FontPropertiesInRange(2, 1).Position = cdrSubscriptFontPosition

This is actually a bad example. You shouldn't use FontPropertiesInRange. Instead, you should use Text.Story and proper text range:

Sub Test()
    Dim s As Shape
    Set s = ActiveLayer.CreateArtisticText(4, 5, "H2O")
    s.Text.Story.Characters(2).Position = cdrSubscriptFontPosition
End Sub

Your answers was very helpfull for me! Oberonplace seems to be the best forum for Coreldraw-Questions!
beny04