If the word you're checking is formatted as German, you don't need to set the language. Form the VBA help file:
Quote:
|
If you don't specify a main dictionary, Microsoft Word uses the main dictionary that corresponds to the language formatting of the first word in the range.
|
Otherwise, you'll need something along the lines of:
Code:
Dim Dict As Dictionary
Set Dict = Languages(wdGerman).ActiveSpellingDictionary
Selection.Range.GetSpellingSuggestions , , Dict.Path & "\" & Dict.Name