Abeness was telling us:
Abeness nous racontait que :
> I need a means of returning the Unicode character code of the
> character adjacent to the cursor, to a variable. In Corel Ventura
> it's as simple as
> .TextSpecialItemType lCharCode
>
> (well, that returns a Long, lCharCode)
It is just as simple in VBA!
Dim MyCharCode As Long
MyCharCode = AscW(Selection.Text)

Signature
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org
Abeness - 23 Mar 2005 16:18 GMT
> MyCharCode = AscW(Selection.Text)
Exactly what I needed. Thanks a lot, Jean-Guy.
Abe