Работа с колонтитулами word vba

Колонтитулы — программное изменение

Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Формулировка задачи:

Прошу помочь в следующей ситуации.

Из начально документ имеет один раздел с одной страницей (первая страница — особый колонтитул). По ходу работы с документом возможно появление N — страниц в первом разделе а, также Np — количество разделов. Необходимо создать код который вставляет номер страницы (скажем по центру): — особый колонтитул только для первого раздела; — нумерация последующих разделов с 1. Пробую научиться задать формат номера страницы, не выходит — аленький цветочек.

Следующее специальное форматирование и коды Visual Basic для приложений (VBA) могут быть включены в состав свойств верхнего и нижнего колонтитулов (лефсеадер, центерхеадер, ригхсеадер, лефтфутер, центерфутер, и ригхтфутер). The following special formatting and Visual Basic for Applications (VBA) codes can be included as a part of the header and footer properties (LeftHeader, CenterHeader, RightHeader, LeftFooter, CenterFooter, and RightFooter).

XX — это двузначное число от 1 до 12, которое указывает цвет темы для использования. xx is a two-digit number from 1 to 12 that specifies the theme color to use.

S nnn задает затенение (оттенок) цвета темы. S nnn specifies the shade (tint) of that theme color. Укажите S как +, чтобы создать более светлую тень; Укажите » S «, чтобы создать темную тень. Specify S as + to produce a lighter shade; specify S as — to produce a darker shade.

nnn это целое число из трех цифр, которое определяет процент от 0 до 100. nnn is a three-digit whole number that specifies a percentage from 0 to 100.

Если значения, задающие цвет или затенение темы, не превышают указанные пределы, Excel будет использовать ближайшее допустимое значение. If the values that specify the theme color or shade are not within the described limits, Excel will use the nearest valid value.

Пример Example

В приведенном ниже коде показано, как можно использовать форматирование и коды VBA для изменения сведений и внешнего вида заголовка. The following code shows how formatting and VBA codes can be used to modify the header information and appearance.

Поддержка и обратная связь Support and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь. Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Всем привет, с вами автор блога scriptcoding.ru. В данной статье мы рассмотрим коллекцию HeadersFooters и ее объекты HeaderFooter, которые отвечают за редактирование или создание колонтитулов в Word документе.

Важной особенностью при работе с коллекцией HeadersFooters является то, что она содержит в себе не количество классов HeadersFooter для каждой страниц (то есть, если у нас 30 статей в разделе, то это не означает, что у нас 30 колонтитулов в ворде), а количество возможных параметров при работе с колонтитулами в Word, поясню….

В самом документе мы можем вставить верхний колонтитул в ворде или нижний колонтитул в ворде, которые будет отображаться на всех страницах, это понятно. Далее, мы можем указать, что бы для четных и нечетных отображались разные колонтитулы. И, мы можем указать индивидуальный колонтитул для первой страницы Word.

Для доступа к коллекции HeadersFooters используются свойства Headers или Footers, которые указывают: с верхним или с нижним колонтитулом в ворде мы хотим работать . Данные свойства есть у объекта Section, который позволяет обрабатывать нужный раздел. Напомню, что в документ можно вставить несколько разделов, которые будут содержать статьи, обрабатываемые в индивидуальном порядке.

• Если мы хотим указать, что нужно создавать разные колонтитулы в Word для четных и нечетных, то свойству OddAndEvenPagesHeaderFooter объекта PageSetup нужно присвоить значение true.
• Если надо создать колонтитул в ворде, который будет уникальным для первой статьи, то свойству DifferentFirstPageHeaderFooter объекта PageSetup присваивается значение true.

Сам процесс создания верхних и нижних колонтитулов в документе Word я рассмотрю в конце статьи, а пока, рассмотрим методы и свойства коллекции HeadersFooters и класса HeaderFooter.

Свойства – верхний колонтитул в ворде

Application — Возвращает объект Application, представляющий приложение Microsoft Word.

Count – Возвращает количество объектов HeaderFooter, данное значение фиксировано и равно 3, так как можно задать три параметры при добавлении колонтитулов в ворд.

Методы – нижний колонтитул в ворде

Item (index) – Позволяет получить доступ к объекту HeaderFooter по его номеру в коллекции.

