Word VBA教程:Language对象

   
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

返回活动的校对词典

对每种已安装校对工具的语言,可用ActiveGrammarDictionaryActiveHyphenationDictionaryActiveSpellingDictionaryActiveThesaurusDictionary属性返回相应的 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 在运行拼写或语法检查时会跳过这些经标记的文字。

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号