> Автор: goshua
> а не поможете с готовым кодом плиз если можно?
Какой код? Записываешь макрос с нужными действиями, после финда ставишь проверку на четность страницы, и если да, то
вставляешь разрыв страницы(записанный макросом)
1.
2.
3.
4.
5.
6.
7.
sub Макрос DDD()
....
Find(...)
'Здесь добавить проверку на четность
If activedocument.Information(wdActiveEndPageNumber) mod 2 = 1 then
'Код вставки разныва страницы
endif
end sub
Если нужно можно ещё "обернуть" в цикл, что-бы до конца документа бежал, примерно так:
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
