Метод Dictionaries.Add (Word)

Статья
04/07/2023

Возвращает объект Dictionary , представляющий новый настраиваемый словарь правописания или преобразования, добавленный в коллекцию активных настраиваемых словарей орфографии или преобразования.

Синтаксис

expression. Add (FileName)

выражение (обязательно). Переменная, представляющая коллекцию Dictionaries.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
FileName	Обязательный	String	Строковое имя файла словаря. Если в строке не указан путь, используется путь к средствам проверки правописания.

Возвращаемое значение

Dictionary

Замечания

Если файл с именем, указанным параметром FileName, не существует, Microsoft Word создает его.

Коллекция Dictionaries включает только активные пользовательские словари орфографии. Объекты словаря , производные от коллекции Languages , не имеют метода Add . К ним относятся объекты Dictionary , возвращаемые свойствами ActiveSpellingDictionary, ActiveGrammarDictionary, ActiveThesaurusDictionary и ActiveHyphenationDictionary .

Используйте свойство HangulHanjaDictionaries , чтобы вернуть коллекцию настраиваемых словарей преобразования. Коллекция HangulHanjaConversionDictionaries включает только активные пользовательские словари преобразования.

Пример

В этом примере удаляются все словари из списка настраиваемых словарей и создается новый файл пользовательского словаря. Новый словарь назначается как активный пользовательский словарь, в который автоматически добавляются новые слова.

With CustomDictionaries 
 .ClearAll 
 .Add FileName:="c:\My Documents\MyCustom.dic" 
 .ActiveCustomDictionary = CustomDictionaries(1) 
End With

В этом примере создается новый пользовательский словарь и назначается переменной. Затем новый пользовательский словарь будет использоваться для текста, помеченного как французский канадский. Обратите внимание, что для выполнения проверки орфографии для другого языка необходимо установить средства проверки правописания для этого языка.

Sub FrCanDic() 
 Dim dicFrenchCan As Dictionary 
 
 Set dicFrenchCan = CustomDictionaries.Add(FileName:="FrenchCanadian.dic") 
 With dicFrenchCan 
 .LanguageSpecific = True 
 .LanguageID = wdFrenchCanadian 
 End With 
End Sub

В этом примере удаляются все словари из списка настраиваемых словарей преобразования и создается новый файл пользовательского словаря. Новый словарь назначается как активный пользовательский словарь, в который автоматически добавляются новые слова.

With HangulHanjaDictionaries 
 .ClearAll 
 .Add FileName:="C:\My Documents\MyCustom.hhd" 
 .ActiveCustomDictionary = CustomDictionaries(1) 
End With

См. также

Объект коллекции Dictionaries

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через