Веб-студия Александра ПЕТРОВА

Визуальная реализация ваших фантазий!
Главная
 к началу
Работа
 оценить
Услуги
 заказать
Архив
 скачать
Музыка
 послушать
Информация
 узнать
Контакты и общение
 пообщаться
  Работа:   сайты |  программы и сервисы |  графический дизайн | VBA-макросы
  Примеры VBA-макросов для MS WORD
Вернуться к разделу «VBA-макросы»
    к меню «Макросы для MS-офиса»

    Word-макрос: вставка колонтитула с именем файла
 PageHeader_byFilename

Sub PageHeader_byFilename()
'^A вставить верхний колонтитул: полное имя файла
' Макрос записан 24.10.00 AlexPetrov.ru
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Or ActiveWindow.ActivePane.View.Type _
= wdMasterView Then
ActiveWindow.ActivePane.View.Type = wdPageView
End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
NormalTemplate.AutoTextEntries("Полное имя файла").Insert Where:=Selection _
.Range
Selection.MoveDown Unit:=wdLine, count:=1, Extend:=wdExtend
Selection.MoveUp Unit:=wdLine, count:=1, Extend:=wdExtend
Selection.Font.Bold = wdToggle
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

 

Мнения посетителей по данной теме


А Ваше мнение, впечатление от прочитанного/увиденного/услышанного?


 Имя:   E-mail:   ( спрятать)
Текст:
 
Высказать мнение



Способы связи по вопросам разработки сайта и графического дизайна:

    E-mail:     

    Skype: petrov001
  



 
 Страница поэта Сергея Чупаленкова

Все обновления...    

Не хочу я быть,
Как и все.
Мне б босым ходить
По росе.

Да творить стихи.
Как Басё.
Да избыть грехи.
Вот и всё.


Автор: Сергей Чупаленков.

 Ефим Пассов — основатель методики иноязычного образования

Все новости...    

Ефим Израилевич Пассов.
Заслуженный деятель науки РФ, доктор педагогических наук, профессор,
основатель методики, как науки — теории и технологии иноязычного образования.

Этот ресурс также входит в группы:
  новые работы;  официальные сайты

Записи из блога:

 Copyright © 2008-2018  AlexPetrov.ru



1 2