Default Filename for a New Pages Document

--[SCRIPT saveAs1stParagraph]
(*
Enregistrer le script en tant que Script : saveAs1stParagraph.scpt
déplacer le fichier ainsi créé 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.
Copier la chaîne de caractères à utiliser comme nom du document.
menu Scripts > Pages > saveAs1stParagraph
Le script ouvre le dialogue "Enregistrer sous …" et y colle le nom retenu. 
--=====
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: saveAs1stParagraph.scpt
Move the newly created file 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.
Copy the string to use as filename.
menu Scripts > Pages > saveAs1stParagraph
The script opens the "Save As…" dialog and paste the selected name in the target field.
--=====
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)
2010/05/18
*)
--=====
property theApp : "Pages"
--=====
on run
 set the clipboard to paragraph 1 of (the clipboard as text)
 my raccourci(theApp, "s", "cs") (* Save as… *)
 my raccourci(theApp, "v", "c") (* Paste *)
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
--=====
(*
==== Uses GUIscripting ==== 
*)
(*
This handler may be used to 'type' text, invisible characters if the third parameter is an empty string. 
It may be used to 'type' keyboard raccourcis if the third parameter describe the required modifier keys. 
I changed its name « shortcut » to « raccourci » to get rid of a name conflict in Smile. 
*)
on raccourci(a, t, d)
 local k
 tell application a to activate
 tell application "System Events" to tell application process a
 set frontmost to true
 try
 t * 1
 if d is "" then
 key code t
 else if d is "c" then
 key code t using {command down}
 else if d is "a" then
 key code t using {option down}
 else if d is "k" then
 key code t using {control down}
 else if d is "s" then
 key code t using {shift down}
 else if d is in {"ac", "ca"} then
 key code t using {command down, option down}
 else if d is in {"as", "sa"} then
 key code t using {shift down, option down}
 else if d is in {"sc", "cs"} then
 key code t using {command down, shift down}
 else if d is in {"kc", "ck"} then
 key code t using {command down, control down}
 else if d is in {"ks", "sk"} then
 key code t using {shift down, control down}
 else if (d contains "c") and (d contains "s") and d contains "k" then
 key code t using {command down, shift down, control down}
 else if (d contains "c") and (d contains "s") and d contains "a" then
 key code t using {command down, shift down, option down}
 end if
 on error
 repeat with k in t
 if d is "" then
 keystroke (k as text)
 else if d is "c" then
 keystroke (k as text) using {command down}
 else if d is "a" then
 keystroke k using {option down}
 else if d is "k" then
 keystroke (k as text) using {control down}
 else if d is "s" then
 keystroke k using {shift down}
 else if d is in {"ac", "ca"} then
 keystroke (k as text) using {command down, option down}
 else if d is in {"as", "sa"} then
 keystroke (k as text) using {shift down, option down}
 else if d is in {"sc", "cs"} then
 keystroke (k as text) using {command down, shift down}
 else if d is in {"kc", "ck"} then
 keystroke (k as text) using {command down, control down}
 else if d is in {"ks", "sk"} then
 keystroke (k as text) using {shift down, control down}
 else if (d contains "c") and (d contains "s") and d contains "k" then
 keystroke (k as text) using {command down, shift down, control down}
 else if (d contains "c") and (d contains "s") and d contains "a" then
 keystroke (k as text) using {command down, shift down, option down}
 end if
 end repeat
 end try
 end tell
end raccourci
--=====
--[/SCRIPT]
--