Index – Данный параметр содержит значения константы WdHeaderFooterIndex:

• wdHeaderFooterEvenPages — 3 — Все к-тулы, даже на пронумерованных статьях.
• wdHeaderFooterFirstPage — 2 — Первый к-тул в документе или разделе.

Тут стоит дать некоторое пояснение…. Если вы хотите добавить колонтитулы в Word на все страницы, то для параметра index указывайте значение 3. Если вы хотите создать колонтитулы в ворд индивидуально для четных и нечетных, то указывайте значение 1 для нечетных и 3 для четных, предварительно, нужно использовать свойство OddAndEvenPagesHeaderFooter объекта PageSetup . Если вы хотите указать Word колонтитул только для первой страницы раздела, то используйте значение 2, прописав перед этим свойство DifferentFirstPageHeaderFooter объекта PageSetup .

Объект HeaderFooter содержит в своем арсенале только свойства.

Свойства – работа с колонтитулами в Word

Application — Возвращает объект Application, представляющий приложение Microsoft Word.

Exists – Значение true, если указанный объект HeaderFooter существует. Чтение и запись.

Index – Свойство возвращает значение константы WdHeaderFooterIndex (смотрите выше), которая представляет указанный Word колонтитул в документе или разделе. Только чтение.

IsHeader – Значение true, если указанный HeaderFooter является верхним колонтитулом в ворде и значение false – если нижним колонтитулом в ворде. Только чтение.

LinkToPrevious — Значение true, если указанный колонтитул в Word связан с соответствующим к-тулом в предыдущем разделе. Чтение и запись.

PageNumbers — Возвращает коллекцию PageNumbers, которая представляет все номера страницы, входящие в указанный верхний или нижний колонтитул в ворд.

Range — Возвращает объект Range, представляющий часть документа, которая содержится в указанных колонтитулах Word.

Shapes — Возвращает коллекцию Shapes, представляющую все объекты Shape в нижнем или верхнем колонтитуле в ворд.

Хорошо, теперь, как я и обещал, мы рассмотрим два сценария на языке VBScript и JScript сервера сценариев Windows Script Host, а после, я дам пояснения того, как они работают.

Пример на языке VBSCRIPT:

Пример на языке JSCRIPT:

В данных примерах все довольно просто, мы создаем новый документ, добавляем в него текст и создаем колонтитулы в Word для четных, нечетных страниц и для первой страницы. Обратите внимание, что через свойство Range мы получаем доступ к остальным классам, которые позволяют вставить текст. При желании, вы можете усложнить программный код, добавив выравнивание текста и прочие параметры форматирования.

Спасибо за внимание. Автор блога Владимир Баталий

Советую ещё почитать:

• Коллекция Word PageNumbers и объекты PageNumber — нумерация страниц в ворде

• В ожидании повышения посещаемости сайта и роста позиций.

• VBScript: Остановка процесса из командной строки

• Пример скрипта «Электронные часы»

• Spiro – ещё один графический онлайн редактор для рисования

Всем привет, с вами автор блога scriptcoding.ru. В данной статье мы рассмотрим коллекцию HeadersFooters и ее объекты HeaderFooter, которые отвечают за редактирование или создание колонтитулов в Word документе.

Важной особенностью при работе с коллекцией HeadersFooters является то, что она содержит в себе не количество классов HeadersFooter для каждой страниц (то есть, если у нас 30 статей в разделе, то это не означает, что у нас 30 колонтитулов в ворде), а количество возможных параметров при работе с колонтитулами в Word, поясню….

В самом документе мы можем вставить верхний колонтитул в ворде или нижний колонтитул в ворде, которые будет отображаться на всех страницах, это понятно. Далее, мы можем указать, что бы для четных и нечетных отображались разные колонтитулы. И, мы можем указать индивидуальный колонтитул для первой страницы Word.

Для доступа к коллекции HeadersFooters используются свойства Headers или Footers, которые указывают: с верхним или с нижним колонтитулом в ворде мы хотим работать. Данные свойства есть у объекта Section, который позволяет обрабатывать нужный раздел. Напомню, что в документ можно вставить несколько разделов, которые будут содержать статьи, обрабатываемые в индивидуальном порядке.

