Document.DetectLanguage (Word)

Analisa o texto especificado para determinar o idioma em que está escrito.

Quando aplicado a um objeto Document , o método DetectLanguage verifica todo o texto disponível no documento (cabeçalhos, rodapés, caixas de texto e assim por diante). Se o texto especificado contiver uma frase parcial, a seleção ou o intervalo é estendido até o final da frase. Se o método DetectLanguage já tiver sido aplicado ao texto especificado, a propriedade LanguageDetected é definida como True. Para reavaliar o idioma do texto especificado, você deve primeiro 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