Как добавить слово в Словарь (Word)
Добавлено: 10 апр 2010, 18:52
Вопрос в теме.
Код: Выделить всё
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