Any way to make Pages always open in a user selected screen position?

Question

It is a continuing irritation to have to close the Styles Drawer, drag the window all the way to the left of my screen, and reopen the Styles Drawer on the right. This is the way I need to work and I'm not going to change that. What I'm hoping is that there is some way to reset the default opening position, maybe in terminal? Or an AppleScript? Neither of which I am familiar enough with to create my own. Any suggestions?
TIA

Answer 1

Here is a commented and enhanced version.
--(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 dde 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 *)
--=====
on run
if hardCoded then (*
Here the template to use is hard coded in the script *)
if my parleFrancais() then
set templatesFolder to (path to application support as text) & "iWork:Pages09:Modèles:Mes modèles:"
else
set templatesFolder to (path to application support as text) & "iWork:Pages09:Templates:My Templates:"
end if
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 allowed to choose the template in a dialog *)
if my parleFrancais() then
set templatesFolder to ((path to application support from user domain as text) & "iWork:Pages09:Modèles:Mes modèles:") as alias
else
set templatesFolder to ((path to application support from user domain as text) & "iWork:Pages09:Templates:My Templates:") as alias
end if
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 *)
if my parleFrancais() then
set myTemplate to choose file "Choisissez un modèle Pages …" of type {"com.apple.iWork.Pages.template", "com.apple.iWork.Pages.sfftemplate"} default location templatesFolder
else
set myTemplate to choose file "Choose a Pages template …" of type {"com.apple.iWork.Pages.template", "com.apple.iWork.Pages.sfftemplate"} default location templatesFolder
end if
(* Here, the pathname of the template is of class alias *)
end if -- hardCoded
try
tell application "Pages"
open myTemplate (* create a new doc from the template *)
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, y1, x2 - x1, y2} (* move the window to the left edge *)
end tell -- window
end tell -- application
end try
end run
--=====
on parleFrancais() (* 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 = "Annuler")
end parleFrancais
--=====
--[/SCRIPT]
Yvan KOENIG (from FRANCE jeudi 5 mars 2009 21:41:35)