Dictionaries.Add 方法 (Word)

返回一个 字典 对象，代表新的自定义拼写或转换词典添加至活动自定义拼写或转换词典的集合。

语法

表达式。添加 (FileName)

expression 是必需的。 一个代表“Dictionaries”集合的变量。

参数

名称	必需/可选	数据类型	说明
FileName	必需	String	词典文件的字符串名。 如果该字符串中没有指定任何路径，则使用校对工具的路径。

返回值

Dictionary

备注

如果 FileName 参数指定名称的文件不存在，Microsoft Word 就会新建一个文件。

字典 集合包括仅活动自定义拼写词典。 从 语言 集合派生的 字典 对象不具有 Add 方法。 其中包括 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

另请参阅

字典集合对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。