🚀 go-pugleaf

Ralf--

Here's an AppleScript version:



--DuplicateLinkedFrames.as 
--An InDesign CS2 AppleScript  
--  
--Shows how to duplicate linked text frames.  
main() 
on main() 
	tell application "Adobe InDesign CS2" 
		set myDocument to my myCreateExampleDocument() 
		--Group text frames A and B 
		tell page 1 of myDocument 
			set myTextFrameA to text frame "TextFrameA" 
			get class of myTextFrameA 
			set myStartIndex to index of character 1 of myTextFrameA 
			set myTextFrameB to text frame "TextFrameB" 
			set myEndIndex to index of character -1 of myTextFrameB 
			set myGroup to make group at page 1 of myDocument with properties {group items:{myTextFrameA, myTextFrameB}} 
		end tell 
		--Duplicate the group  
		tell myGroup 
			set myNewGroup to duplicate 
			--Ungroup the group  
			ungroup 
		end tell 
		--Delete the text in text frames A and B  
		tell parent story of myTextFrameA 
			delete ( characters myStartIndex thru myEndIndex ) 
		end tell 
		--Delete text frames A and B  
		tell myTextFrameA to delete 
		tell myTextFrameB to delete 
		--Ungroup the duplicate frames (which are still linked)  
		tell myNewGroup to ungroup 
	end tell 
end main 
on myCreateExampleDocument() 
	tell application "Adobe InDesign CS2" 
		set myDocument to make document 
		--Create an example document.  
		--Set the measurement units to points.  
		tell view preferences of myDocument 
			set horizontal measurement units to points 
			set vertical measurement units to points 
			set ruler origin to page origin 
		end tell 
		--Create a text frame on page 1.  
		tell page 1 of myDocument 
			set myTextFrameA to make text frame with properties {geometric bounds:{72, 72, 144, 144}, label:"TextFrameA"} 
			--Create another text frame on page 1.  
			set myTextFrameB to make text frame with properties {geometric bounds:{228, 72, 300, 144}, label:"TextFrameB"} 
			--Add a page.  
		end tell 
		tell myDocument to make page 
		--Create another text frame on page 2.  
		tell page 2 of myDocument 
			set myTextFrameC to make text frame with properties {geometric bounds:{72, 72, 144, 144}} 
		end tell 
		--Link TextFrameA to TextFrameB using the next text frame property.  
		set next text frame of myTextFrameA to myTextFrameB 
		--Link TextFrameC to TextFrameB using the previousTextFrame property.  
		set previous text frame of myTextFrameC to myTextFrameB 
		--Fill the text frames with placeholder text.  
		set contents of myTextFrameA to placeholder text 
		return myDocument 
	end tell 
end myCreateExampleDocument

Thanks,

Ole