12-09-2008, 01:48 AM
:-)
tell application "Pages"
set myFonts to {} & "Adobe Garamond Pro" & "American Typewriter" & "Palatino" & "Big Caslon"
repeat
repeat with myFont in myFonts
set myDoc to document 1
set myStyle to paragraph style "BodyText" of myDoc
set font name of myStyle to myFont
delay 2
end repeat
end repeat
end tell
tell application "Pages"
set myFonts to {} & "Adobe Garamond Pro" & "American Typewriter" & "Palatino" & "Big Caslon"
repeat
repeat with myFont in myFonts
set myDoc to document 1
set myStyle to paragraph style "BodyText" of myDoc
set font name of myStyle to myFont
delay 2
end repeat
end repeat
end tell