Document.OpenEncoding (Word)

Renvoie que le type de codage utilisé pour ouvrir le document spécifié.

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