nsarainbow.blogg.se

Mydocument := OLE2.INVOKE_OBJ(MyDocuments, 'Add') Add a new document to the Documents collection

MyDocuments:= OLE2.GET_OBJ_PROPERTY(MyApplication, 'Documents') OLE2.SET_PROPERTY(MyApplication, 'Visible', 1) MyApplication := OLE2.CREATE_OBJ('Word.Application') by setting the 'Visible' property to true Create the Word.Application object and make Word visible Declare handle to the OLE argument list Is there a way for the ms word buffer to hold more than 4000 bytes of data when invoking the ms word spell check? MySelection:=client_ole2.GET_OBJ_PROPERTY(MyApplication, 'Selection') Ĭlient_ole2.INVOKE(MySelection,'WholeStory') ĬOPY( CLIENT_OLE2.GET_CHAR_PROPERTY(MyApplication,'Selection'), PC$Item ) Ĭlient_ole2.INVOKE(MyDocument,'Close',args) Ĭlient_ole2.INVOKE(MyApplication,'Quit') Ĭopy(Substr(Replace(Name_in(PC$Item),CHR(13),CHR(10)),1,Length(Name_in(PC$Item))-1), PC$item ) This below line causes the error exception when value of PC$Item is more than 4000 bytesĬlient_ole2.SET_PROPERTY(Myselection,'Text',Name_in(PC$item)) Ĭlient_ole2.INVOKE(MyDocument,'CheckSpelling') Myselection := CLIENT_OLE2.GET_OBJ_PROPERTY(MyApplication,'Selection') MyDocument := CLIENT_OLE2.INVOKE_OBJ(MyDocuments,'add')

MyDocuments:=client_ole2.GET_OBJ_PROPERTY(MyApplication, 'Documents') MyApplication:=client_ole2.CREATE_OBJ('Word.Application') Ĭlient_ole2.SET_PROPERTY(MyApplication, 'Visible', 0) PC$Item in Varchar2 -pass the name of the Form Field to be spell checked.