Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

spell check pls help

Status
Not open for further replies.

jhoann

Programmer
Apr 18, 2002
81
PH
hi,
i already find a forum that discussed about the spell check in oracle form and i got this syntax/code (below) , but i have a problem about it .. when for example I type like this :

hello
world
i'm Anne

after the spell check it will return to my textbox as this :

helloworldI'mAnne

can anyone help me how to return it in the same format after the spell check:

hello
world
I'm Anne

-------
-- this is the code

DECLARE

-- Declare the OLE object
application OLE2.OBJ_TYPE;

-- Declare handle to the OLE argument list
args OLE2.LIST_TYPE;

-- Declare a temporary local variable for returned text
sel_text long(30000);

BEGIN

-- Start WordBasic
application:=OLE2.CREATE_OBJ('Word.Basic');

-- Create a temporary document to do the spell check in
OLE2.INVOKE(application, 'FileNew');

-- Insert the text of field CONTROL.LONGFIELD into temporary document
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, :memo);
OLE2.INVOKE(application, 'Insert', args);
OLE2.DESTROY_ARGLIST(args);

-- Invoke the spell checker
OLE2.INVOKE(application, 'ToolsSpelling');

-- Return corrected text to Oracle Forms
OLE2.INVOKE(application, 'EditSelectAll');
sel_text :=OLE2.GET_CHAR_PROPERTY(application, 'Selection');


MESSAGE(sel_text);
MESSAGE(sel_text);
-- :memo is my textbox
:memo:= sel_text;

--Release the OLE object
OLE2.RELEASE_OBJ(application);
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG( args, 2 );
OLE2.INVOKE( application, 'FileClose', args );
OLE2.DESTROY_ARGLIST( args );
end;

thanks
jhoann
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top