Перейти к содержимому

Как распечатать документ Word без заголовка и нижнего колонтитула?

Author: Xiaoyang Last Modified: 2025-06-05

Если в вашем документе Word есть заголовок и нижний колонтитул, то при печати этого документа они также будут напечатаны по умолчанию. Однако иногда вам не нужно, чтобы заголовок и нижний колонтитул печатались. В этом случае метод, описанный в этой статье, может помочь вам.

Распечатайте документ Word без заголовка и нижнего колонтитула с помощью кода VBA

Распечатайте документ Word без заголовка и нижнего колонтитула с помощью кода VBA

Чтобы распечатать файл Word без заголовка и нижнего колонтитула, следующий код VBA может вам помочь, выполните следующие действия:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Затем нажмите Вставить > Модуль, скопируйте и вставьте приведенный ниже код в открытый пустой модуль:

Код VBA: Распечатать документ Word без заголовка и нижнего колонтитула:

Sub PrintDocWithoutHeaderFooter()
    Call SetHeaderAndFooter(True)
    Options.PrintHiddenText = False
    Dialogs(wdDialogFilePrint).Show
    Call SetHeaderAndFooter(False)
End Sub
Sub SetHeaderAndFooter(xBool As Boolean)
    Dim xSel As Selection
    For Each s In ActiveDocument.Sections
        s.Headers(wdHeaderFooterEvenPages).Range.Font.Hidden = xBool
        s.Headers(wdHeaderFooterFirstPage).Range.Font.Hidden = xBool
        s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = xBool
        s.Footers(wdHeaderFooterEvenPages).Range.Font.Hidden = xBool
        s.Footers(wdHeaderFooterFirstPage).Range.Font.Hidden = xBool
        s.Footers(wdHeaderFooterPrimary).Range.Font.Hidden = xBool
    Next s
End Sub

3. После вставки указанного выше кода нажмите клавишу F5 для его запуска, и появится диалоговое окно Печать, затем настройте параметры печати по своему усмотрению, см. скриншот:

Print dialog box

4. Затем нажмите OK для начала печати, документ будет напечатан без заголовка и нижнего колонтитула.

Лучшие инструменты для повышения продуктивности в офисе

Kutools для Word — расширьте возможности работы с Word с помощью более чем 100 уникальных функций!

🤖 Функции искусственного интеллекта Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Экспортировать выделенное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетно преобразовать в PDF...

✏ Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...

🧹 Легкая очистка: Удалите лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для дополнительных инструментов удаления перейдите в группу Удалить...

➕ Креативные вставки: Вставить разделители тысяч / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений / Откройте больше возможностей в группе Вставить...

🔍 Точные выделения: Быстро находите нужные страницы / Таблицы / Фигуры / Абзацы заголовка / Улучшайте навигацию с помощью дополнительных функций Выбрать...

⭐ Особые улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов для преобразования...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите опробовать эти функции? Скачайте Kutools для Word прямо сейчас! 🚀
 

Лучшие инструменты для повышения продуктивности в офисе

Kutools для Word — 100+ инструментов для Word

Бесплатная загрузка Купить сейчас Подробнее о Kutools