Set row as header using applescript

Question

I am new to AppleScript and I am writing my first script to crunch some data in numbers. I am trying to figure out how to set row one as the header row in sheet 1 using the script. Can anyone help?

Answer 1

Here is a script a bit more powerful that what you asked for but it's of more general use.
--{code}
--[SCRIPT set_count_of_Xers]
Enregistrer le script en tant que Script : set_count_of_Xers.scpt
déplacer le fichier ainsi créé dans le dossier
<VolumeDeDémarrage>:Users:<votreCompte>:Library: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 “set_count_of_Xers”
En fonction des paramètres passés, le script fixera le nombre de Rangs d’en-tête, Colonnes d’en-tête ou Rangs de bas de tableau dans le tableau table_name de la feuille sheet_name du document doc_name.
--=====
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: set_count_of_Xers.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 “set_count_of_Xers”
According to the defined parameters, the script will set the count of HEADer ROWs, HEADer COLUMNs or FOOTer ROWS in the table table_name of the sheet sheet_name in the document doc_name.
--=====
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/09/21
--=====
property forTests : false
true may be useful for tests. It triggers the handler select_SubMenu which list the UI elements.
false is the setting to apply when the script is finished because it runs faster.
--=====
on run
          my activateGUIscripting()
This script is a general one allowing to treat the defined table
          set doc_name to 1
          set sheet_name to "Feuille 2"
          set table_name to "Tableau 1"
          set which_item to 10
          set nb_Xers to 1
          my setNbXers(doc_name, sheet_name, table_name, which_item, nb_Xers) (* to set 1 HEADer ROW *)
end run
--=====
which = 10 --> set count of HEADer ROWs
          my setNbXers(1, "Feuille 2", "Tableau 1", 10, 1) (* to set 1 HEADer ROW *)
which = 11 --> set count of HEADer COLUMNs
          my setNbXers("my doc.numbers", "Sheet 5", "Table aux", 11, 4) (* to set 4 HEADer COLUMNs *)
which = 14 --> set count of FOOTer ROWs
          my setNbXers("ASCII.numbers", "Sheet of paper", "TableTop", 14, 3) (* to set 3 FOOTer ROWs *)
on setNbXers(docName, sheetName, tableName, whichItem, nbXers)
          my selectTable(docName, sheetName, tableName)
          if forTests then
                    my select_SubMenu("Numbers", 6, whichItem, nbXers + 1)
          else
                    my selectSubMenu("Numbers", 6, whichItem, nbXers + 1)
          end if
end setNbXers
--=====
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
on get_SelParams()
          local d_name, s_name, t_name, row_num1, col_num1, row_num2, col_num2
          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
                    if s_name is "" then
                              if my parleAnglais() then
                                        error "No sheet has a selected table embedding at least one selected cell !"
                              else
                                        error "Aucune feuille ne contient une table ayant au moins une cellule sélectionnée !"
                              end if
                    end if
                    tell sheet s_name to tell (first table where selection range is not missing value)
                              tell selection range
                                        set {top_left, bottom_right} to {name of first cell, name of last cell}
                              end tell
                              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 bottom_right to set {row_num2, col_num2} to {address of its row, address of its column}
                              end if
                    end tell -- sheet…
                    return {d_name, s_name, t_name, row_num1, col_num1, row_num2, col_num2}
          end tell -- Numbers
end get_SelParams
--=====
on parleAnglais()
          local z
          try
                    tell application "Numbers" to set z to localized string "Cancel"
          on error
                    set z to "Cancel"
          end try
          return (z is not "Annuler")
end parleAnglais
--=====
on decoupe(t, d)
          local oTIDs, l
          set oTIDs to AppleScript's text item delimiters
          set AppleScript's text item delimiters to d
          set l to text items of t
          set AppleScript's text item delimiters to oTIDs
          return l
