Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
code for adding dictionaries with Word 2007?
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 |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
code for adding dictionaries with Word 2007?
Ps. I see that I have clear all twice in the post although not in real life.
Gil "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 |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
code for adding dictionaries with Word 2007?
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 |
#4
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
code for adding dictionaries with Word 2007?
I thought I had it ... but I seem to be going in a circle.
Gil "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 |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Word2007 code to add or activate custom dictionaries? | Microsoft Word Help | |||
Word 2007: Custom dictionaries | New Users | |||
Can Word 2007 apply a zip code bar code to envelopes? | Microsoft Word Help | |||
adding quotation marks around a selection (can you help me tweak this code?) | Mailmerge | |||
adding the post code | Mailmerge |