Word переменные в колонтитулах

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

Порядок выполнения

  • Вставить в документ
    постоянный колонтитул обычным способом.

  • Двойным щелчком
    ЛКМ в области колонтитула открыть режим
    редактирования.

  • Установить курсор
    в ту часть колонтитула, куда следует
    вводить названия заголовков.

  • Выполнить команду
    [Вставка
    — Поле].

  • Выбрать категорию
    Связи и ссылки.

  • Выделить
    поле Styleref.

  • На вкладке Стили
    выбрать стиль, которым оформлен
    заголовок, включаемый в колонтитул.

  • Закрыть диалоговое
    окно кнопкой ОК.

15 Вычисление в таблицах мs Word.

Адреса ячеек
таблицы Word
аналогичны адресам ячеек Excel
и состоят из имени столбца, и номера
строки А1,
А
2,
А
3

Аргументом
функций могут быть:

  • Числа

  • Ссылки на ячейки
    слева LEFT.

  • Ссылки на ячейки
    сверху ABOVE.

  • Адрес диапазона
    ячеек А1

Функция используемых
в MS
Word:

ABS
(х) — абсолютное значение числа х.

AVERAGE
— среднее значение ячеек включает в
список.

COUNT
— число элементов в списке.

int
(х) — целая часть числа.

MAX
— максимальное значение диапазона ячеек.

MIN
(х) — минимальное значение.

SUM
— сумма значений ячеек.

PRODAKT
— произведение значений ячеек, включенных
в список.

  1. Установить курсор
    в ячейку таблицы.

  2. Выполнить команду
    Таблица — Формула.

  3. В дополнительном
    окне в поле Формула: удалить формулу,
    предлагаемую по умолчанию, до знака =
    затем ввести нужную формулу, либо
    выбрать нужную из выпадающего списка
    в текстовом поле Вставить функцию.

  4. Ввести аргументы
    функции.

  5. Выбрать формат
    числа из выпадающего списка.

  6. Щелкнуть кнопку ОК.

125

5612

14

452

356

2539

52

235

451

1452

62

145

268

3215

45

265

254

4561

38

248

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

  • #
  • #
  • #
  • #
  • #
  • #
  • #
  • #
  • #
  • #
  • #
 

Игоr’

Пользователь

Сообщений: 12
Регистрация: 08.03.2021

Всем доброго дня! У меня проблема с подстановкой данных из Эксель в шаблон Ворд: не происходит замещение переменной (&датаотб2) в колонтитуле. Ввиду полного отсутствия знаний в этом вопросе не могу понять как решить эту проблему. Огромная просьба, если кто-то знает как решить эту задачку, подскажите, пожалуйста, начинающему

Код
Sub ХВС_Акт_отбора()
Dim wdApp As Object
Dim wdDoc As Object

HomeDir$ = ThisWorkbook.Path
Set wdApp = CreateObject("Word.Application")
i% = 2
Do
If Cells(i%, 1).Value = "" Then Exit Do
If Cells(i%, 1).Value <> "" Then

NPP$ = Cells(i%, 1).Text
наименованиезаказчика$ = Cells(i%, 2).Text
юрадресзаказчика$ = Cells(i%, 3).Text
наименованиелицафактотб$ = Cells(i%, 4).Text
фактичадресотбора$ = Cells(i%, 5).Text
контактызаказчика$ = Cells(i%, 6).Text
датаотб$ = Cells(i%, 7).Text
датадоставки$ = Cells(i%, 8).Text
цельотбора$ = Cells(i%, 9).Text
методотбора$ = Cells(i%, 10).Text
основаниедляотбора$ = Cells(i%, 11).Text
хвскодпробы$ = Cells(i%, 12).Text


FileCopy HomeDir$ + "аошаблон2.dotx", HomeDir$ + "" + NPP$ + "_" + наименованиезаказчика$ + "_" + датаотб$ + ".doc"
Set wdDoc = wdApp.Documents.Open(HomeDir$ + "" + NPP$ + "_" + наименованиезаказчика$ + "_" + датаотб$ + ".doc")

wdDoc.Range.Find.Execute FindText:="&date", ReplaceWith:=DataC$

