copy Anchored text box contents and delete

Scripting Forums AppleScript | Mac OS X
,
#1

Hi All,

I have developed an applescript to put content of anchored text boxes in another box and then delete that abnchored box.

Below are the code


set theBounds to {"8p", "6p", "24p", "24p"}
tell application "QuarkXPress"
	activate
	tell front document
		set totPages to count of every page
		display dialog totPages
		repeat with i from 1 to totPages by 1
			--			tell spread i
			tell page i
				set totAnchored to count of every text box
				repeat with j from 1 to totAnchored by 1
					if anchored of text box j then
						set tempText to text box j
					end if
					make new text box at beginning with properties {bounds:theBounds}
					tell text box k
						set text 1 to tempText
					end tell
						cut text box j
				end repeat
			end tell
			--			end tell
		end repeat
	end tell
end tell

I am using Quark 4.1 and Classic 9.2. Please suggest me.

Thanks
Rajeev