Range.DetectLanguage (Word)

Analiza el texto especificado para determinar el idioma en que está escrito.

Los resultados del método DetectLanguage se almacenan en la propiedad LanguageID carácter por carácter. Cuando se aplica a un objeto Document , el método DetectLanguage comprueba todo el texto disponible en el documento (encabezados, pies de página, cuadros de texto, etc.). Si el método DetectLanguage ya se ha aplicado al texto especificado, la propiedad LanguageDetected se establece en True. Para obtener más información acerca de la detección automática de idioma, vea acerca de la detección automática de idioma.

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