wdDoc.Range.Find.Execute FindText:="&наименованиезаказчика", ReplaceWith:=наименованиезаказчика$
wdDoc.Range.Find.Execute FindText:="&юрадресзаказчика", ReplaceWith:=юрадресзаказчика$
wdDoc.Range.Find.Execute FindText:="&наименованиелицафактотб", ReplaceWith:=наименованиелицафактотб$
wdDoc.Range.Find.Execute FindText:="&фактичадресотбора", ReplaceWith:=фактичадресотбора$
wdDoc.Range.Find.Execute FindText:="&контактызаказчика", ReplaceWith:=контактызаказчика$
wdDoc.Range.Find.Execute FindText:="&датаотб", ReplaceWith:=датаотб$
wdDoc.Range.Find.Execute FindText:="&датаотб1", ReplaceWith:=датаотб$
wdDoc.Range.Find.Execute FindText:="&датаотб2", ReplaceWith:=датаотб$
wdDoc.Range.Find.Execute FindText:="&датадоставки", ReplaceWith:=датадоставки$
wdDoc.Range.Find.Execute FindText:="&цельотбора", ReplaceWith:=цельотбора$
wdDoc.Range.Find.Execute FindText:="&методотбора", ReplaceWith:=методотбора$
wdDoc.Range.Find.Execute FindText:="&основаниедляотбора", ReplaceWith:=основаниедляотбора$
wdDoc.Range.Find.Execute FindText:="&хвскодпробы", ReplaceWith:=хвскодпробы$

wdDoc.Save
wdDoc.Close
End If

i% = i% + 1
Loop
wdApp.Quit
MsgBox "Готово!"

End Sub

Изменено: Игоr’14.03.2021 13:38:20

Примечание: 
Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим
ссылку на оригинал (на английском языке)
.

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

В этой статье

  • Вставка верхнего или нижнего колонтитула

  • Центр верхний или нижний колонтитул

  • По правому краю верхний или нижний колонтитул

  • Удаление верхнего или нижнего колонтитула

Вставка колонтитула

  1. В меню Вид выберите пункт Колонтитулы.

  2. Откройте вкладку Параметры печати.

  3. В разделе верхние и нижние колонтитулы выполните одно из указанных ниже действий.

    • Чтобы добавить заголовок в шаблон формы, нажмите кнопку верхний колонтитул.

    • Чтобы добавить подпись в шаблон формы, нажмите кнопку нижний колонтитул.

  4. В диалоговом окне Формат верхний колонтитул или Нижний колонтитул формат выполните одно из указанных ниже действий.

    • Чтобы вставить надпись в верхний или нижний колонтитул, например название компании, введите текст, который нужно в диалоговом окне Печать формы с этим заголовком или Печать формы с нижним колонтитулом. По умолчанию будет текст по левому краю в верхнем или нижнем колонтитуле печатной формы.

    • Вставка переменной текста в верхний или нижний колонтитул, например текущей страницы или текущую дату, выберите нужный вариант в списке Вставить автотекст. Чтобы включить текст в сочетании с переменной, введите текст и переменная непосредственно в поле напечатать формы с этим заголовком или формы с нижним колонтитулом. Например, чтобы напечатать «Страница 1 из 3,» «Страница 2 из 3,» и т. д, введите в поле Печать формы с этим заголовком или Печать формы с нижним колонтитуломСтраница & p из & P .

      Примечание: Найти ссылки на дополнительные сведения о колонтитулах в разделе См.

      Список элементов автотекста

      Следующие элементы автотекста можно использовать при создании верхний или нижний колонтитул.

      Действие

      Используйте этот элемент автотекста

      Переменная

      Печать данных из формы

      Поле

      Да/нет

      Напечатать текущую дату в коротком формате *

      Краткий формат даты

      & d

      Напечатать текущую дату в длинный формат *

      Длинный формат даты

      & D

      Печать текущего времени *

      Время (региональный формат)

      & t

      Печать текущего времени в 24-часовой формат времени

      24-часовом формате

      & T

      Печать текущего номера страницы

      Текущая страница

      & p

      Печать общее число страниц

      Общее число страниц

      & P

      Выравнивание текста по правому краю

      Сдвиг текста вправо

      & b

      Печать одного амперсанд (&) символов

      &

      & &

      * Как указано в региональных параметрах панели управления.

  5. Выберите нужные параметры форматирования, которые требуется применить верхний или нижний колонтитул.

  6. Чтобы проверить, как будут выглядеть изменения на печатной формы, нажмите кнопку Предварительный просмотр Изображение кнопкина стандартной панели инструментов.

    Примечание: Верхние и нижние колонтитулы отображаются только в окне предварительного просмотра и в распечатанном виде, а не будут отображаться в окне предварительного просмотра обычные.

