Spelling in a foreign language

[PhilOfWalton]

Has anybody got any thoughts about checking words against foreign dictionaries.

For Example, suppose the word is "Wurst" in German, I want that to return True, but "Vurst" to return false

I believe DoCmd.RunCommand acCmdSpelling only checks in the native language.

In addition, the spell checker only seems to list 3 languages (all various varieties of English, French & Spanish), but not German

Thanks

Phil

[ADezii]

1. This is Theory (Air Code), Phil. I know that it works for English and I can only assume that it works for other Languages assuming you have the appropriate Dictionary installed.
2. The idea is to:
   1. Create an Instance of Excel.
   2. Change the Language used for Spell Checking (DictLang Property).
   3. Execute the CheckSpelling() Method of the newly created Excel Application Object against the Word.
3. Code Definition:
   

   Dim appExcel As Excel.Application
    
   Set appExcel = New Excel.Application
    
   With appExcel
     .Visible = False
     .SpellingOptions.DictLang = 1033      'Works for English
        Debug.Print IIf(.CheckSpelling(Word:="Vurst"), "Valid", "NOT Valid")
   End With
    
   appExcel.Quit
   Set appExcel = Nothing
    

4. Options for German Language (Value of DictLang):
   

   'German - 1031
   'GermanAustria - 3079
   'GermanLiechtenstein - 5127
   'GermanLuxembourg - 4103
    

5. Again, this is only Air Code and I am assuming that you will have to have the Custom Dictionary (*.dic) installed.
6. Assuming all works out well, False should appear in the Immediate Window.
7. Good Luck with your Project.

[PhilOfWalton]

Thank for that. I have modified the code to

Function CheckSpelling2(InputStr As String, DictionaryLanguage As Long)
    ' DictionaryLanguage = 2057 for UK Englisg, 1031 for German German
'?checkspelling2("deutch", 1031)        ' This gives an error that the language is not installed
'?checkspelling2("dog", 2057)           ' This works
 
    Dim Result As Boolean
    Dim Marker As Integer
    On Error GoTo CheckSpelling2_Err
 
    Dim appExcel As Excel.Application
 
    Set appExcel = New Excel.Application
 
    With appExcel
        .Visible = False
        Marker = 1
        .SpellingOptions.DictLang = DictionaryLanguage     'Works for English
        Marker = 2
        Result = .CheckSpelling(InputStr)
CheckSpelling2_Exit:
        .DisplayAlerts = False
        .Quit
        Set appExcel = Nothing
    End With
 
    Debug.Print Result
 
    Exit Function
 
CheckSpelling2_Err:
    If Err = 1004 Then
        MsgBox "Neccessary language is not installed", vbCritical
    Else
        LogError Err, Err.Description, "CheckSpelling2", Marker
    End If
 
    Resume CheckSpelling2_Exit
 
End Function
 

The LogError is just a routine to save any unhandled errors to a table.

It works perfectly for English, bu in spite of having installed the German language pack, I get the Error 1004 coming up.

Any forther thought would be appreciated

Phil

[PhilOfWalton]

Just found another problem. which I thought the .DisplayAlerts = False would cure, and that is that I get numerous messages "Do you want to save Sheet 1?

Phil

[ADezii]

Not really sure on this one, Phil. You could research the 2nd Argument of the CheckSpelling() Method where you can optionally set the Custom Dictionary to use.

Application.CheckSpelling(Word As String,[CustomDictionary],[IgnoreUppercase]) As Boolean

[PhilOfWalton]

Don't think that that is a runner. As far as I know, the Custom Dictionary is your personal dictionary to which you can add your own words.

I think spell check checks the standard directory and then the custom directory to see if a word exists.

Phil

[Rabbit]

What if you downloaded databases of words in different languages? You could DLookUp to that to determine if the word is part of that language.

[PhilOfWalton]

That sounds feasible, Rabbit.

I have just downloaded about 1.2 million German words, and it checks if a word exists in about .5 seconds.

I shall play with this further.

Many thanks

Phil