Document.LanguageDetected (Word)

Retorna ou define um valor que especifica se o Microsoft Word detectou o idioma do texto especificado. Boolean de leitura/gravação.

Verifique a propriedade LanguageID para os resultados de qualquer detecção de idioma anterior. A propriedade LanguageDetected é definida como True, quando o método DetectLanguage é chamado. Para reavaliar o idioma do texto especificado, primeiro você deve definir a propriedade LanguageDetected como 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