Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Spellcheck Class for Word problem
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00124462
Message ID:
00137419
Vues:
26
>John,
>
>So if I'm running VFP 5.0a and Word 97 and it should work do you have idea why it wouldn't? If I can't get this spell check to work using word I'll have to find a 3rd party vendor that will integrate with VFP. Would you have any suggestions? Any help would be much appreciated.
>
>Thank you.
>
>Piper


Change the code in the class to the following:

if type('thisform.owordDoc')<>'O'
Thisform.addobject('oWordDoc','olecontrol','word.document')
endif
if len(allt(this.value))<3
messagebox('You must have a string longer than 3 characters')
return
endif
acti wind debug
thisform.oworddoc.width=0
thisform.oworddoc.height=0
With Thisform.oWordDoc
.DoVerb(0)
.Object.Content = This.value
.CheckSpelling && this will put us in a wait state while the spell checking occurs
.Object.Application.Selection.WholeStory
This.Value = .Object.Application.Selection.Text
.Close(.f.)
EndWith

** The width and height settings are what allowed the object to be visible.

John
John Harvey
Shelbynet.com

"I'm addicted to placebos. I could quit, but it wouldn't matter." Stephen Wright
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform