Save as- for Dummies (Numbers version)

Question

Here is a clean way to retrieve Save As… in Numbers.
--(SCRIPT Numbers_save_a_copy]
Enregistrer le script en tant que Script : Numbers_save_a_copy.scpt
déplacer le fichier créé dans le dossier
<VolumeDeDémarrage>:Utilisateurs:<votreCompte>:Bibliothèque:Scripts:Applications :Numbers:
Il vous faudra peut-être créer le dossier Numbers et peut-être même le dossier Applications.
Aller au menu Scripts , choisir Numbers puis choisir “Numbers_save_a_copy”
Le script enregistre une copie du document au premier plan
au format natif de Numbers en ajoutant la date et l'heure au nom du fichier.
--=====
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: Numbers_save_a_copy.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, choose Numbers, then choose “Numbers_save_a_copy”
The script saves the frontmost document
in the native Numbers format in a date_time stamped file.
--=====
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)
2011/08/12
on run
          local docPath, docName, docFolder, fileName, theExt, newName, newPath
          set major_OS to get system attribute "sysv"
Grab infos about the open doc at front *)
          tell application "Numbers"
                    tell document 1
                              set docPath to its path
                              set docName to its name
                    end tell
                    if major_OS ≥ 4208 then save docName (* Required for Lion *)
          end tell
Grab infos about the file from which the doc was open *)
          tell application "System Events" to tell disk item docPath
                    set docFolder to path of container
                    set fileName to name
                    set theExt to name extension
          end tell
Build an unique name for the new document *)
          if theExt is not "" then
                    set newName to (text 1 thru -(2 + (length of theExt)) of fileName) & (do shell script "date +_%Y%m%d_%H%M%S.") & theExt
          else
                    set newName to fileName & (do shell script "date +_%Y%m%d_%H%M%S")
          end if
Create the new file *)
          tell application "System Events"
  make new file at end of folder docFolder with properties {name:newName}
          end tell
          set newPath to (docFolder & newName) as alias
Save a copy in the newly created file *)
          tell application "Numbers"
  save document docName in newPath
          end tell
end run
--=====
--[/SCRIPT]
--{code}
Yvan KOENIG (VALLAURIS, France) vendredi 19 août 2011 22:18:22
iMac 21”5, i7, 2.8 GHz, 4 Gbytes, 1 Tbytes, mac OS X 10.6.8 and 10.7.0
My iDisk is : <http://public.me.com/koenigyvan>

Answer 1

Here is an other one.
Read carefully the explanations given at the very beginning, in French then in English.
With this one you master the time when you save. CAUTION, Autosave is unable to do it's duty when you work on a document open with the script so don't forget to ask the script to save from time to time.
With this dedicated to Numbers script, the most interesting piece of code is the one used to grab the status of the document when we open it to be able to reset it after inserting the items storing the path to folder to save in and the doc shortname.
--(SCRIPT Numbers_without_autosave]
Enregistrer le script en tant qu'application sur le Bureau.
Glisser une icône de document Numbers sur l'icône de l’application
ouvre le document, le duplique, ferme l'original renomme la copie en ajoutant l'information date_heure
crée une table dans une feuille afin d'y stocker le chemin d'accès au dossier source et le nom court du document original.
Travailler sur le document et de temps à autres, cliquer sur l'cône du script application afin d'enregistrer
le document et repartir avec une copie qui n'ayant jamais été enregistré ne sera pas autoenregistré.
Bien entendu, quand vous aurez fini de travailler sur le document il vous faudra l'enregistrer comme autrefois.
--=====
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 an application on the Desktop.
Drop a Numbers doc icon on the application's one, open the document, duplicate it, save the original if it was created from a template,
rename the duplicate inserting a date_time stamp, create a table in a sheet to store the pathname to the source folder and the short name of the original.
After that you may work upon the document. From time to time, click the script's icon to save the document and replace it by a fresh replicate. So this one which was never saved will not be autosaved.
When you have finished to work upon the doc, save it as you did in the past.
--=====
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)
2011/08/22
property permitted : {"com.apple.iWork.Numbers.numbers", "com.apple.iWork.Numbers.sffnumbers"}
property modeles : {"com.apple.iWork.Numbers.template", "com.apple.iWork.Numbers.sfftemplate"}
property boxName : "pathname_shortname_emantrohs_emanhtap"
--=====
on run
          local docName, path_infos, docFolder, nomCourt, docPath, nbd
          my controle_versions()
Grab infos about the frontmost Numbers document *)
          tell application "Numbers"
                    set docName to name of document 1
                    tell document docName
Try to extract the infos stored by the open handler          *)
                              try
                                        tell sheet boxName to tell table boxName
                                                  set docFolder to value of cell "A1"
                                                  set nomCourt to value of cell "B1"
                                        end tell
                              on error
                                        if my parleAnglais() then
                                                  error "The document “" & docName & "”" & return & "wasn’t open with this script !"
                                        else
                                                  error "Le document « " & docName & " »" & return & "n’a pas été ouvert avec ce script !"
                                        end if
                              end try
                    end tell -- document
          end tell -- Numbers
          set docPath to docFolder & docName
          tell application "System Events"
This test was useful during my tests, now it's useless *)
                    if not (exists disk item docPath) then
  make new file at end of folder docFolder with properties {name:docName}
                    end if
          end tell -- System Events
          set docPath to docPath as alias
I don't understand why I must apply save - close - open          but without that it fails *)
          tell application "Numbers"
  save document docName in docPath
  close document docName
  open docPath
                    set nbd to count of documents
          end tell
          my selectMenu("Numbers", 3, 9) (* Duplicate ( 9 in Numbers, 10 in Pages )*)
