Insert Fields From INSPECTOR DOCUMENT INFO into Pages Document

Question

I was able to do this since the DOS version of MS Word and would be rather surprised if there is no way to do it in Pages. Is there a way to insert "Document Info" about the present document into the present document?
Am trying to work up my own template for manuscripts. I use the Document Info dialog and would like to have information like Author and Title dropped into the document via a field like can be done with Page Numbers.

Answer 1

Bingo.
I built a script inserting the infos extracted from the Infos dialog.
--[SCRIPT insertdocumentinfos]
Enregistrer le script en tant que Script ou Application : insertdocumentinfos.xxx
déplacer le fichier ainsi créé dans le dossier
<VolumeDeDémarrage>:Utilisateurs:<votreCompte>:Bibliothèque:Scripts:Applications:Pages:
Il vous faudra peut-être créer le dossier Pages et peut-être même le dossier Applications.
Définir dans un document Pages le point d’insertion des infos sur le document.
Aller au menu Scripts , choisir Pages puis choisir “insertdocumentinfos”
Le script extrait les infos de l’inspecteur Document > Infos et les insère dans le document.
--=====
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”.
Sous 10.6.x,
aller dans le panneau “Général” du dialogue Préférences de l’Éditeur Applescript
puis cocher la case “Afficher le menu des scripts dans la barre des menus”.
--=====
Save the script as a Script or an Application : insertdocumentinfos.xxx
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.
Define, in a Pages document, the insertion point for the document's infos.
Go to the Scripts Menu, choose Pages, then choose “insertdocumentinfos”
The script extract the infos from IOnspector > Document > Infos and insert them in the document.
--=====
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.
Under 10.6.x,
go to the General panel of AppleScript Editor’s Preferences dialog box
and check the “Show Script menu in menu bar” option.
--=====
Yvan KOENIG (VALLAURIS, France)
2011/03/09
--=====
property Document_loc : missing value
--=====
on run
run script doyourduty
end run
--=====
script doyourduty
local inspecteur_actif, mon_auteur, mon_titre, mesmotsclef, mes_commentaires, mes_infos, selection_originelle
my activateGUIscripting()
Grab the localized title of the Document's inspector *)
tell application "Pages" to set Document_loc to localized string "Document"
tell application "Pages" to tell document 1
-- set focus on the document
end tell
Grabs the title of the active inspector *)
set inspecteur_actif to my getactiveinspector()
if inspecteur_actif is {} then
No inspector open, trigger Show Inspector to open one *)
my selectMenu("Pages", 8, 15)
Grabs its title *)
set inspecteur_actif to my getactiveinspector()
end if
repeat
if inspecteur_actif contains Document_loc then
exit repeat
else
Open a new Inspector *)
my selectMenu("Pages", 8, 16)
Grabs its title *)
set inspecteur_actif to my getactiveinspector()
end if
end repeat
Now the Document Inspector is open, extract the infos
set {mon_auteur, mon_titre, mesmotsclef, mes_commentaires} to my get_infos()
set mes_infos to my recolle({mon_auteur, mon_titre, mesmotsclef, mes_commentaires}, tab)
Insert the infos at the selection point
tell application "Pages" to tell document 1
set selection_originelle to contents of the selection
set selection to (selection_originelle & mes_infos)
end tell
Clear the property because I dislike to store such item in the script *)
set Document_loc to missing value
end script
--=====
on recolle(l, d)
local oTIDs, t
set oTIDs to AppleScript's text item delimiters
set AppleScript's text item delimiters to d
set t to l as text
set AppleScript's text item delimiters to oTIDs
return t
end recolle
--=====
on activateGUIscripting()
(* to be sure than GUI scripting will be active *)
tell application "System Events"
if not (UI elements enabled) then set (UI elements enabled) to true
end tell
end activateGUIscripting
--=====
on getactiveinspector()
local the_inspector
tell application "Pages" to activate
tell application "System Events" to tell application process "Pages"
set the_inspector to title of every window whose subrole is "AXFloatingWindow"
end tell
return the_inspector
end getactiveinspector
--=====
on get_infos()
local l_auteur, le_titre, mots_clef, les_commentaires
tell application "Pages" to activate
tell application "System Events" to tell application process "Pages"
tell (first UI element whose role is "AXTabGroup") of first group of (first window where subrole is "AXFloatingWindow" and title is Document_loc)
tell (third UI element whose role is "AXRadioButton") to if value is 0 then click
set {l_auteur, le_titre, mots_clef, les_commentaires} to value of every text field
end tell
end tell
return {l_auteur, le_titre, mots_clef, les_commentaires}
end get_infos
--=====
my selectMenu("Pages",5, 12)
==== Uses GUIscripting ====
on selectMenu(theApp, mt, mi)
tell application theApp
activate
tell application "System Events" to tell process theApp to tell menu bar 1 to ¬
tell menu bar item mt to tell menu 1 to click menu item mi
end tell -- application theApp
end selectMenu
--=====
--[/SCRIPT]
Yvan KOENIG (VALLAURIS, France) mercredi 9 mars 2011 22:14:43