1С->Word по OLE. Как удалить страницу? #144395

Есть договор в ворде (шаблон). У договора 4 страницы. В зависимости от некоторых условий при формировании договора удаляется либо 3, либо 4 страница. Подскажите плиз как.

:)

Хм, а просто распечатывать либо без третьей, либо без четвертрой страницы не катит. Вообще-то в Word'е страницы удаляютс удалением текста с него...

переведи договор в формат Excel,а дальше я тебе помогу

Поставь разрыв - новый раздел со следующей страницы на всех страницах шаблона иDocuments.Sections.Range.Delete

Про удаление страницы с удалением текста это я знаю :) У мну договор ЗАПОЛНЯЕТСЯ из 1С. И если будут все страницы - это будет геморно очень, во всяком случае с таким подходом, который я реализую. Проще найти метод который удалит страницу. Брр.... Форматирование и все такое... Можно конечно в Ексель, но надеюсь что разберусь с Вордом :)

Я что опять невидимка ?

Нет. С чего ты решил? :) Когда я писал свой пост, твоего еще не было. Потом я увидел твой пост, и начал делать так как ты говоришь, пока еще не все получилось, но вроде это то что мне надо. Если не получится напишу :)

Не получается, вернее не совсем получается. Весь текст, все удаляется, но страница пустой остается.

Все удаляется, скажи подробнее что делал и код, хотя там кодато 1 строка...

Такое ощущение, что не там поставли разрыв. Но блин, ставлю в начале страницы... Куда еще его ставить....

Так можно удалить (непоследнюю страницу):

"поплывет" если разделов нету...

+11 Упс, очепятался, вот так правильно:

ставь в конце каждой "новый раздел со следующей"

Последняя удаляется, а вот предпоследняя нет :(

+ Вернее наоборт :) Надо чтобы удалил 3 страницу из 4, удаляет. Когда нужно чтобы удалил 4 из 4, не удаляет.

Ну, дык, я ж в так и написал - "непоследнюю страницу". Последнююможно так грохнуть:

Я так понимаю проблема с этим"второй параметр - wdGoToNext" т.е. следующая страница, которой собственно говоря и нет... Значит туда нужно что-то другое передавать?

Спасибо. Уже второй раз выручаешь с Вордом :)

Когда писал 18, 17 еще не увидел :)

Одна маленькая проблемка. При удалении последней страницы - все удаляется, но сама страница остается. Пустая, но все равно есть. Мелочь, а не приятно :)

Значит на предыдущей странице PageBreak(символ с кодом 12) вставлен...

это от разделов осталось...А с разделами всеже правильнее...

А как поглядеть/убрать?

руками, так - нажми кнопочку Пи...

Если КодСимв(myDocument.range(началоДиапазона-1).Characters.text)=12 Тогда   диапазон.start=началоДиапазона-1;   ...

Нет, я заново сделал файл из двух. Может и правильнее, тока заморочено чуток. Я плоховато в Ворде ориентируюсь, мне проще в 1С алгоритм прописать.

(25, 26) Не катит...Включил кнопку Пи, вроде постарался перевод строки убрать везде, где можно. Но с предыдущей страницы неполучается убрать, вернее когда убираешь текст поднимается вверх. И еще, после текста на последней странице знак Пи стоит, и никак не убирается. Я так понимаю так и должно быть?

НачалоДиапазона - 10 помогло :)))))Думаю и меньше десяти хватит

Gloom и smaharbAБольшое вам спасибо :) Все работает так как надо.