Как прописать в VBA код, чтобы файл сохранялся под именем верхнего колонтитула в нужную папку?

Ответы:

По-моему у колонтитулов нет имен.
если хотите сохранить под именем, равным тексту верхнего колонтитула, то можно так:
Sub СохранитьКакНаписаноВКолонтитуле()
Dim ИмяФайла As String
ИмяФайла = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text
ИмяФайла = Replace(ИмяФайла, Chr(13), "") ' Удаляем ненужные символы из имени (замена может быть и другой - такой как вам необходимо)
ActiveDocument.SaveAs ИмяФайла 'Собственно сохранение :-)))

End Sub

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.