OpenEncoding Property Example

This example tests whether the current document was opened with UTF7 encoding.

If ActiveDocument.OpenEncoding = msoEncodingUTF7 Then
    MsgBox "This is a UTF7-encoded text file!"
Else
    MsgBox "This is not a UTF7-encoded text file!"
End If