• Если мы хотим указать, что нужно создавать разные колонтитулы в Word для четных и нечетных, то свойству OddAndEvenPagesHeaderFooter объекта PageSetup нужно присвоить значение true.
• Если надо создать колонтитул в ворде, который будет уникальным для первой статьи, то свойству DifferentFirstPageHeaderFooter объекта PageSetup присваивается значение true.

Сам процесс создания верхних и нижних колонтитулов в документе Word я рассмотрю в конце статьи, а пока, рассмотрим методы и свойства коллекции HeadersFooters и класса HeaderFooter.

Свойства – верхний колонтитул в ворде

Application— Возвращает объект Application, представляющий приложение Microsoft Word.

Count– Возвращает количество объектов HeaderFooter, данное значение фиксировано и равно 3, так как можно задать три параметры при добавлении колонтитулов в ворд.

Методы – нижний колонтитул в ворде

Item(index) – Позволяет получить доступ к объекту HeaderFooter по его номеру в коллекции.

Index – Данный параметр содержит значения константы WdHeaderFooterIndex:

• wdHeaderFooterEvenPages — 3 — Все к-тулы, даже на пронумерованных статьях.
• wdHeaderFooterFirstPage — 2 — Первый к-тул в документе или разделе.
• wdHeaderFooterPrimary — 1 — Возвращает к-тулы на всех, кроме первой страницы документа или раздела.

Тут стоит дать некоторое пояснение…. Если вы хотите добавить колонтитулы в Word на все страницы, то для параметра index указывайте значение 3. Если вы хотите создать колонтитулы в ворд индивидуально для четных и нечетных, то указывайте значение 1 для нечетных и 3 для четных, предварительно, нужно использовать свойство OddAndEvenPagesHeaderFooter объекта PageSetup. Если вы хотите указать Word колонтитул только для первой страницы раздела, то используйте значение 2, прописав перед этим свойство DifferentFirstPageHeaderFooter объекта PageSetup.

Объект HeaderFooter содержит в своем арсенале только свойства.

Свойства – работа с колонтитулами в Word

Application— Возвращает объект Application, представляющий приложение Microsoft Word.

Exists– Значение true, если указанный объект HeaderFooter существует. Чтение и запись.

Index– Свойство возвращает значение константы WdHeaderFooterIndex(смотрите выше), которая представляет указанный Word колонтитул в документе или разделе. Только чтение.

IsHeader– Значение true, если указанный HeaderFooter является верхним колонтитулом в ворде и значение false – если нижним колонтитулом в ворде. Только чтение.

LinkToPrevious— Значение true, если указанный колонтитул в Word связан с соответствующим к-тулом в предыдущем разделе. Чтение и запись.

PageNumbers— Возвращает коллекцию PageNumbers, которая представляет все номера страницы, входящие в указанный верхний или нижний колонтитул в ворд.

Range— Возвращает объект Range, представляющий часть документа, которая содержится в указанных колонтитулах Word.

Shapes— Возвращает коллекцию Shapes, представляющую все объекты Shape в нижнем или верхнем колонтитуле в ворд.

Хорошо, теперь, как я и обещал, мы рассмотрим два сценария на языке VBScript и JScript сервера сценариев Windows Script Host, а после, я дам пояснения того, как они работают.

Пример на языке VBSCRIPT:

' ----------------------------------------------------------------------------
' Коллекция HeadersFooters и классы HeaderFooter
' Колонтитулы в Word
' HeadersFooters.vbs
' ----------------------------------------------------------------------------
Option Explicit
 
dim oWord, oDoc, oSel, i, MyText
 
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents
oDoc.Add()
oWord.Visible = true
Set oSel = oWord.Selection
 
MyText = "Колонтитулы в ворде. "
 
For i=0 to 40
    oSel.TypeText MyText & MyText & MyText & MyText & MyText & MyText & MyText
    oSel.TypeParagraph
Next
 
