DetectLanguage Method Example

This example checks the active document to determine the language it’s written in and then displays the result.

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