К началу страницы

Центр верхний или нижний колонтитул

По умолчанию в верхний или нижний колонтитул на появится в левой части печатной формы. Для центрирования текста в верхний или нижний колонтитул, необходимо заключить с переменной & b текстом.

  1. В меню Вид выберите пункт Колонтитулы.

  2. Откройте вкладку Параметры печати.

  3. В разделе верхние и нижние колонтитулы щелкните верхний или нижний колонтитул.

  4. В диалоговом окне Печать формы с этим заголовком или Печать формы с нижним колонтитулом поместите курсор в начале верхний или нижний колонтитул и введите & b.

  5. Поместите курсор в конец текста верхнего или нижнего колонтитула и еще раз введите & b.

    Например по центру имя вашей компании в верхний колонтитул, введите bname & b, где имя — имя вашей компании.

  6. Чтобы проверить, как будут выглядеть изменения на печатной формы, нажмите кнопку Предварительный просмотр Изображение кнопкина стандартной панели инструментов.

    Примечание: Верхние и нижние колонтитулы отображаются только в окне предварительного просмотра и в распечатанном виде, а не будут отображаться в окне предварительного просмотра обычные.

К началу страницы

По правому краю верхний или нижний колонтитул

По умолчанию в верхний или нижний колонтитул на появится в левой части печатной формы. Чтобы по правому краю текста в верхний или нижний колонтитул, необходимо использовать переменной & b до этого текста.

  1. В меню Вид выберите пункт Колонтитулы.

  2. Откройте вкладку Параметры печати.

  3. В разделе верхние и нижние колонтитулы щелкните верхний или нижний колонтитул.

  4. В диалоговом окне Печать формы с этим заголовком или Печать формы с нижним колонтитулом поместите курсор в начале верхний или нижний колонтитул и введите & b.

    Например чтобы по правому краю имя вашей компании в верхний колонтитул, введите & имя b, где имя — имя вашей компании.

  5. Чтобы проверить, как будут выглядеть изменения на печатной формы, нажмите кнопку Предварительный просмотр Изображение кнопкина стандартной панели инструментов.

    Примечание: Верхние и нижние колонтитулы отображаются только в окне предварительного просмотра и в распечатанном виде, а не будут отображаться в окне предварительного просмотра обычные.

К началу страницы

Удаление колонтитула

  1. В меню Вид выберите пункт Колонтитулы.

  2. Откройте вкладку Параметры печати.

  3. В разделе верхние и нижние колонтитулы выполните одно из указанных ниже действий.

    • Чтобы удалить верхний колонтитул из шаблона формы, нажмите кнопку верхний колонтитул.

    • Чтобы удалить нижний колонтитул из шаблона формы, нажмите кнопку нижний колонтитул.

  4. В окне Печать формы с этим заголовком или Печать формы с нижним колонтитулом удалите верхний или нижний колонтитул.

  5. Чтобы проверить, как будут выглядеть изменения на печатной формы, нажмите кнопку Предварительный просмотр Изображение кнопкина стандартной панели инструментов.

    Примечание: Верхние и нижние колонтитулы отображаются только в окне предварительного просмотра и в распечатанном виде, а не будут отображаться в окне предварительного просмотра обычные.

К началу страницы

Нужна дополнительная помощь?

   Mandel

23.11.09 — 11:49

Как заменить переменную в колонинтитулах через Com объект?

Обычными методами не помогает.

   Mandel

1 — 23.11.09 — 14:26

как попасть в колонтитул?

   dk

2 — 23.11.09 — 14:36

про запись макросов в офисе слышал?

   manyak

3 — 23.11.09 — 14:41

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

   manyak

4 — 23.11.09 — 14:42

или

ActiveWindow.ActivePane.View.SeekView = 9

   Mandel

5 — 23.11.09 — 16:12

А дальше замену делать?

   manyak

6 — 23.11.09 — 16:23

смотря что тебе  надо — то и делай: заменяй, удаляй, добавляй и т.д.

   Mandel

7 — 23.11.09 — 16:26

см.Ошибку пишет. Не знает ActivePane

           Шаблон = MSWord.Application.Documents(1);

           Шаблон.Activate();

           Шаблон.ActivePane.View.SeekView = 9;

