Question

Languages Language Dictionary

该对象代表 Word 中用于校对或设置格式的语言。Language 对象是 Languages 集合的一个元素。

使用 Language 对象

用 Languages(index) 可返回单独的 Language 对象，其中 index 可以是 Name 属性的值、NameLocal 属性的值、一个 WdLanguageID 常量或者一个 MsoLanguageID 常量（请参阅“Visual Basic 编辑器”中的“对象浏览器”，以获取有效的 WdLanguageID 或 MsoLanguageID 常量的列表）。

用 Name 属性可返回语言的名称，而 NameLocal 属性以用户使用的语言返回语言的名称。下列示例在运行 Word 美国英文版时，以字符串形式返回 Name 属性“Italiano” 和 NameLocal 属性“Italian”（标准）。

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

返回活动的校对词典

对每种已安装校对工具的语言，可用 ActiveGrammarDictionary、ActiveHyphenationDictionary、ActiveSpellingDictionary 和 ActiveThesaurusDictionary 属性返回相应的 Dictionary 对象。下列示例返回 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 在运行拼写或语法检查时会跳过这些经标记的文字。