[gil]

I think I finally got it:



Sub dictionaryAdd6()

With CustomDictionaries

.ClearAll

End With

Dim dic1, dic2, dic3, dic4, dic5 As String

dic1 = ActiveDocument.AttachedTemplate.Path & "\custom201a.dic"

dic2 = ActiveDocument.AttachedTemplate.Path & "\TSMRmedDict.dic"

dic3 = ActiveDocument.AttachedTemplate.Path & "\TSMRspellDrug.dic"

dic4 = ActiveDocument.AttachedTemplate.Path & "\MedTerms.dic"

dic5 = ActiveDocument.AttachedTemplate.Path & "\cmr1medDict.dic"

Application.CustomDictionaries.Add dic1

Application.CustomDictionaries.Add dic2

Application.CustomDictionaries.Add dic3

Application.CustomDictionaries.Add dic4

Application.CustomDictionaries.Add dic5

End Sub



Cheers,

Gil

Ten Second Medical RecordTM electronic medical records

"gil" wrote in message ...
Hi All,



My Word2003 code for adding spelling dictionaries does not seem to work in Word2007. How can I fix it?



ActiveDocument.ShowGrammaticalErrors = True

ActiveDocument.ShowSpellingErrors = True

Languages(wdEnglishUS).SpellingDictionaryType = wdSpelling

With CustomDictionaries

.ClearAll

With .Add(ActiveDocument.AttachedTemplate.Path & "\Custom201a.dic")

.LanguageSpecific = True

' .LanguageID = wdEnglishUS

End With

With CustomDictionaries

.ClearAll

With .Add(ActiveDocument.AttachedTemplate.Path & "\Custom201c.dic")

.LanguageSpecific = True

' .LanguageID = wdEnglishUS

End With

End With



I wish to keep my custom dictionaries in the same folder as the attached template. It facilitates mobile use from one computer to another. I am currently using Office Home and Student altho I will be getting the professional version in the near future.



tia,

Gil