Document.OpenEncoding (Word)

Gibt die zum Öffnen des angegebenen Dokuments verwendete Codierung zurück.

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