Document.OpenEncoding (Word)

Devuelve que la codificación utilizada para abrir el documento especificado.

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