Word VBA Макросы. Как узнать - сохранён документ на жёсткий диск или нет?

[Посетитель]

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

[Администратор]

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

Sub Macro()

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

End Sub

[Посетитель]

спасибо