spell check with word activex

[norberto]

HI, someone already try use an way to use spell check with ms word, maybe using activex?
i need make spell check in memo , in portuguese-br , someone try this?
thanks

[James Bott]

I have not used it, but others here are using this spell checker with FWH.

http://www.wintertree-software.com/dev/ ... ml#Catalog

It is US$399 and you can get a Brazilian dictionary.

James

[Armando]

Friends:

Yes, I have a little function to use the ms-word spell checker, if it can help
I can post it.

Regards

[norberto]

Armando, please...

[Armando]

Friends:

Here is

This is the way to call the SpellCheck function

Code: Select all  Expand view

oPro:DES := SpellCheck(oPro:DES)
 

And here is the SpellCheck function

Code: Select all  Expand view

STATIC FUNCTION SpellCheck(Texto)
LOCAL oWord,oDoc,oTexto
LOCAL cText:=Texto

oWord:=TOleAuto():New( "Word.Application" )
oWord:Visible := .F.
oWord:Documents:Add()
oDoc := oWord:Get("ActiveDocument")

oTexto := oWord:Selection()
oTexto:Text := Texto

oDoc:CheckSpelling()

cText := oTexto:Text

oDoc:Close(0)
oWord:Quit()
oTexto:=NIL
oDoc:=NIL
oWord:=NIL


IF ! EMPTY(cText) // If ctext is empty that means that the process was canceled
    Texto := cText
ENDIF
RETURN(Texto)
 

With best regards

[norberto]

HI Armando, very thanks, works very fine... let me ask : if i want know if word is present in computer? maybe an function

[Armando]

Norberto:

Oppps, I don't know , perhaps somebody can help us, or Test and error .

Sorry

[sambomb]

HI Armando, very thanks, works very fine... let me ask : if i want know if word is present in computer? maybe an function

You could look in the register, I suggest you to install 98, 2003, 2007 and 2010 in your computer to look what register is created

[Richard Chidiak]

you can test like this

Code: Select all  Expand view

   TRY
      oWORD := CREATEOBJECT( "word.Application" )
   CATCH
      TRY
         oWORD := CREATEOBJECT( "word.Application" )
      CATCH
       // no word is installed
         RETURN NIL
      END
   END


 

[James Bott]

Richard,

Please explain why you need two TRY/CATCHes?

Wouldn't something like this work?

James

Code: Select all  Expand view

isWord()
   local lSuccess:=.F.
   local oWord
   TRY
      oWord:= createObject("word.Application")
      lSuccess:=.T.
    CATCH
       lSuccess:=.F.
    END
return lSuccess

[norberto]

Hi, i use :

.....
TRY
oWord:=TOleAuto():New( "Word.Application" )
CATCH
Msginfo( "Word não instalado!!" )
Return(Texto)
END
....
and works fine.
why some people use toleauto and another createobject, is the same??

thanks

[Richard Chidiak]

James

This code has been in my application since quite a while and running ok

From my notes, Ole prompted error many times at first try , this is why i embedded try catch to solve this and it solved it at that time.

Maybe now , only one try/catch is enough ,

My purpose was just to show the way testing ms word's presence

HTH

Richard

[James Bott]

Richard,

I wasn't being critical--I figured you had a reason and it seems you did. Even if two aren't needed always it is probably better to use them if there is a possibility of a false error.

Thanks for the sample.

James

[RAMESHBABU]

Hi,

Once the spell check is completed, I am getting a dialog with following messages:

"This file is in use by another application or user."
(C:\Documents and Settings\..\Normaldot)

and also getting

Save as dialog box.

How to avoid this.

Regards,

- Ramesh Babu P

[reinaldocrespo]

Hi everyone.

I'm using a dll that you only purchase once and is then distributable with your app. It works well and you don't need to have word installed on the computer. In the long (or even short) run it is less expensive than having Word on the workstation. It has very many functions and it might work just like the word's spell checker where you may even suggest and show errors as the user types. The product is called SSCE and the company is Wintertree. I highly recommend it. Here is some sample code where I'm using it. This will check for errors the text on the hWnd window handle:

Code: Select all  Expand view

                SSCE_CheckCtrlBackgroundRecheckAll( ::oActive:hWnd, SSCE_OPTION, RGB( 254, 1, 1 ) ), ),;
 

Here as the user presses the space bar I check if the word is misspelled:

Code: Select all  Expand view

        CASE nKey == 32
            SSCE_CheckCtrlBackgroundNotify( ::oActive:hWnd, SSCE_OPTION, RGB(254, 1, 1) )
 

In both of these samples, if the word is misspelled, it will be shown as RGB( 254, 1, 1 ).

It has worked very good for me. I hope it helps others.

Reinaldo.