[2021] Как изменить текст в колонтитуле Word шаблона из Excel на VBA, верхний и нижний колонтитулы
Рекомендуем смотреть видео в полноэкранном режиме, в настойках качества выбирайте 1080 HD, не забывайте подписываться на канал в YouTube, там Вы найдете много интересного видео, которое выходит достаточно часто. Приятного просмотра!
С уважением, авторы сайта Компьютерапия
Понравилось? Поделись этим видео с друзьями!
[2021] Как изменить текст в колонтитуле Word шаблона из Excel на VBA, верхний и нижний колонтитулы
Рекомендуем смотреть видео в полноэкранном режиме, в настойках качества выбирайте 1080 HD, не забывайте подписываться на видео ВКонтакте, там Вы найдете много интересного, которое выходит достаточно часто. Приятного просмотра!
С уважением, авторы сайта Компьютерапия
Понравилось? Поделись этим видео с друзьями!
[2021] Как изменить текст в колонтитуле Word шаблона из Excel на VBA, верхний и нижний колонтитулы
Рекомендуем смотреть видео в полноэкранном режиме, в настойках качества выбирайте 1080 HD, не забывайте подписываться на канал в Рутубе, там Вы найдете много интересного, которое выходит достаточно часто. Приятного просмотра!
С уважением, авторы сайта Компьютерапия
Понравилось? Поделись этим видео с друзьями!
Фрагмент кода для работы с верхним и нижним колонтитулами
'верхний колонтитул
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
