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

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

Cкачать архив для ознакомления - Как изменить текст в колонтитуле Word шаблона из Excel на VBA. Часть 5:


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


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

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

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




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

Предыдущие статьи

We use cookies on our website. Some of them are essential for the operation of the site, while others help us to improve this site and the user experience (tracking cookies). You can decide for yourself whether you want to allow cookies or not. Please note that if you reject them, you may not be able to use all the functionalities of the site.

Ok