Spell Checker

[TimStone]

For many years I have included the Wintertree spell checker in 32 bit applications. Now that I want to start working with 64 bit, I need the proper library. To upgrade that spell checker is $700 US and it simply is not in our budget.

Is anyone using a different spell checker in their FWH applications ? I'm looking for something more reasonably priced that has both a 32 bit and 64 bit library.

Thanks in advance for your input.

Tim

[Armando]

Tim:

I use the spell checker included in MS-WORD.

Regards

[Otto]

Armando,
would you be so kind to show us how to use the word spell checker with Fivewin.
Thanks in advance
Otto

[RAMESHBABU]

Mr.Otto,

I use MS Word spell checker using this Code.

Code: Select all  Expand view

#include "fivewin.ch"

STATIC oWord

FUNCTION main()

LOCAL cText := "Wouldd you be soo kind to showa us how to usea the word spelll checker with Fivewin. Thank s in advaance."

MsgInfo(SpellCheck(cText))

RETURN nil

***********

STATIC FUNCTION SpellCheck(Texto)

LOCAL oDoc,oTexto
LOCAL cText:=Texto

IF .NOT. IsWord()
   MsgInfo("MS Word is not installed in your computer.")
   RETURN .F.
ENDIF


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)

*************

FUNCTION isWord()

local lSuccess:=.F.
local oWord

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

RETURN lSuccess

***************
 

-Ramesh Babu

[bpd2000]

Thank you Mr. Rameshbabu

[Armando]

Otto & Friends

Here is my code

Code: Select all  Expand view

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

    TRY
        oWord:=TOleAuto():New( "Word.Application" )
    CATCH
        MsgInfo("MS-WORD no esta instalado en esta PC !",oApp:cAplicacion)
        RETURN(Texto)
    END

    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) // si cancelamos en el chequeo de ortografia, nos devuelve una cadena vacia
        Texto := cText
    ENDIF
RETURN(Texto)
 

Best regards

[dtussman]

looks interesting, but how long does this process take? Opening Word takes forever on my computer.