Apple Script to make Pages open in a user-selected screen position

Question

This is a follow-up to a response/script made previously by Yvan KOENIG that enables Pages to open a Pages template in a user-selected "left" position.
http://discussions.apple.com/message.jspa?messageID=9100331#9100331
This works great for me, but I'd like to take this one step further, if possible. I'm naïve when it comes to Apple Scripts
Currently, if I use the script, it opens up in 100% 'fit-width' view as follows:
http://trials.sent.com/pages/100.png
What I'd like it to do is to open up in 125% 'fit-width' view as follows:
http://trials.sent.com/pages/125.png
I'd like to therefore ask if it's possible to somehow enable this in the script above.

Answer 1

I looked at the English version.
Let me say you that you are a funny guy.
Set width and set "Fit Width" are incompatible commands.
On my 1920 x 1200 screen, if I set scale to 125%, Fit Width is disabled.
If I check "Fit width", the size remains unchanged but is no longer selected.
On a smaller display, "Fit Width" will set the page in the "100%" mode.
My guess is that it's what you get.
As I am a good guy,
I add some instructions in the code.
Now you may activate several settings to fit your needs (when they are technically compatibles).
--(SCRIPT openToLeft.app]
Enregistrer le script en tant que Script, Application ou Progiciel : openToLeft.xxx
déplacer l'application créée dans le dossier
<VolumeDeDémarrage>:Users:<votreCompte>:Library:Scripts:Applications:Pages:
Il vous faudra peut-être créer le dossier Pages et peut-être même le dossier Applications.
menu Scripts > Pages > openToLeft
Le script créera un nouveau document à partir du modèle choisi et le poussera à gauche de l'écran.
--=====
L'aide du Finder explique:
L'Utilitaire AppleScript permet d'activer le Menu des scripts :
Ouvrez l'Utilitaire AppleScript situé dans le dossier Applications/AppleScript.
Cochez la case "Afficher le menu des scripts dans la barre de menus".
+++++++
Save the script as a Script, an Application or an Application Bundle: openToLeft.xxx
Move the newly created application into the folder:
<startup Volume>:Users:<yourAccount>:Library:Scripts:Applications:Pages:
Maybe you would have to create the folder Pages and even the folder Applications by yourself.
menu Scripts > Pages > openToLeft
The script will create a new document from the selected template and will push it to the screen's left edge.
--=====
The Finder's Help explains:
To make the Script menu appear:
Open the AppleScript utility located in Applications/AppleScript.
Select the "Show Script Menu in menu bar" checkbox.
+++++++
Yvan KOENIG (Vallauris FRANCE)
4 mars 2009
property theApp : "Pages"
property hardCoded : false
true = the template is predefined
false = you select the template when you run the script *)
property zoomIt : false
false = leaves the doc size as created
true = issue a cmd + > command to enlarge it *)
--=====
on run
my activateGUIscripting()
tell application "Pages"
set Templates_loc to localized string "Templates" (* nom local du dossier "Modèles" *)
set MyTemplates_loc to localized string "My Templates" (* nom local du dossier "Mes Modèles" *)
end tell -- theApp
set templatesFolder to ((path to application support from user domain as text) & "iWork:Pages:" & Templates_loc & ":" & MyTemplates_loc & ":")
if hardCoded then (*
Here the template to use is hard coded in the script *)
if templatesFolder does not end with ":" then set templatesFolder to templatesFolder & ":"
set myTemplate to (templatesFolder & "un modèle09.template:") as alias
else (*
Here we are urged to choose the template in a dialog *)
set templatesFolder to templatesFolder as alias
Don't ask me why, Pages uses two Universal Type Identifiers for its templates
the first one is used if only Pages '08 is installed under 10.4 or by both '08 and '09 under 10.5.6
the second one is used under 10.4.11 if Pages '09 is installed *)
set allowed to {"com.apple.iWork.Pages.template", "com.apple.iWork.Pages.sfftemplate"}
if 5 > (system attribute "sys2") then
set isOs4 to true
set permitted to allowed
else
set isOs4 to false
set permitted to {}
end if
if my parleAnglais() then
set myTemplate to choose file "Choose a Pages template …" of type permitted default location templatesFolder
else
set myTemplate to choose file "Choisissez un modèle Pages …" of type permitted default location templatesFolder
end if
if not isOs4 then
due to a system's bug, choose file is unable to filter the iwork's files UTIs
So we must check by ourself *)
set maybe to myTemplate as text
tell application "System Events" to set typid to type identifier of disk item maybe
if typid is not in allowed then
if my parleAnglais() then
error "The file “" & maybe & "” is not a Pages template !"
else
error "Le fichier « " & maybe & " » n’est pas un modèle Pages !"
end if
end if
end if
(* Here, the pathname of the template is of class alias *)
end if -- hardCoded
try
tell application "Pages"
activate
set n to count of documents
open myTemplate (* create a new doc from the template *)
repeat
if (count of documents) > n then
exit repeat
else
delay 0.1
end if
end repeat
tell window 1 (*
As we are telling to application "Pages" we may use tell window 1 even if we have an Inspector or a Find/Replace dialog open.
It would be wrong if we where telling to process "Pages" *)
set {x1, y1, x2, y2} to get bounds
set bounds to {0, 0, x2 - x1, y2 - y1} (* move the window to the left edge *)
set view scale to 125.0
--set fit page to true (* or false *)
set fit width to true (* or false *)
--set full screen to true (* or false *)
--set outline visible to true (* or false *)
--set ruler visible to true (* or false *)
--set styles visible to true (* or false *)
--set thumbnails visible to true (* or false *)
--set toolbar visible to true (* or false *)
--set two up to true (* or false *)
end tell -- window
end tell -- application
end try
end run
--=====
on activateGUIscripting()
tell application "System Events"
if not (UI elements enabled) then set (UI elements enabled) to true (* to be sure than GUI scripting will be active *)
end tell
end activateGUIscripting
--=====
on parleAnglais() (* Check if Pages is running in French *)
local z
try
tell application theApp to set z to localized string "Cancel"
on error
set z to "Cancel"
end try
return (z is not "Annuler")
end parleAnglais
--=====
--[/SCRIPT]
Yvan KOENIG (from FRANCE jeudi 14 mai 2009 11:35:36)