quark insert page--please help me

Scripting Forums AppleScript | Classic Mac OS
,
#1

Hi I have been trying to make a script which would automatically blankpage in a document by quarkexpress3.3k. i doesn’t seem to work.

insert pages document…

tell application “QuarkXPress 3.3K”
tell document 1
make new page at end-----is page1 insert
end tell
end tell

I have been trying to insert the 50page blankpage
Can someone please help me?

#2

Hi :slight_smile:
Try this :

tell application "QuarkXPress 3"
	tell document 1
		repeat 49 times
			make new spread at end
		end repeat
	end tell
	activate
end tell

:wink:

#3

in groups select??
generic box, text box, line box, picture box

	set tool mode to drag mode
	set selection to null
set selected of generic box to true--1box select
set selected of text box to true--1text box select
set selected of picture box to true--1picture box select

1group
picture box----1ea
text box ---- 2ea

2group
picture box----3ea
line box ----2ea

select 1group???
select 2group???

Thanks! Fredo d;o

#4

Hi :slight_smile:
I do not know why, but I found this handling very difficult, however it should be simple, but perhaps that it exists and that I did not find it… :?
Ok, after many attempts, here what I found, I hope that help you:

tell application "QuarkXPress 3"
	try
		activate
		if not (exists document 1) then error "No open document…" number 8000
		tell document 1
			set tool mode to drag mode
			
			set {GrpNro, GrpLst} to {0, {}}
			set PgeNro to page number of current page
			set BoxNbr to count (every generic box of current page)
			if (BoxNbr is 0) then error "No box in this page…" number 8002
			
			repeat with BoxNro from 1 to BoxNbr
				set selected of generic box BoxNro to true
				if (box type of selection is «class GRBX») then
					if (name of selection is "") then
						set GrpNro to GrpNro + 1
						set GrpNom to "Pg" & PgeNro & "Gp" & GrpNro
						set name of selection to GrpNom
						set end of GrpLst to GrpNom
					else if (name of selection is not in GrpLst) then
						set end of GrpLst to name of selection
					end if
				end if
				set selected of selection to false
			end repeat
			
			if (GrpLst is not {}) then
				set BoxSel to (choose from list GrpLst)
				if (BoxSel is not false) then
					repeat with BoxNro from 1 to BoxNbr
						set selected of generic box BoxNro to true
						if name of selection is ("" & BoxSel) then exit repeat
						set selected of selection to false
					end repeat
				end if
			end if
		end tell
	on error MsgErr number NroErr
		if NroErr is not -128 then display dialog "" & NroErr & " : " & MsgErr with icon 0
	end try
end tell

:wink: