Как добавить слово в Словарь (Word)
Модератор: Naeel Maqsudov
- Busine2009
- Сообщения: 322
- Зарегистрирован: 18 июл 2009, 15:34
- Контактная информация:
Вопрос в теме.
- Busine2009
- Сообщения: 322
- Зарегистрирован: 18 июл 2009, 15:34
- Контактная информация:
Aent
тема задана в VBA, а не в Word.
Как средствами VBA заносись слова в Словарь.
тема задана в VBA, а не в Word.
Как средствами VBA заносись слова в Словарь.
- Aent
- Сообщения: 1108
- Зарегистрирован: 01 окт 2006, 14:52
- Откуда: Saratov,Russia
- Контактная информация:
Как в обычный текстовый файл (коим файлы .dic и являются)
Путь и имя текущего пользовательского словаря можно легко узнать из свойств объекта Dictionary, возвращаемого ActiveCustomDictionary.
Код: Выделить всё
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
Андрей Энтелис,
aentelis.livejournal.com
aentelis.livejournal.com
- Busine2009
- Сообщения: 322
- Зарегистрирован: 18 июл 2009, 15:34
- Контактная информация:
Aent
Спасибо, гляну в выходные, но я уже нашёл ответ на этот вопрос, и у тебя тоже предложение.
Спасибо, гляну в выходные, но я уже нашёл ответ на этот вопрос, и у тебя тоже предложение.