Expand Window To Full Screen

tell application "Finder" to copy bounds of desktop's window to screenSize

tell application "QuarkXPress 3.3"
	if exists (document 1) then
		set bounds of document 1 to {0, 13, item 3 of screenSize, item 4 of screenSize}
	else -- no open window
		display dialog "A document must be open in order to use this script." buttons {"OK"} default button 1 with icon note
	end if
end tell