Document.OpenEncoding (Word)

Returns the encoding used to open the specified document.

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