Infuriating Aspects of Numbers Hyperlinks

Question

In Numbers you can make a URL into a hyperlink by selecting the hyperlink text and choosing Inspector > Hyperlinks > Enable as a Hyperlink. You can get around the fidgety selection by double clicking in and empty part cell if the cell is big enough. So far so good.
If you want to kill all the hyperlinks, you can do so by choosing Inspector > Hyperlinks > Make All Hyperlinks Inactive.
What if you want to make a whole column of URLs into hyperlinks? Click click click click click click click click click click click click click click click click click click click click click click click click click click click click click click click coffee break click click click click click click click click click click click click click click click click click click toilet break click click click click click click ad infinitum.
Why can you make individual URLs into hyperlinks, but not a whole column or document's URLs into hyperlinks? What is the use case for having selective hyperlinks? When would you ever do that? 95 percent of the time you want then all or none of them. Why is there a "Make All Hyperlinks Inactive" but not a "Make All Hyperlinks Active" choice? Why is the application not smart enough to recognize that a cell contains only (or only one) URL and let you select a cell rather than text? Why can you select multiple cells and change them?
I've had this sense about all Apple software that there is never really a dedicated team working on it continuously. They get out a release and then they're off to some iPhone work or something. Then Steve decides he needs a new release and they make some upgrades. The bug report queue is never looked at. The forums are never looked at. Ten-minute fixes just sit for years without being remedied.

Answer 1

Here is an easy way to apply the wanted change.
--[SCRIPT URLtoHyperlink]
Enregistrer le script en tant que Script : URLtoHyperlink.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.
Vérifiez que la préférence
"Détecter automatiquement les adresses électroniques et celles de pages web"
est activée.
Sélectionnez une colonne de cellules contenant les URLs à convertir.
Aller au menu Scripts , choisir Numbers puis choisir URLtoHyperlink
--=====
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: URLtoHyperlink.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.
Check that the preference :
"Automatically detect email and web addresses"
is activated.
Select a column of cells storing URLs to convert.
Go to the Scripts Menu, choose Numbers, then choose "URLtoHyperlink"
--=====
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/02/19
--=====
on run
run script doyourduty
end run
--=====
script doyourduty
set {dName, sName, tName, rname, rowNum1, colNum1, rowNum2, colNum2} to my getSelParams()
tell application "Numbers" to tell document dName to tell sheet sName to tell table tName
set les_URLs to value of cells rowNum1 thru rowNum2 of column colNum1
repeat with r from 1 to count of les_URLs
clear cell (rowNum1 + r - 1) of column colNum1
set selection range to cell (rowNum1 + r - 1) of column colNum1
my type_string("Numbers", item r of les_URLs & return)
--delay 0.1
end repeat
end tell
end script
--=====
on type_string(a, t)
local k
tell application a to activate
tell application "System Events" to tell application process a
set frontmost to true
keystroke (t as text)
end tell
end type_string
--=====
set {rowNum1, colNum1, rowNum2, colNum2} to my getCellsAddresses(dname,s_name,t_name,arange)
on getCellsAddresses(d_Name, s_Name, t_Name, r_Name)
local two_Names, row_Num1, col_Num1, row_Num2, col_Num2
tell application "Numbers"
set d_Name to name of document d_Name (* useful if we passed a number *)
tell document d_Name
set s_Name to name of sheet s_Name (* useful if we passed a number *)
tell sheet s_Name
set t_Name to name of table t_Name (* useful if we passed a number *)
end tell -- sheet
end tell -- document
end tell -- Numbers
if r_Name contains ":" then
set two_Names to my decoupe(r_Name, ":")
set {row_Num1, col_Num1} to my decipher(d_Name, s_Name, t_Name, item 1 of two_Names)
if item 2 of two_Names = item 1 of two_Names then
set {row_Num2, col_Num2} to {row_Num1, col_Num1}
else
set {row_Num2, col_Num2} to my decipher(d_Name, s_Name, t_Name, item 2 of two_Names)
end if
else
set {row_Num1, col_Num1} to my decipher(d_Name, s_Name, t_Name, r_Name)
set {row_Num2, col_Num2} to {row_Num1, col_Num1}
end if -- r_Name contains…
return {row_Num1, col_Num1, row_Num2, col_Num2}
end getCellsAddresses
--=====
set { dName, sName, tName, rname, rowNum1, colNum1, rowNum2, colNum2} to my getSelParams()
on getSelParams()
local r_Name, t_Name, s_Name, d_Name
set {d_Name, s_Name, t_Name, r_Name} to my getSelection()
if r_Name is missing value then
if my parleAnglais() then
error "No selected cells"
else
error "Il n'y a pas de cellule sélectionnée !"
end if
end if
return {d_Name, s_Name, t_Name, r_Name} & my getCellsAddresses(d_Name, s_Name, t_Name, r_Name)
end getSelParams
--=====
set {rowNumber, columnNumber} to my decipher(docName,sheetName,tableName,cellRef)
apply to named row or named column !
on decipher(d, s, t, n)
tell application "Numbers" to tell document d to tell sheet s to tell table t to ¬
return {address of row of cell n, address of column of cell n}
end decipher
--=====
set { d_Name, s_Name, t_Name, r_Name} to my getSelection()
on getSelection()
local _, theRange, theTable, theSheet, theDoc, errMsg, errNum
tell application "Numbers" to tell document 1
repeat with i from 1 to the count of sheets
tell sheet i
set x to the count of tables
if x > 0 then
repeat with y from 1 to x
try
(selection range of table y) as text
on error errMsg number errNum
set {_, theRange, _, theTable, _, theSheet, _, theDoc} to my decoupe(errMsg, quote)
return {theDoc, theSheet, theTable, theRange}
end try
end repeat -- y
end if -- x>0
end tell -- sheet
end repeat -- i
end tell -- document
return {missing value, missing value, missing value, missing value}
end getSelection
--=====
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
--=====
--[/SCRIPT]
Yvan KOENIG (VALLAURIS, France) samedi 19 février 2011 11:38:39