Sub format_words()
 
Dim mydic As Dictionary
Dim spErr As Range
 
Application.CustomDictionaries.ClearAll
Set mydic = Application.CustomDictionaries _
    .Add(FileName:="I:\NATUR\Kay\DIC\test.DIC")
Application.CustomDictionaries.ActiveCustomDictionary = mydic
 
For Each spErr In ActiveDocument.Range.SpellingErrors
   With spErr
       .Font.Italic = True
       .NoProofing = True
   End With
Next spErr
 
With CustomDictionaries
  .ClearAll
  .Add("BENUTZER.DIC").LanguageSpecific = False
  .Add("CUSTOM.DIC").LanguageSpecific = False
  .ActiveCustomDictionary = CustomDictionaries.Item("BENUTZER.DIC")
End With
 
End Sub

-------------------------------
gru?,
gimoya