Как вставить в колонтинтул путь и имя файла

Комментариев: 14

1. 

   Николай
   13.07.2009 в 08:55 | #1

   Здравствуйте. Каким способом можно поменять шрифт текста который вставляется в этот колонтитул, и есть ли возможность чтобы имя файла было с расширением. Спасибо.
2. 

   Александр Витер
   13.07.2009 в 09:23 | #2

   Вместо этой строки

   .Fields.Add Range:=hfRange, Type:=wdFieldEmpty, Text:="FILENAME  \p" 'поле пути и имени файла

   вставьте такие:

   'Это вставит имя файла с расширением
     .InsertAfter Mid(ThisDocument.FullName, InStrRev(ThisDocument.FullName, "\") + 1)
     'Это изменит шрифт
     .Font.Name = "courier"

   Имя файла вставится не полем, но, думаю, что это несущественно в данном случае.
3. 

   Николай
   13.07.2009 в 10:21 | #3

   Sub filenametofooter()

   'Вставка в нижний колонтитул пути и имени активного документа

   Dim hfRange As Range 'диапазон колонтитулов

   Set hfRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range

   With hfRange

   .Delete

   'Это вставит имя файла с расширением

   .InsertAfter Mid(ThisDocument.FullName, InStrRev(ThisDocument.FullName, "\") + 1)

   'Это изменит шрифт

   .Font.Name = "courier"

   End With

   ActiveDocument.ActiveWindow.View.ShowFieldCodes = False 'скрываем коды полей, если они отображались

   ActiveWindow.View.Type = wdPrintView 'переключаемся в режим Разметка страницы

   ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit 'формат по ширине страницы

   End Sub

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

   Спасибо.
4. 

   Александр Витер
   13.07.2009 в 11:54 | #4

   Замените ThisDocument на ActiveDocument. У вас макрос наверное в шаблоне лежит
5. 

   Админ
   13.07.2009 в 11:57 | #5

   Николай, а разве в первом макросе в заметке имя файла вставляется без расширения? Вставляется полный путь с полным именем файла.

   P.S. Не заметил, что нужно только имя файла...
6. 

   Админ
   13.07.2009 в 12:02 | #6

   Шрифт текста в колонтитуле вы можете поменять соответствующим стилем, а нумерацию на первой странице нужно ограничить либо вставкой нового раздела для второй и следующих страниц, либо снятием параметра для колонтитулов "Как в предыдущем".
7. 

   Админ
   13.07.2009 в 12:12 | #7

   А чтобы оставить только имя файла, надо из кода макроса убрать у строки

   .Fields.Add Range:=hfRange, Type:=wdFieldFileName, Text:="FILENAME \p"

   ключ \р, чтобы получилось так:

   .Fields.Add Range:=hfRange, Type:=wdFieldFileName, Text:="FILENAME"
8. 

   Николай
   13.07.2009 в 12:27 | #8

   Спасибо большое, помогло. А как снять параметр для колонтитулов "Как в предыдущем"?
9. 

   Админ
   13.07.2009 в 12:31 | #9

   Вот ссылка на статью:

   http://wordexpert.ru/page/kak-vstavit-nazvanie-glavyi-v-kolontitul

   А это список статей по колонтитулам:

   http://wordexpert.ru/page/10-poleznyx-zametok-o-kolontitulax
10. 

    Иван
    30.03.2010 в 10:55 | #10

    а как вставить только одно имя файла без расширения?
11. 

    Дмитрий
    15.07.2010 в 03:07 | #11

    Ну скажите пожалуйста, как же все таки вставить только одно имя файла без расширения?
12. 

    Александр Витер
    15.07.2010 в 09:30 | #12

    К сожалению, никак. Вставьте с расширением. Затем расширение с точкой выделите и нажмите Shift+Ctrl+H, чтобы сделать выделенный текст невидимым.
13. 

    Александр
    17.12.2010 в 11:50 | #13

    Скажите пожалуйса. Возможно ли сделать такую махинацию. необходимо в нижнем поле добавить макрос с полным путем к файлу но с динамическим обновлением содержимого. Т.е. сохраняю я к примеру на рабочем столе файл и автоматом прописывается путь к фалйлу "C:\Documents and Settings\SSS\Рабочий стол\022908 бланк.doc" если я обращаюсь к файлу сохраненному на рабочем столе и пересохраняю его по новому пути к примеру "D:\мои документы" путь в файле не изменяется остается пердыдущий "C:\Documents and Settings ... и т.д" возможн ли установить дополнительным параметром при сохранении документа проверка имени пути и его обновления???? Возможно я что-то упустил прошу прощения если не дочитался. Спасибо за статью.
14. 

    Админ
    17.12.2010 в 21:28 | #14

    Под "нижним полем" вы, видимо, подразумеваете нижний колонтитул. Вставляете поле, как описано в заметке, а вот чтобы это поле автоматически обновлялось, необходимо принудительное воздействие. Например, автомакросы, типа AutoOpen или же самостоятельное обновление поля с помощью макроса.

    Подробнее можно почитать здесь:

    Автоматическое обновление полей при открытии документа