Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Spellcheck Class for Word problem
Message
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
00124462
Message ID:
00137419
Views:
24
>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform