Range.DetectLanguage (Word)
Analyse le texte spécifié pour en déterminer la langue.
Les résultats de la méthode DetectLanguage sont stockés dans la propriété LanguageID sur une base de caractère par caractère. Lorsqu’elle est appliquée à un objet document , la méthode DetectLanguage vérifie tout le texte disponible dans le document (en-têtes, pieds de page, zones de texte, etc.). Si la méthode DetectLanguage a déjà été appliquée au texte spécifié, la propriété LanguageDetected est définie sur True. Pour plus d'informations sur la détection automatique de langue, voir à propos de la détection automatique de la langue.
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