end decoupe
--=====
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
--=====
==== Uses GUIscripting ====
on selectTable(theDoc, theSheet, theTable)
          local maybe, targetSheetRow, rowIndex, r
          try
                    tell application "Numbers"
  activate
                              set theDoc to name of document theDoc (* useful if the passed value is a number. Checks also that we passed the name of an open doc *)
                    end tell -- Numbers
          on error
                    if my parleAnglais() then
                              error "The spreadsheet “" & theDoc & "” is not open !"
                    else
                              error "Le tableur « " & theDoc & " » n’est pas ouvert ! "
                    end if -- my parleAnglais
          end try
          try
                    tell application "Numbers" to tell document theDoc
                              set theSheet to name of sheet theSheet (* useful if the passed value is a number and check the availability of theSheet if it’s a string *)
                    end tell -- Numbers
          on error
                    if my parleAnglais() then
                              error "The sheet “" & theSheet & "” is unavailable in the spreadsheet “" & theDoc & "” !"
                    else
                              error "La feuille « " & theSheet & " » n’existe pas dans le tableur « " & theDoc & " » ! "
                    end if -- my parleAnglais
          end try
          try
                    tell application "Numbers" to tell document theDoc to tell sheet theSheet
                              set theTable to name of table theTable (* useful if the passed value is a number and check the availability of theSheet if it’s a string *)
                    end tell -- Numbers
          on error
                    if my parleAnglais() then
                              error "The table “" & theTable & "” is unavailable in the sheet “" & theSheet & "”  of the spreadsheet “" & d & "” !"
                    else
                              error "La table « " & theTable & " » n’existe pas dans la feuille « " & theSheet & " »  du tableur « " & d & " » ! "
                    end if -- my parleAnglais
          end try
          set maybe to 5 > (system attribute "sys2")
          tell application "System Events" to tell application process "Numbers"
                    tell outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of window theDoc
                              if maybe then (* macOS X 10.4.x
'(value of attributes contains 0)': '(value of attribute "AXDisclosureLevel" is 0)' sometimes works in Tiger, sometimes not.
The only possible instances of 0 amongst the attributes are the disclosure level of a sheet row and the index of the first row, which represents a sheet anyway.
Another possibility is '(value of attribute -1 is 0)', which makes me uneasy. *)
                                        set targetSheetRow to first row where ((value of attributes contains 0) and (value of first static text is theSheet))
                              else (* macOS X 10.5.x or higher *)
                                        set targetSheetRow to first row where ((value of attribute "AXDisclosureLevel" is 0) and ((groups is {}) and (value of first static text is theSheet)) or (value of first group's first static text is theSheet))
                              end if -- maybe
                              tell targetSheetRow to set {value of attribute "AXSelected", value of attribute "AXDisclosing"} to {true, true}
  -- Get the sheet row's 0-based index + 2 for the following row's 1-based index.
                              set r to (value of attribute "AXIndex" of targetSheetRow) + 2
                              repeat until (value of first static text of row r is theTable)
                                        set r to r + 1
                              end repeat
                              set value of attribute "AXSelected" of row r to true
                    end tell -- outline 1 …
          end tell -- System Events
end selectTable
--=====
my selectSubMenu("Pages",6, 4, 26)
==== Uses GUIscripting ====
on selectSubMenu(theApp, mt, mi, ms)
          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 tell menu item mi to tell menu 1 to click menu item ms
          end tell -- application theApp
end selectSubMenu
--=====
useful to get the indexs of the triggered item
my select_SubMenu("Numbers", 6, 10, 1+1) (* Table > Header rows > 1 *)
on select_SubMenu(theApp, mt, mi, ms)
          tell application theApp
  activate
                    tell application "System Events" to tell process theApp to tell menu bar 1
                              get name of menu bar items
01 - "Apple",
02 - "Numbers",
03 - "Fichier",
04 - "Édition",
05 - "Insertion",
06 - "Tableau",
07 - "Format",
08 - "Disposition",
09 - "Présentation",
10 - "Fenêtre",
11 - "Partage",
12 - "Aide"}
                              get name of menu bar item mt
  -- {"Tableau"}
                              tell menu bar item mt to tell menu 1
                                        get name of menu items
01 - "Insérer un rang d’en-tête au-dessus"
02 - "Insérer un rang d’en-tête en dessous"
03 - missing value
04 - "Insérer une colonne d’en-tête avant"
05 - "Insérer une colonne d’en-tête après"
06 - missing value
07 - "Supprimer le rang"
08 - "Supprimer la colonne"
09 - missing value
10 - "Rangs d’en-tête"
11 - "Colonnes d’en-tête"
12 - "Bloquer les rangs d’en-tête"
13 - "Bloquer les colonnes d’en-tête"
14 - "Rangs de bas de tableau"
15 - missing value
16 - "Ajuster les rangs au contenu"
17 - "Ajuster les colonnes au contenu"
18 - missing value
19 - "Afficher tous les rangs"
20 - "Afficher toutes les colonnes"
21 - "Activer toutes les catégories"
22 - missing value
23 - "Fusionner les cellules"
24 - "Diviser en rangs"
25 - "Diviser en colonnes"
26 - missing value
27 - "Répartir les rangs uniformément"
28 - "Répartir les colonnes uniformément"
29 - missing value