Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.07.2010, 15:11   #1
Евгений К.
Пользователь
 
Регистрация: 03.06.2010
Сообщений: 11
По умолчанию Колонтитулы Word 2003

Добрый день!
Помогите удалить колонтитулы
Отсканировал книгу, распознан Файн Ридером, сохранил в ворд и... половина страниц занята колонтитулами, в которых нету текста... обычно колонтитул удаляется сам, если из него удалить весь текст, но там и так нет текста и, если его туда ввести и удалить, то колонтитул не удаляется...
Подскажите, пожалуйста, как удалить все колонтитулы во всем документе.
Евгений К. вне форума Ответить с цитированием
Старый 11.07.2010, 23:22   #2
bdfy
Форумчанин
 
Регистрация: 12.11.2009
Сообщений: 258
По умолчанию

загрузил бы кусок текста что ли...
bdfy вне форума Ответить с цитированием
Старый 14.07.2010, 05:30   #3
garik64
Форумчанин
 
Регистрация: 09.07.2009
Сообщений: 111
По умолчанию

Цитата:
Сообщение от Евгений К. Посмотреть сообщение
обычно колонтитул удаляется сам, если из него удалить весь текст, но там и так нет текста и, если его туда ввести и удалить, то колонтитул не удаляется...
Подскажите, пожалуйста, как удалить все колонтитулы во всем документе.
Средствами VBA? Если нет, то просто. Включить показ непечатаемых знаков, зайти в верхний колонтитул, убедиться, что посреди него остался знак абзаца - он и не даёт убрать. Нажать Ctrl-A (выделить всё), нажать del, а потом "закрыть колонтитул". Повторить для нижнего титула. Всё.
Или нужен код? Самую чуточку сложнее. Но мне кажется, это Вам лишнее.
garik64 вне форума Ответить с цитированием
Старый 14.07.2010, 14:09   #4
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Я думал, что будет работать такой код:
Код:
Sub DeleteEmptyHeaderFooter()
  Dim oSec As Section
  Dim oHF As HeaderFooter
  For Each oSec In ActiveDocument.Sections
    For Each oHF In oSec.Headers
      If Len(oHF.Range.Text) < 2 Then
        oHF.Range.Delete
      End If
    Next
    For Each oHF In oSec.Footers
      If Len(oHF.Range.Text) < 2 Then
        oHF.Range.Delete
      End If
    Next
  Next
End Sub
Но колонтитулы, наоборот, появляются
Поэтому нужно просто заходить в колонтитулы каждой страницы и выходить из него. Если колонтитул пустой, то он исчезнет. Но если хоть в одном разделе документа колонтитул заполнен, то удалить их не удастся:
Код:
Sub DeleteEmptyHeaderFooter1()
  Dim n As Long
  n = ActiveDocument.Range.ComputeStatistics(wdStatisticPages)
  Selection.HomeKey wdStory
  Do
    With ActiveWindow.ActivePane.View
      .SeekView = wdSeekCurrentPageHeader
      .SeekView = wdSeekMainDocument
      .SeekView = wdSeekCurrentPageFooter
      .SeekView = wdSeekMainDocument
    End With
    Selection.GoTo wdGoToPage, wdGoToNext, 1
  Loop Until Selection.Information(wdActiveEndPageNumber) = n
End Sub
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Конвертировать формулы из [2007 Word 2007] в [2003 Word 2003] mswmd Microsoft Office Word 8 10.07.2017 17:06
Объект PageSetup. Как проверить пустые ли колонтитулы в документе Word?? =) YaponskijGorodovoj Компоненты Delphi 0 09.06.2010 23:09
MS Word 2003 Chudo4258 Помощь студентам 1 15.05.2010 18:18
MS Word 2003 Chudo4258 Помощь студентам 1 17.04.2010 19:22
Колонтитулы при альбомной ориентации в MS Word OldNick85 Microsoft Office Word 1 14.11.2007 07:12