Bonjour,
Rémi Angot a écrit :
Comment ajouter un caractère spéciale dans une macro en Basic dont on
connait la référence de type U+2212 ?
Merci
Rémi Angot
exemple :
sub specialChar()
dim oDocument as object
dim oText as object
dim oViewCursor as object
dim oTextCursor as object
dim sSpecialCar as string
' caractere special unicode "Mathematical Operators"
' voir http://www.unicode.org/charts/PDF/U2200.pdf
sSpecialCar = chr( "&h2212" )
oDocument = thisComponent
oViewCursor = oDocument.CurrentController.getViewCursor()
oText = oViewCursor.getText()
oTextCursor = oText.createTextCursorByRange( oViewCursor.getStart() )
oText.insertString( oTextCursor, sSpecialCar, false )
end sub
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
