присоединяюсь к вопросу

ну например, пусть это будет первая строка (она же абзац). С чего начать?...

авторSub Имя()
Dim FN As String
Dim DefaultName As String
DefaultName = ThisDocument.Paragraphs(1).Range.Text
FN = InputBox("Введите имя файла: ", "Сохранение", DefaultName)
End Sub

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

авторSub Имя()
Dim FN As String
Dim DefaultName As String
DefaultName = ActiveDocument .Paragraphs(1).Range.Text
FN = InputBox("Введите имя файла: ", "Сохранение", DefaultName)
End Sub
разобрался, вот так работает. Спасибо!!!

Shocker.Pro, возможно плохая, но иначе не работает

иначе это через ThisDocument. Никакого эффекта этот код не дал, а вот ActiveDocument дало желаемый результат