Word) (语言对象

表示用于校对或设置格式在 Microsoft Word 中的语言。 语言 对象是 语言 集合的一个成员。

备注

使用的 语言 (索引) 来返回一个单一的 语言 对象，其中索引可以是 Name 属性，一个 WdLanguageID 常量，或 读 常量之一的 NameLocal 属性的值的值。 (有关有效的 WdLanguageID 或 读 常数的列表，请参见对象浏览器 Visual Basic 编辑器中)。

Name 属性返回的名称的一种语言，而 NameLocal 属性返回的用户语言中语言的名称。 下面的示例返回字符串"意大利语" 名称 和"意大利语 (标准)" NameLocal 在美国英语版本的 Word 中运行时。

Sub ShowItalianNames() 
 Msgbox Languages(wdItalian).Name 
 Msgbox Languages(wdItalian).NameLocal 
End Sub

对于每个安装校对工具的语言，可以使用 ActiveGrammarDictionary 、 ActiveHyphenationDictionary 、 ActiveSpellingDictionary 和 ActiveThesaurusDictionary 属性以返回相应的 词典 对象。 下面的示例返回美国英语版本的 Word 中使用的活动拼写词典的完整路径。

Sub ShowDictionaryPath 
 Set myspell = Languages(wdEnglishUS).ActiveSpellingDictionary 
 MsgBox mySpell.Path & Application.PathSeparator & mySpell.Name 
End Sub

写作风格是用语法检查器的规则集。 WritingStyleList 属性返回一个数组，这些字符串表示指定语言可用的写作风格。 下面的示例返回美国英语写作风格的列表。

Sub ListWritingStyles() 
 WrStyles = Languages(wdEnglishUS).WritingStyleList 
 For i = 1 To UBound(WrStyles) 
 MsgBox WrStyles(i) 
 Next i 
End Sub

使用 DefaultWritingStyle 属性设置的默认写作风格要让 Word 使用。

Languages(wdEnglishUS).DefaultWritingStyle = "Casual"

您可以重写默认的写作风格与 ActiveWritingStyle 属性。 此属性应用于指定的文档中以指定语言标记的文本。 下面的示例设置要用于检查活动文档中的美国英语、 法语和德语的写作风格。

Sub SetWritingStyle() 
 With ActiveDocument 
 .ActiveWritingStyle(wdEnglishUS) = "Technical" 
 .ActiveWritingStyle(wdFrench) = "Commercial" 
 .ActiveWritingStyle(wdGerman) = "Technisch/Wiss" 
 End With 
End Sub

如果将标记为 wdNoProofing 的文本时，Word 会被标记的文本跳过运行拼写和语法检查。

另请参阅

Word 对象模型参考

支持和反馈

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