ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Как вставить пустую страницу в word
10 сообщений из 10, страница 1 из 1
VBA Как вставить пустую страницу в word
    #36658486
goshua
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goshua
Гость
Задача такая. Есть большой документ. В нем периодически встречается слово Глава. Нужно определить если слово встретилось на четной странице то сделать разрыв страницы с этого слова и перенести его на следующую, т.е. что бы указанное слово или словочочетане всегда начиналось с нечетной страницы. Как можно сделать это в рамках worda
...
Рейтинг: 0 / 0
31.05.2010, 10:43
| Ответить | Цитировать | Написать  
VBA Как вставить пустую страницу в word
    #36658510
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
goshuaЗадача такая. Есть большой документ. В нем периодически встречается слово Глава. Нужно определить если слово встретилось на четной странице то сделать разрыв страницы с этого слова и перенести его на следующую, т.е. что бы указанное слово или словочочетане всегда начиналось с нечетной страницы. Как можно сделать это в рамках worda

Находить Find-ом, проверять номер страницы, если четная, вставлять разрыв страницы. Что именно вызывает проблему?
...
Рейтинг: 0 / 0
31.05.2010, 10:58
| Ответить | Цитировать | Написать  
VBA Как вставить пустую страницу в word
    #36658516
goshua
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goshua
Гость
Это я понял что ищем финдом. Как потом определить номер текущей страницы
...
Рейтинг: 0 / 0
31.05.2010, 11:02
| Ответить | Цитировать | Написать  
VBA Как вставить пустую страницу в word
    #36658530
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
goshuaопределить номер текущей страницы

Так бы сразу и сказали.

Честно говоря, мне казалось, что он есть в .Information - нету
Бум искать...
...
Рейтинг: 0 / 0
31.05.2010, 11:08
| Ответить | Цитировать | Написать  
VBA Как вставить пустую страницу в word
    #36658546
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Не, все правильно
Код: plaintext
.Information(wdActiveEndPageNumber)
...
Рейтинг: 0 / 0
31.05.2010, 11:16
| Ответить | Цитировать | Написать  
VBA Как вставить пустую страницу в word
    #36658587
goshua
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goshua
Гость
а не поможете с готовым кодом плиз если можно?
...
Рейтинг: 0 / 0
31.05.2010, 11:29
| Ответить | Цитировать | Написать  
VBA Как вставить пустую страницу в word
    #36658633
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
goshuaа не поможете с готовым кодом плиз если можно?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim q As Range
Set q = ThisDocument.Content
q.Find.ClearFormatting
q.Find.Text = "глава"
q.Find.Forward = True
q.Find.Wrap = wdFindContinue
q.Find.Execute
Do Until q Is Nothing
  If (q.Information(wdActiveEndPageNumber) Mod  2 ) =  0  Then
    q.InsertBreak wdPageBreak
  End If
  q.Find.Execute
Loop

ПРИМЕРНО так, только код зацикливается, надо разобраться с "поиском далее", к сожалению щас нет времени отлаживать - доковыряйте сами, или может ща кто зайдет поправит.
...
Рейтинг: 0 / 0
31.05.2010, 11:43
| Ответить | Цитировать | Написать  
VBA Как вставить пустую страницу в word
    #36658638
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: goshua
> а не поможете с готовым кодом плиз если можно?

Какой код? Записываешь макрос с нужными действиями, после финда ставишь проверку на четность страницы, и если да, то
вставляешь разрыв страницы(записанный макросом)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
sub Макрос DDD()
....
Find(...)
'Здесь добавить проверку на четность
If  activedocument.Information(wdActiveEndPageNumber) mod  2  =  1  then
   'Код вставки разныва страницы
endif
end sub
Если нужно можно ещё "обернуть" в цикл, что-бы до конца документа бежал, примерно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
sub Макрос DDD()
....
do while(или Until) .Find(...) is nothing
   'Здесь добавить проверку на четность
   If  activedocument.Information(wdActiveEndPageNumber) mod  2  =  1  then
      'Код вставки разныва страницы
   endif
loop
end sub


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
31.05.2010, 11:44
| Ответить | Цитировать | Написать  
VBA Как вставить пустую страницу в word
    #36658654
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Игорь Горбонос,

Он просил - на четной
...
Рейтинг: 0 / 0
31.05.2010, 11:49
| Ответить | Цитировать | Написать  
VBA Как вставить пустую страницу в word
    #36658690
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Shocker.Pro

Да, сори, смотрел в книгу и видел то что хотел видеть :)
проверять нужно на ноль, как у тебя, а не на еденицу, как у меня

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
31.05.2010, 12:01
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Как вставить пустую страницу в word
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]