VBA / MS Word problem
Posted on 2006-10-23
Hope someone can help me...
I have a collection (named PointsCollection) of X and Y values that I use to draw rectangle shapes on a word document (named Doc).
X and Y are the left and top values for each rectangle, relatives to the page.
For each Point in PointsCollection
Set Shp = Doc.Shapes.AddShape( msoShapeRectangle, Point.X, Point.Y, 50, 50 )
This works fine but I must only print a maximum of 3 rectangles on each page. If there are any more rectangles then I must add a new pages and start adding the remaining rectangles there.
How can I do this?