Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Spell Checker
Message
From
04/07/2001 21:30:50
Gavin Reid
L & M Marketing Pty Ltd
Frenchs Forest, Australia
 
 
To
04/07/2001 05:44:50
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00526619
Message ID:
00526811
Views:
33
Hi Kevin,

Here's some code that I use for calling Word to perform spell checking. This code borrows heavily from an example by John Petersen.
LPARAMETERS pcText

LOCAL oWord, cText

IF EMPTY(pcText)
    RETURN
ENDIF

oWord = CreateObject("word.application")

WITH oWord
    .Documents.Add
    .Selection.TypeText(pcText)
    .Visible = .T.
    .ActiveDocument.CheckGrammar
    .Selection.WholeStory
    cText = .Selection.Text
    .ActiveDocument.Close(0)
    .Visible = .F.
    .Quit
ENDWITH

RELEASE oWord

RETURN cText
Hope this helps,
Gavin...

>Hi
>
>Anyone used a spell checker in their app?
>
>I need to implement one - will SpellChk.App do it?
>
>THanks
>Kev
Previous
Reply
Map
View

Click here to load this message in the networking platform