VBA-Function checkSpelling() finds only words in default Language, but not in others
Posted on 2004-03-27
Situation: I'd like to check the spelling of a single word in a VBA-code using different main dicitonaries each time. No dialog boxes for user inter-action should be used (therefore no call of checkSpelling-Method with a Range-Object).
Problem: Only the main dict of the default language is used even if another one is specified.
I use the German Word 2000 SP3 under Win2k or WinXP (also German).
I.e. the VBA-code does not recognize the french Word "roi" (king) in the German main dict (that's correct!) but also not in the French main dict:
sWord = "roi"
found1 = CheckSpelling(sWord, , , "German")
found2 = CheckSpelling(sWord, , , "French")
MsgBox found1 & Chr$(10) & Chr$(13) & found2
Usage: Application.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, CustomDictionary2 – CustomDictionary10)
Info: the online-spellchecking in a document is working fine if the appropriate Language is specified!
Maybe it's due to compatibility reasons that the checkspelling-Function is not working properly
Thanks for the help!