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

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

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

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

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

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

Спасибо.