//этот номер в колонтитулах

           Замена = Шаблон.Content.Find;

           Замена.Execute(«[Номер1]», Ложь, Истина, Ложь, , , Истина, , Ложь, «№ «+Номер);

//это вне колонтитулов

           Замена = Шаблон.Content.Find;

           Замена.Execute(«[Номер]», Ложь, Истина, Ложь, , , Истина, , Ложь, «№ «+Номер);

   also

8 — 23.11.09 — 16:28

   Икогнито

9 — 23.11.09 — 16:30

//прописываем верхний колонтитул

       WordApplication.ActiveDocument.Sections(1).Headers(1).Range.Text=?(Защищать,»типовой «+Параметры.НомерДок,»нетиповой «+Параметры.НомерДок);

       WordApplication.ActiveDocument.Sections(1).Headers(1).Range.Font.Italic = 9999998;

       WordApplication.ActiveDocument.Sections(1).Headers(1).Range.Font.Underline = 1;

               
       //прописываем нижний колонтитул

       Текст = WordApplication.ActiveDocument.Sections(1).Footers(1).Range.Text;

       Текст = СтрЗаменить(Текст,»{КраткоеФизическоеЛицоПерваяСторона}»,Параметры.КраткоеФизическоеЛицоПерваяСторона);

       Текст = СтрЗаменить(Текст,»{КраткоеФизическоеЛицоВтораяСторона}»,Параметры.КраткоеФизическоеЛицоВтораяСторона);

       
   
       WordApplication.ActiveDocument.Sections(1).Footers(1).Range.Text=Текст;

       WordApplication.ActiveDocument.Sections(1).Footers(1).PageNumbers.Add(2, Истина);

   manyak

10 — 23.11.09 — 16:31

так попробуй:

Шаблон.ActiveWindow.ActivePane.View.SeekView = 9

   Икогнито

11 — 23.11.09 — 16:32

(10) пусть пробует как в 9.

Через SeekView — это для ламеров

   manyak

12 — 23.11.09 — 16:35

(11) :)

   Икогнито

13 — 23.11.09 — 16:35

+(9)

MSWord = ПолучитьCOMОбъект(«»,»Word.Application»);

MSWord.Documents.Open(ИмяВремФайлаШаблонаДоговора);

WordApplication = MSWord.Application;

   Mandel

14 — 23.11.09 — 16:40

стоп. но кроме заменяемого текста у меня есть рисунок и статика. они исчезнут?

  

Икогнито

15 — 23.11.09 — 16:41

(14) а ты попробуй как в (9), ниче не должно исчезнуть )

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

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

Разные колонтитулы в одном документе Word

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

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

Разделение документа Word на разделы делается с помощью скрытого символа «Разрыв раздела». Перед тем как начинать, желательно включить отображение разрывов в тексте документа. Для этого нужно нажать на кнопку «Отобразить все знаки» на вкладке «Главная» или нажать комбинацию клавиш CTRL-SHIF-8.

Отобразить все знаки на вкладке Главная

Также если вам нужна сквозная нумерация всех страниц, то ее желательно сделать перед остальными манипуляциями. Для этого перейдите на вкладку «Вставка» и воспользуйтесь меню «Номер страницы».

меню Номер страницы

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

Для этого установите курсор в самом конце страницы, перейдите на вкладку «Макет» (или «Разметка страниц» в старых версиях Word), нажмите на кнопку «Разрывы» и выберите вариант «Разрывы разделов – Следующая страница». Таким образом вы отделите текущий лист от следующего с помощью разрыва раздела.

Разрывы разделов – Следующая страница

Если все было сделано правильно, то в самом конце страницы, где был установлен курсор, появится символ «Разрыв раздела (со следующей страницы)».

символ Разрыв раздела

Теперь нужно вставить такой разрыв раздела в конце каждой страницы. Для этого просто устанавливаете курсор в конце следующего листа и повторяете процедуру.

символ Разрыв раздела

Если сейчас попробовать редактировать колонтитулы, то они все равно будет одинаковыми. Это происходит по тому, что колонтитулы по цепочке ссылаются на предыдущий раздел. Чтобы сделать разные колонтитулы на разных страницах документа Word эту связь нужно разорвать.

