分析指定文本,以确定书写文本的语言类型。
expression.DetectLanguage
expression 必需。该表达式返回 Document、Range 或 Selection 对象。
DetectLanguage 方法的结果逐个字符地保存在 LanguageID 属性中。若要读取 LanguageID 的属性,则必须先指定文本的选定内容或区域。
应用于 Document 对象时,DetectLanguage 方法将检查文档中所有可用文本(页眉、页脚、文本框等)。如果指定文本包含了某个句子的一部分,则选定内容或区域将扩展到该句的句末。
如果指定文本已应用了 DetectLanguage 方法,那么 LanguageDetected 的属性将设置为 True。若要重新检测指定文本的语言,必须先将 LanguageDetected 属性设置为 False。
有关自动语言检测的详细内容,请参阅关于自动语言检测。
本示例检查活动文档,以确定其所用的语言类型并显示检查结果。
With ActiveDocument
If .LanguageDetected = True Then
x = MsgBox("This document has already " _
& "been checked. Do you want to check " _
& "it again?", vbYesNo)
If x = vbYes Then
.LanguageDetected = False
.DetectLanguage
End If
Else
.DetectLanguage
End If
If .Range.LanguageID = wdEnglishUS Then
MsgBox "This is a U.S. English document."
Else
MsgBox "This is not a U.S. English document."
End If
End With