This example formats the second paragraph in the active document as French, then adds a new custom dictionary, that will be used on the French text.
ActiveDocument.Paragraphs(2).Range.LanguageID = wdFrench
Set myDictionary = CustomDictionaries.Add(Filename:="French.dic")
With myDictionary
.LanguageSpecific = True
.LanguageID = wdFrench
End With
This example redefines the Title style to use the Spanish proofing tools. The new style description is then displayed in a message box.
ActiveDocument.Styles("Title").LanguageID = wdSpanish
MsgBox ActiveDocument.Styles("Title").Description