expression.LanguageSpecific
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example checks to see whether any custom dictionaries are language specific. If any of them are, the example removes them from the list of active custom dictionaries.
Dim dicLoop As Dictionary
For each dicLoop in CustomDictionaries
If dicLoop.LanguageSpecific = True Then dicLoop.Delete
Next dicLoop
This example adds a custom dictionary that will check only text that's formatted as German.
Dim dicNew As Dictionary
Set dicNew = CustomDictionaries.Add("German1.dic")
dicNew.LanguageSpecific = True
dicNew.LanguageID = wdGerman