Для этого сделайте двойной клик по колонтитулу на второй странице документа и перейдите на вкладку «Колонтитулы». Здесь нужно отключить функцию «Как в предыдущем разделе». Таким образом вы разорвете связь между первой и второй страницей. Дальше это нужно сделать для всех последующих страниц.

отключить функцию Как в предыдущем разделе

После этого вы сможете сделать свой уникальный колонтитул для каждой страницы документа Word. Для этого делаете двойной клик по колонтитулу и редактируете его. После этого закрываете редактор и переходите к следующему.

закрыть редактор колонтитулов

Возможно, вам будет интересно:

  • Как удалить разрыв раздела в Word.

Разные колонтитулы для первой и последующих страниц

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

Для этого сделайте двойной клик по колонтитулу на первой странице, перейдите на вкладку «Колонтитулы» и включите опцию «Особый колонтитул для первой страницы». После этого колонтитул на первой странице будет отделен от остальной части документа и его можно будет сделать уникальным.

опция Особый колонтитул для первой страницы

Также здесь можно включить функцию «Разные колонтитулы для четных и нечетных страниц». Это может понадобиться если документ Word оформляется как книга.

Автор
Александр Степушин

Создатель сайта comp-security.net, автор более 2000 статей о ремонте компьютеров, работе с программами, настройке операционных систем.

Остались вопросы?

Задайте вопрос в комментариях под статьей или на странице
«Задать вопрос»
и вы обязательно получите ответ.

Категория: Excel
Опубликовано: 30 октября 2021
Просмотров: 1937

Фрагмент кода для работы с верхним и нижним колонтитулами

'верхний колонтитул
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

ZIP архив с проектом


Рекомендуем смотреть видео в полноэкранном режиме, в настойках качества выбирайте 1080 HD, не забывайте подписываться на канал в YouTube, там Вы найдете много интересного видео, которое выходит достаточно часто. Приятного просмотра!

 С уважением, авторы сайта Компьютерапия

Понравилось? Поделись этим видео с друзьями!

Понравилась статья? Поделитесь ею с друзьями и напишите отзыв в комментариях!

Сегодня я хочу рассказать об одном из способов автоматизации документов, в частности, об автообновлении колонтитулов. Речь идет об использовании в колонтитулах поля StyleRef. Кстати, ранее я уже писал заметку на эту тему — Как вставить название главы в колонтитул.

Итак, предположим, что вы создаете документ, состоящий из нескольких именованных глав. Каждая глава начинается с нового раздела. Текст в колонтитуле (обычно верхний) каждого раздела должен автоматически меняться в зависимости от наименования главы раздела. Как это реализовать?

  • Убедитесь, что каждая новая глава в документе начинается в нового раздела.
  • Примените к наименованиям глав стиль заголовка, например, Заголовок 1.
  • В меню Вид выберите команду Колонтитулы. Перейдите к верхнему колонтитулу первого раздела.
  • В меню Вставка выберите команду Поле. Откроется диалоговое окно, в котором в разделе Категории найдите и выберите строку Связи и ссылки.
  • В открывшемся списке полей выберите поле StyleRef, а в разделе Свойства поля выберите стиль заголовка, которым у вас оформлены наименования глав. Если вы применяли стиль Заголовок 1, то его и выберите в этом списке стилей.
  • Нажмите кнопку ОК и закройте колонтитулы.

Теперь вы можете видеть, что в колонтитулах каждого вашего раздела содержится текст с наименованиями глав разделов. А при изменении наименования главы вы можете наблюдать синхронное изменение текста в колонтитуле.

Конечно, самое правильное, это добавить поле StyleRef не в конечный документ, а в шаблон, на основе которого вы создаете свои документы. В этом случае вам достаточно лишь добавлять наименования глав, чтобы они автоматически отображались в колонтитулах.

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

Например, находясь в колонтитуле, нажмите сочетание клавиш «Ctrl»+«F9». В строке ввода появятся метки в виде фигурных скобках и мигающим внутри них курсором ввода. Введите между скобок следующию инструкцию: StyleRef «Заголовок 1».

При обновлении поля эта инструкция заменится на соответствующий текст.

Понравилась статья? Поделить с друзьями:

А вот еще интересные статьи:

  • Word перекрестные ссылки на формулы
  • Word перенос одной строки на другую
  • Word перекрестные ссылки на закладки
  • Word перенос названия таблицы на следующую страницу
  • Word перекрестная ссылка текста

  • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии