There is another way... if you have the MS Office 2003 CD , pop it in, do a custom install and check off 'office tools'. Be sure everything else is unchecked! Once you install it, the spell checker returns. I ran into this with my boss, who loves the MS MSN Explorer interface ( no, I don't get it either ) and lost spell checking when we upgraded his office suite.
Dave David Smith Systems Administrator Doan Family of Dealerships (585) 352-6600 ext.1730 [email protected] www.upstatedigitools.com This message may contain confidential and/or proprietary information, and is intended for the person/entity for whom it was originally addressed. Any use by others is strictly prohibited -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Nicholas Geti Sent: Wednesday, October 21, 2009 7:32 PM To: [email protected] Subject: Re: Problem with Word 2K7 spell check on Vista machine The original English spell checker has been removed in all versions of Word after Office 2003. I ran into this with a client who has upgraded to Office 2007. The new spell checker was all French and wouldn't recognize any English words. It kept popping up French recommendations. I found this was by design and MS had no intention of fixing it. You have to buy a 3rd party spell checker that works with Word. ----- Original Message ----- From: "MB Software Solutions General Account" <[email protected]> To: <[email protected]> Sent: Wednesday, October 21, 2009 4:24 PM Subject: Problem with Word 2K7 spell check on Vista machine > VFP9SP1 > > Our classic app has used the following code for years for spell-checking, > but it's not working for Word 2007 on Vista: > > *------------------------------------------------------------------------- > local cObject, cX, cY > > cObject = this.Obj2Check > if type('thisform.skipdeactivate') = "L" > thisform.skipdeactivate = .T. > endif > > This.oWord = NewObject("word.application") > > If !This.WordMissing > With This.oWord > .Documents.add > cX = allt(This.Parent.&cObject..Value) > *wait window cx > .Selection.TypeText(cX) > > .Activedocument.CheckSpelling > .Selection.WholeStory > > cY = allt(.Selection.Text) > cY = iif(asc(right(cY,1)) = 13, left(cY, len(cY)-1), cY) > if !empty(cX) and empty(cY) > this.error(0,"Click",0) > else > if cX != cY > This.Parent.&cObject..Value = .Selection.Text > if type('Thisform.isediting') = "L" > Thisform.isediting = .T. > Thisform.SetEditbtn > endif > endif > wait window nowait "Spell Check Complete" > endif > .ActiveDocument.Close(0) > .Quit > EndWith > EndIf > > if type('thisform.skipdeactivate') = "L" > thisform.skipdeactivate = .F. > endif > > *------------------------------------------------------------------------- > > Ideas as to workaround/fix? I'm juggling a bunch of things now so I just > wanted to throw this out to the group to see what the experts say. ;-) > > tia! > --Mike > > > > [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/002b01ca530b$4ab768c0$e0263a...@com ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
