С диалогами (wdDialogFileSummaryInfo) работает только один раз

Question

У меня есть этот сценарий VBA, который заставляет Word запрашивать пользователя с предложенным именем файла при закрытии файла.

Sub NewTitle()
    With Dialogs(wdDialogFileSummaryInfo)
        .Title = "My_title"
        .Execute
    End With
End Sub

Он отлично работает в первый раз, но если файл был сохранен, когда он не больше не работаю. Почему это так и что с этим можно сделать?

BR Kresten