With oDoc(1).Sections(1)
    .PageSetup.OddAndEvenPagesHeaderFooter = true                                              ' Различные колонтитулы в Word для четных и нечетных
    .PageSetup.DifferentFirstPageHeaderFooter = true                                                ' Уникальный колонтитул в Word для первой страницы
 
    '-------------------------------------------------------------------------------------------
    ' верхний и нижний колонтитулы в ворде для четных
    '-------------------------------------------------------------------------------------------
    .Headers(3).Range.Text = "Заголовок – четные1, 2,4,6....."
    .Footers(3).Range.Text = "Футер – четные1, 2,4,6....."
    '-------------------------------------------------------------------------------------------
 
    '-------------------------------------------------------------------------------------------
    ' нижний и верхний колонтитулы в ворде для нечетных
    '-------------------------------------------------------------------------------------------
    .Headers(1).Range.Text = "Заголовок – нечетные1, 1,3,5....."
    .Footers(1).Range.Text = "Футер – нечетные1, 1,3,5....."
    '-------------------------------------------------------------------------------------------
 
    '-------------------------------------------------------------------------------------------
    ' Верхний и нижний колонтитулы в Word для первой страницы
    '-------------------------------------------------------------------------------------------
    .Headers(2).Range.Text = "Заголовок"
    .Footers(2).Range.Text = "Футер"
    '-------------------------------------------------------------------------------------------
End With

Пример на языке JSCRIPT:

// ----------------------------------------------------------------------------
// Коллекция HeadersFooters и классы HeaderFooter
// Колонтитулы в Word
// HeadersFooters.js
// ----------------------------------------------------------------------------
var oWord1, oDoc1, oSel1, i, MyText1;
 
oWord1 = WScript.CreateObject("Word.Application");
oDoc1 = oWord1.Documents;
oDoc1.Add();
oWord1.Visible = true;
oSel1 = oWord1.Selection;
 
MyText1 = "Колонтитулы в ворде. ";
 
for(i=0; i<=40; i++){
    oSel1.TypeText(MyText1 + MyText1 + MyText1 + MyText1 + MyText1 + MyText1 + MyText1);
    oSel1.TypeParagraph();
}
 
with(oDoc1(1).Sections(1)){
    PageSetup.OddAndEvenPagesHeaderFooter = true                                   // Различные колонтитулы в Word для четных и нечетных
    PageSetup.DifferentFirstPageHeaderFooter = true                                      // Уникальный колонтитул в Word для первой страницы
 
    //-------------------------------------------------------------------------------------------
    // верхний и нижний колонтитулы в ворде для четных
    //-------------------------------------------------------------------------------------------
    Headers(3).Range.Text = "Заголовок – четные1, 2,4,6....."
    Footers(3).Range.Text = "Футер – четные1, 2,4,6....."
    //-------------------------------------------------------------------------------------------
 
    //-------------------------------------------------------------------------------------------
    // нижний и верхний колонтитулы в ворде для нечетных
    //-------------------------------------------------------------------------------------------
    Headers(1).Range.Text = "Заголовок – нечетные1, 1,3,5....."
    Footers(1).Range.Text = "Футер – нечетные1, 1,3,5....."
    //-------------------------------------------------------------------------------------------
 
    //-------------------------------------------------------------------------------------------
    // Верхний и нижний колонтитулы в Word для первой страницы
    //-------------------------------------------------------------------------------------------
    Headers(2).Range.Text = "Заголовок"
    Footers(2).Range.Text = "Футер"
    //-------------------------------------------------------------------------------------------
}

В данных примерах все довольно просто, мы создаем новый документ, добавляем в него текст и создаем колонтитулы в Word для четных, нечетных страниц и для первой страницы. Обратите внимание, что через свойство Range мы получаем доступ к остальным классам, которые позволяют вставить текст. При желании, вы можете усложнить программный код, добавив выравнивание текста и прочие параметры форматирования.

Категория: Excel

Опубликовано: 30 октября 2021

Просмотров: 1954

'верхний колонтитул
With wdDoc
    For Each Section In .Sections
        For Each Header In Section.Headers
            With Header.Range.Find
                .Text = "&sn"
                .Replacement.Text = SN$
                .Wrap = wdFindContinue
                Call .Execute(Replace:=wdReplaceAll)
            End With
        Next
    Next Section
End With

'нижний колонтитул
With wdDoc
    For Each Section In .Sections
        For Each footer In Section.Footers
            With footer.Range.Find
                .Text = "&adress"
                .Replacement.Text = Adress$
                .Wrap = wdFindContinue
                Call .Execute(Replace:=wdReplaceAll)
            End With
        Next
    Next Section
End With