Document.OpenEncoding (Word)

Retorna que a codificação usada para abrir o documento especificado. Somente leitura MsoEncoding.

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