Trouble changing font and size in Quark doc

I’m having a problem with my script that changes the size of a font and the font in my Quark 6.5 document. I need to change all 6 pt TechnoBookPB-Roman to 7 pt Helvetica. But I keep getting an event timed out error. I am running 10.4.11 on a 1.8 GHz PowerPV Power Mac G5 with 1 GB of DDR SDRAM. I’m using Applescript 1.10.7 and Script Editor version 2.1.1 as well.

Any suggestions on what I may be doing wrong? Here’s my script:

tell application "QuarkXPress"
	activate
	if not (exists document 1) then
		display dialog "Please open a QuarkXpress Document"
		--tell the current document
	else
		display dialog "This may take a few minutes to complete, we will display a message when we are done."
		tell document 1
			tell page 1
				try
					set (size of every character of every story of every text box where font = "TechnoBookPB-Roman" and size = 6) to 7
					set (font of every character of every story of every text box where font = "TechnoBookPB-Roman") to "Helvetica"
					beep 1
				on error
					beep 4
					display dialog "Error."
				end try
				display dialog "Your fonts were changed sucessfully" buttons {"OK"} default button 1
			end tell
		end tell
	end if
end tell

Thanks.
Mike

Hi pbtech

I don’t have the techno font you have so used “arial” instead but you can change this in your script.
also you would need to add a repeat loop to cover multiple text boxes. but apart from that this should have
all the bits you need for changing font and point size.

tell application "QuarkXPress"
	activate
	tell document 1
		tell page 1
			tell text box 1
				tell (every character whose font is "Arial Bold")
					set the size to 7
					set the font to "Helvetica"
				end tell
			end tell
		end tell
	end tell
end tell