View All Fonts in a Document

Question

I keep getting font substitution errors for fonts that are not used anywhere in a document. Is there any way to get an editable list of all the fonts supposedly being used in a document so that I can just delete the problematic ones?
Thanks!
Deejay

Answer 1

Here is the final one.
--\[SCRIPT fontLister]
Run the script.
It will ask you to select a document
(CAUTION, at this time it doesn't test if it is a Pages one)
It extract from the Index.xml file the list of used fonts
and saves this list in a text file named "FontList_tsiLtnoF.txt"
on the desktop
Yvan KOENIG (Vallauris, FRANCE)
19 septembre 2008
(* you may set it to "Pages" or "Numbers" *)
property theApp : "Numbers"
--=====
on run
set permitted to {"com.apple.iwork.numbers.numbers", "com.apple.iwork.pages.pages", "com.apple.iwork.keynote.key", "com.apple.iwork.numbers.template", "com.apple.iwork.pages.template", "com.apple.keynote.kth"}
if my quelOS() < " of type permitted
else
set unDoc to choose file with prompt "Choose an iWork’s document" (* no type specs *)
if type identifier of unDoc is not in permitted then
if my parleAnglais() then
error "“" & (unDoc as Unicode text) & "” is not an iWork’s document!"
else
error "«" & (unDoc as Unicode text) & "» n’est pas un document iWork !"
end if -- my parleAnglais()
end if -- type identifier …
end if -- my quelOS() …
my main(unDoc as text)
end run
--=====
on main(leChemin)
local nomIndex, leCheminIndex, flag, leTexte, listepolice, liste1, fontName
set nomIndex to "Index.xml"
set leCheminIndex to leChemin & nomIndex
tell application "Finder"
set flag to exists file (leCheminIndex)
if exists file (leCheminIndex & ".gz") then (*
the file (leCheminIndex & ".gz") exists *)
if flag then delete file (leCheminIndex)
do shell script "gunzip " & quoted form of POSIX path of (leCheminIndex & ".gz")
(* CAUTION: gunzip expands the archive AND delete it ! *)
else if not flag then (*
neither the file (leCheminIndex & ".gz") nor the file leCheminIndex exist *)
if my parleAnglais() then
error "The files “" & nomIndex & "” and “" & nomIndex & ".gz” are unavailable !"
else
error "Les fichiers «" & nomIndex & "» et «" & nomIndex & ".gz» n’existent pas !"
end if
end if -- flagGz
end tell -- Finder
set leTexte to ""
try
set leTexte to read file (leChemin & nomIndex)
end try
if leTexte is "" then
if my parleAnglais() then
error "Unable to read : “" & leCheminIndex & "” !"
else
error "Le fichier «" & leCheminIndex & "» est illisible !"
end if
end if
set listePolices to {}
set liste1 to my decoupe(leTexte, "<sf:fontName>")
repeat with i from 2 to count of liste1
set fontName to (item 1 of my decoupe(item i of liste1, "</sf:fontName>")) as text
set fontName to (item 2 of my decoupe(fontName, "sfa:string=" & quote)) as text
set fontName to (item 1 of my decoupe(fontName, quote)) as text
if fontName is not in listePolices then copy fontName to end of listePolices
end repeat
my ecritLeRapport(leChemin & return & return & my recolle(listePolices, return))
end main
--=====
on ecritLeRapport(rapport)
local nomDuRapport, p2d, r
set nomDuRapport to "FontList_tsiLtnoF.txt"
set p2d to path to desktop as text
set r to p2d & nomDuRapport
tell application "Finder"
if exists file r then delete file r
make new file at folder p2d with properties {name:nomDuRapport, file type:"TEXT"}
end tell -- Finder
write rapport to file r
tell application "Finder" to open file r
end ecritLeRapport
--=====
on decoupe(t, d)
local l
set AppleScript's text item delimiters to d
set l to (text items of t)
set AppleScript's text item delimiters to ""
return l
end decoupe
--=====
on recolle(l, d)
local t
set AppleScript's text item delimiters to d
set t to l as text
set AppleScript's text item delimiters to ""
return t
end recolle
--=====
on quelOS()
local hexData, hexString
set the hexData to system attribute "sysv"
set hexString to {}
repeat 4 times
set hexString to ((hexData mod 16) as string) & hexString
set hexData to hexData div 16
end repeat
return hexString as string
end quelOS
--=====
on parleAnglais()
local z
try
tell application theApp to set z to localized string "Cancel"
on error
set z to "Cancel"
end try
return (z is not "Annuler")
end parleAnglais
--=====
--[/SCRIPT]
Yvan KOENIG (from FRANCE jeudi 20 novembre 2008 14:08:12)