🚀 go-pugleaf

steve--

Like so (in CS--this will not work in 2.x):



--MovePagesExample.as 
--An InDesign CS AppleScript 
tell application "InDesign CS" 
	--Set up two example documents. 
	set myDocumentA to make document 
	tell myDocumentA 
		make page 
		tell page 1 
			set myTextFrame to make text frame with properties {geometric bounds:{"6p", "6p", "18p", "18p"}, contents:"This is page 1 from document 1"} 
		end tell 
		tell page 2 
			set myTextFrame to make text frame with properties {geometric bounds:{"6p", "6p", "18p", "18p"}, contents:"This is page 2 from document 1"} 
		end tell 
	end tell 
	set myDocumentB to make document 
	tell myDocumentB 
		make page 
		tell page 1 
			set myTextFrame to make text frame with properties {geometric bounds:{"6p", "6p", "18p", "18p"}, contents:"This is page 1 from document 2"} 
		end tell 
		tell page 2 
			set myTextFrame to make text frame with properties {geometric bounds:{"6p", "6p", "18p", "18p"}, contents:"This is page 2 from document 2"} 
		end tell 
	end tell 
	--At this point, we have two example documents, each with two pages. 
	--Each page contains a text frame that identifies its origin. 
	--Create a new "destination" document. 
	set myDocumentC to make document 
	--Move the pages from myDocumentA. 
	tell myDocumentA 
		repeat with myPage in pages 
			my myMovePage(myPage, myDocumentC) 
		end repeat 
	end tell 
	--Move the pages from myDocumentA. 
	tell myDocumentB 
		repeat with myPage in pages 
			my myMovePage(myPage, myDocumentC) 
		end repeat 
	end tell 
	--Delete the blank page at the beginning of myDocumentC. 
	tell myDocumentC 
		delete page 1 
	end tell 
end tell 
on myMovePage(myPage, myDestinationDocument) 
	tell application "InDesign CS" 
		--Duplicate the page ("move" *really is* a "move" in that it 
		--removes the moved page from the original document) 
		set myClonePage to duplicate myPage 
		--Move the cloned page to the end of the destination document. 
		tell myClonePage 
			move to after page -1 of myDestinationDocument 
		end tell 
	end tell 
end myMovePage

Thanks,

Ole