Статьи из блога
Как удалить колонтитулы из всех разделов документа
Станислав спрашивает:
Есть ли возможность удаления всех колонтитулов (верхнего и нижнего), вне зависимости от их содержимого (например, содержащих произвольный текст, разный для каждой страницы)?
Да, это возможно. Есть два способа удалить колонтитулы из документа: вручную и через макрос. Ручное удаление колонтитулов осуществить достаточно легко, но этот способ непродуктивен. Лучше воспользоваться следующим макросом, который удалит все имеющиеся колонтитулы (верхние и нижние) во всех разделах документа.
Sub deleteAllHeaders_Footers() Dim sec As Section Dim hf As HeaderFooter Dim rng As Range For Each sec In ActiveDocument.Sections For Each hf In sec.Headers hf.Range.Delete Next hf For Each hf In sec.Footers hf.Range.Delete Next hf Next sec End Sub
Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:
Создание макроса из готового кода
Рубрика: Вопрос-Ответ, Макросы
Метки: колонтитулы | макросы | разделы
Просмотров: 69230
Подписаться на комментарии по RSS
Версия для печати
Метки: колонтитулы | макросы | разделы
Просмотров: 69230
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Абзац с цветным фоном
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Белый текст на синем фоне в Word 2007
- Быстрая смена ориентации страниц документа
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрый ввод текста с помощью команды =rand()
- Ввод повторяющихся фрагментов текста в Word 2007
- Ввод часто повторяющихся фрагментов текста
- Вертикальное выравнивание текста
- Возможно ли запретить копирование текста из документа Word?
- Вопрос о работе с графиками (диаграммами) в Word
- Вопросы и ответы о гиперссылках в редакторе Word
Комментариев: 22
Здравствуйте. Ваш макрос я использую для обработки документов в теле своего, большего макроса.
Он применяется ко всем документам, в том числе и к тем, в которых колонтитулов не было изначально.
После применения макроса он удаляет текст всех колонтитулов, но оставляет их пустыми (на месте колонтитула серый знак абзаца)
Получается. если раньше в документе колонтитула не было, то теперь он создается, хотя и пустой.
Он убирается включением-выключением отображения колонтитулов, но мне очень важно автоматизировать и это действие, а с помощью записи макроса не получается.
Подскажите пожалуйста, что добавить в ваш макрос или как его изменить. Спасибо.
Приходится копировать текст с исходного документа без колонтитулов и вставлять в новый документ. Очень не удобно.
У меня получилось убрать отображение пустых колонтитулов переключившись в режим работы колонтитулов, а затем обратно. Макрос. предложенный Антоном, я дополнил:
Этот макрос удаляет все колонтитулы во всех разделах документа. А как можно удалить колонтитулы (текст, шейпы и комбобоксы) в конкретном разделе?
Задача заключается в том, что часто имея документ, приходится вставялть в него (причем, где угодно) страницы другого формата и ориентации. Это все пользователи могут сделать руками, но хочется этот момент автоматизировать. Вроде не вопрос навставлять разрывов, но вот удалить старый колонтитул на вставленной страницы не получается (возврат в созданный раздел выполняю переходом на закладку в его начале).
Можно вот так
Попытался применить ваш код. Выдает ошибку "Method or data member not found" на ".Headers" в строке 03 и ".Footers" в строке 06.
Замените Selection на Selection.Sections(1)
В комментарий я внёс исправления
при попытке компиляции вываливает ошибку User-defined type not defined
Владимир, проверьте, что всё правильно скопировалось. Если всё правильно, то приведите текст, который выделяется при ошибке
Большое спасибо!
Здравствуйте! У меня проблема с колонтитулами...и прошу просветить в ее решении. Скопировав в нэте текст 1 (назовем его так) и сохранив его, я скопировала совершенно иной текст 2, и при вставке в свой файл с текстом 1 начался прикол! Текст разбит на верхний и нижний колонтитул, но читается только текст 2, хотя страниц вместо 10-12 оказалось около 2000! Что это??? Верхний колонтитул четной страницы выделен слабо-слабо, а нечетной четко. Как с этим бороться и превести всё в порядок? Умоляю подскажите!!!
Обратитесь на наш форум, там помогут.
Спасибо, мне очень помогло после распознавания FR. Отработали оба листига. Второй зачистил все полностью
Эти макросы удаляют только текст, а как удалить Shapes?
Здравствуйте, возможно ли колонтитул не выводить на печать и как это сделать?
Огромное спасибо. Кстати, когда я вставил текст макроса (без sub и end sub) - так, как описано по ссылке "Создание макроса из готового кода" - выдало ошибку компиляции, синтаксическая ошибка. Тогда я убрал комментарий и вставил так, чтобы макрос выглядел ровно как здесь. Тогда заработало!
Добрый день! Очень классный макрос!
Спасибо!
А возможно добавить в этот макрос, чтобы он сам отделял раздел и в этом разделе убивал колонтитулы?
Ребята а как он должен выглядеть для пакетной обработки? Очень нужно!
Здравствуйте! Подскажите, есть ли возможность подсчёта статистики содержимого колонтитулов при подсчёте общей статистики документа или отдельно всех колонтитулов в word 2010. Спасибо.
Добрый день. Очень нужна помощь. Можно ли как-нибудь модифицировать данный макрос,чтобы он вместо удаление всех колонтитулов,изменял размер шрифта?
Автору спасибо, очень помог)