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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.09.2010, 10:20   #1
Solyarka
 
Регистрация: 14.10.2009
Сообщений: 7
По умолчанию Некорректно выставляются параметры страницы

При обработке документов столкнулась с проблемой обработки раздела «Указатель»: появляется ненужный разрыв, то есть название раздела «Указатель» располагается на отдельной странице, а сам список начинается со следующей страницы.

Раздел указателя содержит ссылки на разделы документа (индекс), отображен в виде полей, расположенных в два столбца.

При обработке документа в параметрах страницы задаю настройку, чтобы новый раздел начинался с новой страницы. Откуда берется дополнительный разрыв не понятно.

Сначала использовала код Вариант 1, затем решив избавиться от ненужного разрыва (после заголовка Указатель) решила перед сохранением документа добавить строчку (код 2 ). Результат опять не тот: разрыв между индексами и заголовком отсутствует, но при этом раздел «Указатель» начинается не с новой страницы, а с предыдущей.

Как обработать раздел указателя так, чтобы он начинался с новой страницы и отсутствовал разрыв между заголовком и индексами.

Во вложении документ исходный (test.doc)и обработанный 1 вариантом(test обработанный 1.doc), обработанный 2 вариантом (test обработанный 2.doc).
Вариант 1:
Код:
Sub PageSetup()
    'Параметры страниц
     Documents(1).Activate
     With ActiveDocument.PageSetup
           .MirrorMargins = True
           .TwoPagesOnOne = False
           .SectionStart = wdSectionNewPage      'Следующий раздел на новой странице
           .OddAndEvenPagesHeaderFooter = True 
           .DifferentFirstPageHeaderFooter = False
     End With
    ActiveDocument.Save    
End Sub
Вариант 2:
Код:
    ' чтобы не было разрыва между индексами и заголовком указатель
    ActiveDocument.Sections.Last.PageSetup.SectionStart = wdSectionContinuous
Вложения
Тип файла: doc Test.doc (56.0 Кб, 16 просмотров)
Тип файла: doc Test обработанный 1.doc (68.5 Кб, 14 просмотров)
Тип файла: doc Test обработанный 2.doc (68.0 Кб, 16 просмотров)
Solyarka вне форума Ответить с цитированием
Старый 06.09.2010, 10:56   #2
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Эту тему нужно закрепить в качестве образца задавания вопросов!
По теме. Да, странное поведение. Самый быстрый способ это удалить разрыв раздела в последнем разделе:
Код:
Call ActiveDocument.Sections.Last.Range.Find.Execute(FindText:="^b", _
                                                     ReplaceWith:="", _
                                                     Replace:=wdReplaceAll)
Первый код можно сократить:
Код:
Sub PageSetup()
    'Параметры страниц
     With Documents(1).PageSetup
           .MirrorMargins = True
           .TwoPagesOnOne = False
           .SectionStart = wdSectionNewPage      'Следующий раздел на новой странице
           .OddAndEvenPagesHeaderFooter = True 
           .DifferentFirstPageHeaderFooter = False
     End With
    Documents(1).Save    
End Sub
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 06.09.2010, 11:18   #3
Solyarka
 
Регистрация: 14.10.2009
Сообщений: 7
По умолчанию

Спасибо =)
Solyarka вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Параметры страницы MS WORD kaa1977 Общие вопросы Delphi 6 23.11.2018 12:54
Передать параметры вызова страницы во внутренний скрипт Sergey2 PHP 20 07.06.2010 23:41
Как передать в поток параметры? И как из потока параметры достать? Anekdot Общие вопросы Delphi 2 19.02.2010 22:40
Как получить параметры некоторых компонентов страницы в Webbrowser postal2 Работа с сетью в Delphi 0 02.04.2009 20:15
Delphi, Excel и параметры страницы Nemez Microsoft Office Excel 2 14.02.2008 19:34