Wait the availability of the duplicate *)
          tell application "Numbers"
                    repeat 100 times
                              if (get count of documents) > nbd then exit repeat
                              delay 0.2
                    end repeat
Now we may close the 'old' document *)
  close document docName without saving
          end tell -- Numbers
Build a date_time stamped name for next version *)
          set docName to nomCourt & my build_a_stamp() & ".numbers"
          tell application "Numbers"
                    set name of document 1 to docName
          end tell
end run
--=====
on open (sel)
          local docPath, docFolder, fileName, theExt, typeID, nomCourt, nouveauNomCourt, newPath, oldUnits, docName, nbd
Apply consistency checks *)
          my controle_versions()
          set docPath to sel's item 1 (* Here, docPath is an alias *)
Extract some infos about the original document *)
          tell application "System Events" to tell disk item (docPath as text)
                    set docFolder to path of container
                    set fileName to name
The try block may be useful if an user is fool enough to drag & drop a folder on the scrip’s icon *)
                    try
                              set theExt to name extension
                    on error
                              set theExt to ""
                    end try
                    try
                              set typeID to type identifier
                    on error
                              set typeID to ""
                    end try
          end tell
Check that the dragged item is a Numbers document *)
          if (typeID is not in permitted) and (typeID is not in modeles) then error number -128
Strip the name extension if there is one *)
          if theExt is not "" then
                    set nomCourt to (text 1 thru -(2 + (length of theExt)) of fileName)
          else
                    set nomCourt to fileName
          end if
If the original is a template, we will save the newly created file *)
          if typeID is in modeles then
                    set nouveauNomCourt to nomCourt & my build_a_stamp()
                    set fileName to nouveauNomCourt & ".numbers"
Create a new file *)
                    tell application "System Events"
  make new file at end of folder docFolder with properties {name:fileName}
                    end tell
                    set newPath to (docFolder & fileName) as alias
          end if
          tell application "Numbers"
  open docPath
                    if typeID is in modeles then
Original is a template so save the new doc once *)
  save document 1 in newPath
                              set name of document 1 to fileName
                    end if
                    set docName to name of document 1
                    set nbd to count of documents
          end tell
          my selectMenu("Numbers", 3, 9) (* Duplicate ( 9 in Numbers, 10 in Pages )*)
Wait the availability of the duplicate *)
          tell application "Numbers"
                    repeat 100 times
                              if (get count of documents) > nbd then exit repeat
                              delay 0.2
                    end repeat
Now may close the 'original' document *)
  close document docName without saving
          end tell
          set docName to nomCourt & my build_a_stamp() & ".numbers"
          tell application "Numbers"
                    set name of document 1 to docName
                    set {dName, sName, tName, rowNum1, colNum1, rowNum2, colNum2} to my get_SelParams()
                    tell document docName
  make new sheet with properties {name:boxName}
                              tell sheet boxName
  delete table 1
  make new table with properties {name:boxName, row count:2, column count:3}
                                        tell table boxName
  remove column 1
  remove row 1
                                                  set value of cell "A1" to docFolder
                                                  set value of cell "B1" to nomCourt
                                        end tell -- table
                              end tell -- sheet
Reset the entry settings *)
                              if tName is "" then
                                        my selectSheet(dName, sName)
                              else
                                        my selectTable(dName, sName, tName)
                                        if rowNum1 > 0 then
                                                  tell sheet sName to tell table tName
                                                            set selection range to range (name of cell rowNum1 of column colNum1 & ":" & name of cell rowNum2 of column colNum2)
                                                  end tell
                                        end if
                              end if
                    end tell -- document
          end tell -- Numbers
end open
--=====
on build_a_stamp()
          return do shell script "date +_%Y%m%d_%H%M%S"
end build_a_stamp
--=====
on controle_versions()
          local app_Version, sysv
          tell application "Numbers" to set app_Version to version
          set sysv to system attribute "sysv"
          if (app_Version < "2.1") or (sysv < 4208) then error number -128
end controle_versions
--=====
set { dName, sName, tName,  rowNum1, colNum1, rowNum2, colNum2} to my get_SelParams()
tell application "Numbers" to tell document dName to tell sheet sName to tell table tName
Enhanced version returning the name of the selected sheet or the name of the selected table if no cell is selected *)
on get_SelParams()
          script myScript
                    property liste_feuilles : {}
                    local d_name, s_name, t_name, row_num1, col_num1, row_num2, col_num2
                    local sheet_size, i, r, s, t_index, sheet_row
                    tell application "Numbers" to tell document 1
                              set d_name to its name
                              set s_name to ""
                              repeat with i from 1 to the count of sheets
                                        tell sheet i to set maybe to the count of (tables whose selection range is not missing value)
                                        if maybe is not 0 then
                                                  set s_name to name of sheet i
                                                  exit repeat
                                        end if -- maybe is not 0
                              end repeat
                    end tell -- Numbers…
                    if s_name > "" then
                              tell application "Numbers" to tell document d_name to tell sheet s_name to tell (first table where selection range is not missing value)
                                        tell selection range to set {top_left, bottom_right} to {name of first cell, name of last cell}
                                        set t_name to its name
                                        tell cell top_left to set {row_num1, col_num1} to {address of its row, address of its column}
                                        if top_left is bottom_right then
                                                  set {row_num2, col_num2} to {row_num1, col_num1}
                                        else
                                                  tell cell