🚀 go-pugleaf

I got a better solution

Public Function transfert(mydocument As InDesign.Document, pageNumber As 
Integer, myIndesign As InDesign.Application)

Dim myNewDoc As InDesign.Document
Dim pageToCopy As InDesign.Page
Dim myNewPage As InDesign.Page
Dim myTextFrame As InDesign.TextFrame
Dim myPageItems As InDesign.PageItems
Dim i As Integer


Set pageToCopy = mydocument.Pages.Item(pageNumber)
Set myWindow = myIndesign.ActiveWindow
Set mySpread = myWindow.ActiveSpread
Set myPageItems = mySpread.PageItems

Rem In this example, a "For Each" loop adds the objects to
Rem the selected one object at a time.
	For Each object In myPageItems
     		myIndesign.Select object, True
	Next object

	myIndesign.Copy

	Set myNewDoc = myIndesign.Documents.Add
	Set myNewPage = myNewDoc.Pages.Add

	myIndesign.Paste

End Function


somtimes I'm proud !!

by this way I copy all the items of the active spread and create a new 
page and copy all of these on this new !

good no ?


BATTISTELLI Laurent a �crit:
> Good morning
> 
> I need help
> 
> How can I copy a page from one document to an other ?
> 
> I try
> 
> Public Function transfert(mydocument As InDesign.Document, pageNumber As 
> Integer, myIndesign As InDesign.Application)
> 
> Dim myNewDoc As InDesign.Document
> Dim pageToCopy As InDesign.Page
> Dim myNewPage As InDesign.Page
> 
> Set myNewDoc = myIndesign.Documents.Add
> Set pageToCopy = mydocument.Pages.Item(pageNumber)
> Set myNewPage = myNewDoc.Pages.Add
> Set myNewPage = pageToCopy
> 
> End Function
> 
> but the result is not good
> 
> when I have a look on the description of myNewPage all things are good 
> but my new page is blank
> 
> 
> If you know how to copy a page from on document to an other
> 
> thanks
>