Как добавить слово в Словарь (Word)

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: Сб июл 18, 2009 2:34 pm
Контактная информация:

Как добавить слово в Словарь (Word)

Сообщение Busine2009 » Сб апр 10, 2010 5:52 pm

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

Аватара пользователя
Aent
Сообщения: 1108
Зарегистрирован: Вс окт 01, 2006 1:52 pm
Откуда: Saratov,Russia
Контактная информация:

Re: Как добавить слово в Словарь (Word)

Сообщение Aent » Пн апр 12, 2010 2:44 pm

Андрей Энтелис,
aentelis.livejournal.com

Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: Сб июл 18, 2009 2:34 pm
Контактная информация:

Re: Как добавить слово в Словарь (Word)

Сообщение Busine2009 » Пн апр 12, 2010 8:47 pm

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

Аватара пользователя
Aent
Сообщения: 1108
Зарегистрирован: Вс окт 01, 2006 1:52 pm
Откуда: Saratov,Russia
Контактная информация:

Re: Как добавить слово в Словарь (Word)

Сообщение Aent » Вт апр 13, 2010 1:17 am

Как в обычный текстовый файл (коим файлы .dic и являются)

Код: Выделить всё

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
Путь и имя текущего пользовательского словаря можно легко узнать из свойств объекта Dictionary, возвращаемого ActiveCustomDictionary.
Андрей Энтелис,
aentelis.livejournal.com

Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: Сб июл 18, 2009 2:34 pm
Контактная информация:

Re: Как добавить слово в Словарь (Word)

Сообщение Busine2009 » Вт апр 13, 2010 7:53 pm

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

Ответить