Applescript to save all open documents?

Question

Hello,
When I close Numbers, I usually have about 15 documents with changes and I have to go through "Do you want to save changes" for all of them.
I've googled and tried, without success, to get a script that saves all open documents, except for untitled ones.
Is there anyone who know such a script?
Fred

Answer 1

Here is a revised version.
The problem was due to the fact that the script save and close the documents.
When I tested it, it was only saving them.
--[SCRIPT save&backup4iWork]
Enregistrer le script en tant que Script : save&zip4iWork.scpt
déplacer le fichier ainsi créé dans le dossier
<VolumeDeDémarrage>:Users:<votreCompte>:Library:Scripts:
Aller au menu Scripts puis choisir “save&zip4iWork”
Tous les documents iWork ouverts, ayant déjà été enregistrés puis modifiés seront enregistrés et fermés.
Si la propriété avecSauvegarde a la valeur true, une copie horodatée de chaque fichier est créée.
Si le document principal est de type paquet, la copie est compressée (zip).
--=====
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: save&zip4iWork.scpt
Move the newly created file into the folder:
<startup Volume>:Users:<yourAccount>:Library:Scripts:Applications:Numbers:
Maybe you would have to create the folder Numbers and even the folder Applications by yourself.
Go to the Scripts Menu then choose “save&zip4iWork”
Every open iWork document already saved then edited will be saved and closed.
--=====
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.
if the property avecSauvegarde is set to true, a dateTime stamped copy of each document is also created.
It's zipped if the main document is a package.
Yvan KOENIG
based on my AutoSave script.
2011/06/09
--=====
property avecSauvegarde : false
true = keep a dateTime stamped copy
false = don't keep a dateTime stamped copy
property saveKeynote : false
property saveNumbers : true
property savePages : false
--=====
on run
          if savePages then my auto4PKN("Pages")
          if saveKeynote then my auto4PKN("Keynote")
          if saveNumbers then my auto4PKN("Numbers")
end run
--=====
on auto4PKN(theApp)
          local titres, theDocs, aDoc, aPath
          tell application "System Events" to set titres to title of processes
          if theApp is in titres then
                    tell application theApp
As we close the documents, we must store the list of docs in a variable
or scan the list from the end which would require an index !
                              set theDocs to every document
                              repeat with aDoc in theDocs
                                        if modified of aDoc then
                                                  set aPath to path of aDoc
                                                  try
                                                            set aPath to aPath as text
                                                  on error
Here if the document was never saved before
                                                            set aPath to ""
                                                  end try
                                                  if aPath is not "" then
Save and close documents which were already saved once
                                                            close aDoc with saving
                                                            if avecSauvegarde then my zipIt(aPath)
                                                  end if -- aPath
                                        end if -- modified
                              end repeat
                    end tell -- theApp
          end if -- theApp is…
end auto4PKN
--=====
on zipIt(fichier) (* fichier is an HFS path*)
          local Nom, ext, dossier, isPackage, nomAvecDateHeure, source, dest
          set fichier to "" & fichier
          tell application "System Events" to tell disk item fichier
                    set Nom to name
                    set ext to name extension
                    set dossier to path of container
                    set isPackage to package folder
          end tell
          set source to quoted form of POSIX path of fichier
          set nomAvecDateHeure to (text 1 thru -(2 + (count of ext)) of Nom) & (do shell script "date +_%Y%m%d-%H%M%S.") & ext
          if isPackage then
                    set dest to quoted form of POSIX path of (dossier & nomAvecDateHeure & ".zip")
                    do shell script "ditto -ck " & source & " " & dest
          else
                    set dest to quoted form of POSIX path of (dossier & nomAvecDateHeure)
                    do shell script "cp " & source & " " & dest
          end if
end zipIt
--=====
--[SCRIPT]
--{code}
I included your specific requirements.
Yvan KOENIG (VALLAURIS, France) jeudi 9 juin 2011 18:03:20
iMac 21”5, i7, 2.8 GHz, 4 Gbytes, 1 Tbytes, mac OS X 10.6.7
Please : Search for questions similar to your own before submitting them to the community
To be the AW6 successor, iWork MUST integrate a TRUE DB, not a list organizer !