Developing.ru

[b]Aent[/b]
Спасибо, гляну в выходные, но я уже нашёл ответ на этот вопрос, и у тебя тоже предложение.

Public Sub addtodic()
   Dim dicCustom As Dictionary
   Application.CustomDictionaries.ClearAll
   Open "D:\TEST\CUSTOM.DIC" For Append As #1     'предполагается что файл уже существует
   Print #1, "закошмарить"
   Close 1
   Set dicCustom = Application.CustomDictionaries _
          .Add(FileName:="D:\TEST\CUSTOM.DIC")
   Application.CustomDictionaries.ActiveCustomDictionary = dicCustom
   With dicCustom   'можно явно установить русский язык для словаря (#LID 1049)
       .LanguageSpecific = True
       .LanguageID = wdRussian
   End With
End Sub

Как в обычный текстовый файл (коим файлы .dic и являются)
[code]
Public Sub addtodic()
Dim dicCustom As Dictionary
Application.CustomDictionaries.ClearAll
Open "D:\TEST\CUSTOM.DIC" For Append As #1 'предполагается что файл уже существует
Print #1, "закошмарить"
Close 1
Set dicCustom = Application.CustomDictionaries _
.Add(FileName:="D:\TEST\CUSTOM.DIC")
Application.CustomDictionaries.ActiveCustomDictionary = dicCustom
With dicCustom 'можно явно установить русский язык для словаря (#LID 1049)
.LanguageSpecific = True
.LanguageID = wdRussian
End With
End Sub
[/code]Путь и имя текущего пользовательского словаря можно легко узнать из свойств объекта Dictionary, возвращаемого ActiveCustomDictionary.

[b]Aent[/b]
тема задана в VBA, а не в Word.
Как средствами VBA заносись слова в Словарь.

[url]http://support.microsoft.com/kb/322198[/url]

Вопрос в теме.