Sonny Software

Code: Select all

tell application "Pages"
	set T to body text of document 1 as text
	set vRefs1 to find text "{" in T with all occurrences
	set vRefs2 to find text "}" in T with all occurrences
	
	set vRefs to {}
	set N to (count items of vRefs1)
	repeat with i from 1 to N
		set s1 to (matchPos of item i of vRefs1) + 1
		set s2 to (matchPos of item i of vRefs2) + 1
		set vRefs to vRefs & {characters s1 thru s2 of T as text}
	end repeat
	
	set vIx to 1
	repeat with vR in vRefs
		set vOff to offset of vR in (body text of document 1 as text)
		set vLen to (count characters of vR as text)
		select characters vOff thru (vOff + vLen - 1) of body text of document 1
		set superscript of (character vOff of body text of document 1) to true
		set color of (character vOff of body text of document 1) to {65535, 0, 0}
		set selection of document 1 to (vIx as text)
		set vIx to vIx + 1
	end repeat
	
	select last character of body text of document 1
	insert page break of body text of document 1
	set selection of document 1 to vRefs as text
end tell