i want to do indexing in my designs but sometime design has 10 pages sometime 100 and sometime its 500
i will wrote indexing according to the pages for example i have 10 pages book and now i have wrote all the index example are below
abc
def
ghi
jkl
mno
pqr
stu
wvx
yz1
234
now i will create a box of 15mm X10mm height box with a cut mark of 2 mm in bottom right of the box and
add all text to box according to the box for example 1st index in top 1st box, 2nd index in 2nd box etc.
now i group all box with index.
now i have 10 box with index grouped.
now i move them to the bottom right side according to the series
last step i paste 1 by 1 on different pages. 1st index on 1st page, 2nd on 2nd page and soo on
just like this i want macro
another way then using print merge - modified Eskimo's code from here http://community.coreldraw.com/talk/coreldraw_graphics_suite_x6/f/704/t/55766#pi1484filter=all&pi1484scroll=false
Sub SlipPages()Dim s1 As ShapeDim s2 As ShapeDim sr As ShapeRangeDim lay1 As LayerActiveDocument.Unit = cdrInchx = 8.705step = 0.394y = 11.339 + stepActiveDocument.BeginCommandGroup "AllShapesToPages"Optimization = TrueSet sr = ActivePage.Shapes.AllFor Each s1 In sry = y - step Set lay1 = ActiveDocument.AddPages(1).ActiveLayer Set s2 = s1.Duplicate s2.MoveToLayer lay1 s2.CenterX = x s2.CenterY = y i = i + 1 If i = 29 Then i = 0: y = 11.339 + stepNext s1Optimization = FalseApplication.RefreshActiveDocument.EndCommandGroup
End Sub