Форум по VBA и MS Office

Как с помощью макроса узнать - сохранён документ на жёсткий диск или нет?

Макрос работает с активным документом (это документ, который пользователь видит на экране).

Sub Macro()

    If ActiveDocument.Path = "" Then
        MsgBox "Документ не сохранён на жёсткий диск.", vbInformation
    Else
        MsgBox "Документ сохранён на жёсткий диск.", vbInformation
    End If

End Sub

спасибо