Insert Pages in VB Script

Question

Hi
I need a coding for insert a page in a document in VB script. Is this possible.
For adding pages i will use the above code.
myInDesign.Documents.Item(1).Pages.Add
But i want to insert a page in between the document.
Sajeev

Answer 1

Set myInDesign = CreateObject("InDesign.Application.CS3")
Set myDoc = myInDesign.ActiveDocument
Rem Add after the 2nd page
myDoc.Pages.Add idAfter, myDoc.Pages.Item(2)
Rem Add before the 1st page
myDoc.Pages.Add idAtBeginning
Rem Add after the last page
myDoc.Pages.Add idAtEnd
However this one is a little bit strange:
myDoc.Pages.Add idBefore, myDoc.Pages.Item(3)
I thought it should add a page before the 3rd page in the document, but it adds it before the 2nd page which, in turn, becomes the 3rd page. In UI it works differently.
Kasyan