I would like to place a corrector of orthography but with codes rtf, I encounter problems.
LOCAL obj
obj = CREATEOBJECT("excel.sheet")
obj = obj.APPLICATION.activeworkbook.activesheet
obj.RANGE("A1").VALUE = THISFORM.oleRTF.Text obj.VISIBLE = .T.
obj.checkspelling
THISFORM.cText = THISFORM.oleRTF.textrtf( obj.RANGE("A1").VALUE )
obj = .NULL.
An solution ?
MIlcent B.
©2001 MILCENT Bernhart |
