How to search in Pages for any number or any character, using wildcards

Question

Is it possible in Pages to use wildcards to search for any instance of any number? For example, I want to find all occurrences of any one or two digits followed by a colon, such as 8: or 37:
If I can't use wildcards, is there any other way to search, other than tediously searching for every instance of 1, every instance of 2, etc.?
Thanks!
Sue

Answer 1

Hello
Here is an enhanced version.
--[SCRIPT highlight_ digitspluscolon]
Enregistrer le script en tant que Script : highlight_ digitspluscolon.scpt
déplacer le fichier ainsi créé dans le dossier
<VolumeDeDémarrage>:Users:<votreCompte>:Library:Scripts:Applications:Pages:
Il vous faudra peut-être créer le dossier Pages et peut-être même le dossier Applications.
Ouvrir un document traitement de textes Pages
aller au menu Scripts , choisir Pages puis choisir highlight_ digitspluscolon
Dans les éléments de texte, l'arrière plan des groupes de chiffres
suivis d'un caractère deux points sera mis en rouge.
--=====
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: highlight_ digitspluscolon.scpt
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.
Open a Pages word processor document.
go to the Scripts Menu, choose Pages, then choose "highlight_ digitspluscolon"
In the text objects, the background of groups of digits
with a trailing colon will be set to red.
--=====
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)
2010/07/17 -- enhanced to treat also text boxes and shapes
--=====
on run
local en_liste, le_dernier, un_groupe, le_premier, recul
local les_boites, une_boite, les_formes, une_forme
Try to treat the main text layer
tell application "Pages"
try
set le_document to name of document 1
tell document 1 to set le_texte to body text
on error
set le_texte to ""
end try
end tell -- Pages
if le_texte > "" then
set en_liste to my decoupe(le_texte, ":")
set le_dernier to 0
tell application "Pages" to tell document le_document
repeat with i from 1 to count of en_liste
set un_groupe to item i of en_liste
set le_dernier to le_dernier + 1 + (count of un_groupe)
set recul to 0
repeat with j from 1 to 10
if character -j of un_groupe is in "0123456789" then
set recul to -j
else
exit repeat
end if
end repeat -- with j
if recul < 0 then
set le_premier to le_dernier + recul
set character background color of characters le_premier thru le_dernier to {65535, 0, 0}
end if -- recul < 0
end repeat -- with i
end tell -- Pages…
end if -- le_texte > ""
Try to treat text boxes
try
tell application "Pages" to tell document le_document to set les_boites to every graphic whose class is text box
on error
set les_boites to {}
end try
if les_boites is not {} then
repeat with une_boite in les_boites
tell application "Pages" to tell document 1
tell une_boite to set le_texte to object text
end tell -- Pages…
my highlight(le_document, une_boite, le_texte)
end repeat
end if -- with f
Try to treat shapes
try
tell application "Pages" to tell document 1 to set les_formes to every graphic whose class is shape
on error
set les_formes to {}
end try
if les_formes is not {} then
repeat with f from 1 to count of les_formes
I know that using whose is more efficient than using an index but, in Pages '09, whose doesn't apply to shapes. *)
tell application "Pages" to tell document 1
set une_forme to item f of les_formes
tell une_forme to set le_texte to object text
end tell -- Pages
my highlight(le_document, une_forme, le_texte)
end repeat -- with f
end if
end run
--=====
on highlight(un_document, un_contenant, son_Texte)
local en_liste, le_dernier, un_groupe, recul, le_premier
set en_liste to my decoupe(son_Texte, ":")
set le_dernier to 0
tell application "Pages" to tell document un_document to tell un_contenant to tell object text
repeat with i from 1 to count of en_liste
set un_groupe to item i of en_liste
set le_dernier to le_dernier + 1 + (count of un_groupe)
set recul to 0
try (*
Useful if a shape was erroneously pasted in a text box. *)
repeat with j from 1 to 10
if character -j of un_groupe is in "0123456789" then
set recul to -j
else
exit repeat
end if
end repeat
end try
if recul < 0 then
set le_premier to le_dernier + recul
set character background color of characters le_premier thru le_dernier to {65535, 0, 0}
end if
end repeat
end tell -- Pages
end highlight
--=====
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]
It scans the main text layer in Word Processor documents.
It scans text boxes and shape in Word Processor and Layout documents.
Is it useful to scan :
headers, footers, tables ?
Yvan KOENIG (VALLAURIS, France) samedi 17 juillet 2010 21:07:04