Результаты поиска

проверьте стили по дефолту

скорее всего сказали ДАНЕПОКАЗЫВАЙМНЕЭТОБОЛЬШЕ

... ещё 18 лет можно жить '))'

... есть ещё один (очень важный) Нюанс Создать такой файл с 1000+ можно НО добавить в него ещё страничку не "выгорит" элементы интерфеса блокируются

убежден - с 1000+ страничным документом, непременно случится что-то "не" ... затея явно ... 'hmmm'непродуманная, хоть ей и 18 лет

связан т.к. у вас ... а с PrintMerge - извольте ... я вот даже специально "выпендрился" - на 10 000 страниц (пришлось, правда, слегка подождать) ... но вот что будет если вы эти страницы "забьёте" разными макетами ... тут-то просто номера (которые можно сделать без заливка и контура - чтобы не...

PrintMerge в помощь

American Retro Copyright (c) Gophmann A.L., 2007

... пример с картинками от Санчо

и вам спасибо ... от давно не включамого, грустившего старикана ASUS X50, ибо только на нём остался Corel X5

можно чуть иначе ... но будет ли быстрее??? Кроме вас - с жутким количеством слоёв в макете - не оценит никто Sub LayrsOn2() Dim iLayer As Layer Optimization = True EventsEnabled = False For Each iLayer In ActiveDocument.ActivePage.Layers iLayer.Visible = True Next EventsEnabled...

если вышеозначенный код с перебором "разукрасить фонариками" Sub LayrsOn() Dim i As Integer Optimization = True EventsEnabled = False For i = 0 To ActivePage.Layers.Count ActivePage.Layers.Item(i).Visible = False Next EventsEnabled = True Optimization = False...

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

Сейчас чем вы гасите? Что за код скрывается за нажатием ...

если ВСЕ слои сделать невидимыми - на что смотреть?

этого будет недостаточно?

В конце февраля передохнем от холода… берёт маркёр берет и садится на галеру падеж, мел, отсек и осел '))'

повесьте на кнопочку Sub Lay() Application.FrameWork.Automation.Invoke "d03aaa28-510d-4f11-acf2-4259388962d4" DoEvents Refresh End Sub для Х5 точно ... для иных версий - не факт до после

взяли Artemis Deco и немного поправили

версия 16