Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

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

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

icq: 194381182
skype: viter.alex
По умолчанию

Я думал, что будет работать такой код:
Код:

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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Конвертировать формулы из [2007 Word 2007] в [2003 Word 2003] mswmd Microsoft Office Word 8 10.07.2017 18: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 08:12


13:55.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru