Word VBA Макросы. Как записать внутрь надписи текст с помощью макроса?

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

В документе находится только надпись и ничего больше нет (ни текста, ни других надписей).
Как в эту надпись записать какой-либо текст с помощью макроса?

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

Sub Macro()
    ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "Text"
End Sub

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

Спасибо.