Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Spell Checker
Message
De
04/07/2001 21:30:50
Gavin Reid
L & M Marketing Pty Ltd
Frenchs Forest, Australie
 
 
À
04/07/2001 05:44:50
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Divers
Thread ID:
00526619
Message ID:
00526811
Vues:
34
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform