How to change the fonts (permanently) for new (empty) documents in pages

Question

I am searching for a way to change the settings/preferences of Pages / Numbers and Co such, that the standard font is not Helvetic, but a font of my choice. I am used to this from the MS Office products in my job, but want to keep my Mac "clean" and "pure".
I know that I can create and save templates. But somehow I feel, it must be possible to just open an empty/blank document with the font of my choice.
Any idea?
Best regards
Diethard

Answer 1

--
--[SCRIPT setiWork_defaultfont]
Si vous choisissez "Pages" vous verrez:
/* ----- Font Names */
"FONT_Helvetica" = "Helvetica";
"FONT_Helvetica-Bold" = "Helvetica-Bold";
"FONT_Helvetica-Oblique" = "Helvetica-Oblique";
"FONT_LucidaGrande" = "LucidaGrande";
La police utilisée par défaut dans les textes, les notes et les tables est celle dont le descripteur est "FONT_Helvetica"
éditez la ligne correspondante comme suit:
"FONT_Helvetica" = "nomDeVotrePolice";
Par exemple, pour utiliser Palatino, remplacez nomDeVotrePolice par "Palatino-Roman"
Enregistrez le fichier ainsi modifié par (cmd + S)
Si vous choisissez "Numbers" vous verrez:
/* ----- Font Names */
"FONT_Helvetica" = "Helvetica";
"FONT_HelveticaNeue" = "HelveticaNeue";
"FONT_HelveticaNeue-Bold" = "HelveticaNeue-Bold";
"FONT_LucidaGrande" = "LucidaGrande";
"FONT_MarkerFelt-Thin" = "MarkerFelt-Thin";
La police utilisée par défaut dans les textes, les notes et les tables est celle dont le descripteur est "FONT_HelveticaNeue"
éditez la ligne correspondante comme suit:
"FONT_HelveticaNeue" = "nomDeVotrePolice";
Si vous choisissez "Keynote" vous verrez:
"STYLESeries2" = "Series_2";
"STYLE_None" = "Aucun";
"STYLESeries5" = "Series_5";
"STYLESeries3" = "Series_3";
"FONT_LucidaGrande" = "LucidaGrande";
"FONT_Helvetica" = "Helvetica";
"STYLE_Free Form" = "Format libre";
"STYLESeries1" = "Series_1";
"FONT_GillSans" = "GillSans";
"STYLE_Normal" = "Normal";
"STYLESeries0" = "Series_0";
"FONT_MarkerFelt-Thin" = "MarkerFelt-Thin";
"STYLESeries4" = "Series_4";
La police utilisée par défaut dans les textes, les notes et les tables est celle dont le descripteur est "FONT_GillSans"
éditez la ligne correspondante comme suit:
"FONT_GillSans" = "nomDeVotrePolice";
Une liste de 564 noms de polices est disponible sur mon iDisk:
<http://idisk.me.com/koenigyvan-Public?view=web>
Téléchargez:
ForiWork:despolices.numbers.zip
If you choose "Pages" you will see:
/* ----- Font Names */
"FONT_Helvetica" = "Helvetica";
"FONT_Helvetica-Bold" = "Helvetica-Bold";
"FONT_Helvetica-Oblique" = "Helvetica-Oblique";
"FONT_LucidaGrande" = "LucidaGrande";
The font used as default for tables is the one whose descriptor is "FONT_Helvetica"
edit the line as:
"FONT_Helvetica" = "yourFontName";
For instance, to use Palatino, replace "yourFontName" by "Palatino-Roman"
Save the file (cmd + S)
If you choose "Numbers" you will see:
/* ----- Font Names */
"FONT_Helvetica" = "Helvetica";
"FONT_HelveticaNeue" = "HelveticaNeue";
"FONT_HelveticaNeue-Bold" = "HelveticaNeue-Bold";
"FONT_LucidaGrande" = "LucidaGrande";
"FONT_MarkerFelt-Thin" = "MarkerFelt-Thin";
The font used as default for tables is the one whose descriptor is "FONT_HelveticaNeue"
edit the line as:
"FONT_HelveticaNeue" = "yourFontName";
If you choose "Keynote" you will see:
"STYLESeries2" = "Series_2";
"STYLE_None" = "Aucun";
"STYLESeries5" = "Series_5";
"STYLESeries3" = "Series_3";
"FONT_LucidaGrande" = "LucidaGrande";
"FONT_Helvetica" = "Helvetica";
"STYLE_Free Form" = "Format libre";
"STYLESeries1" = "Series_1";
"FONT_GillSans" = "GillSans";
"STYLE_Normal" = "Normal";
"STYLESeries0" = "Series_0";
"FONT_MarkerFelt-Thin" = "MarkerFelt-Thin";
"STYLESeries4" = "Series_4";
The font used as default for tables is the one whose descriptor is "FONT_GillSans"
edit the line as:
"FONT_GillSans" = "yourFontName";
A list of 564 names is available on my iDisk:
<http://idisk.me.com/koenigyvan-Public?view=web>
Download:
ForiWork:despolices.numbers.zip
Yvan KOENIG (Vallauris, FRANCE)
5 mars 2009
on run
if my parleFrancais() then
set prompt1 to "Choisir l'application"
set prompt2 to "Choisir un modèle"
set prompt3 to "Choisir une localisation"
else
set prompt1 to "Choose the application"
set prompt2 to "Choose a template"
set prompt3 to "Choose a localization"
end if
choose the application *)
set theApp to choose from list {"Pages", "Numbers", "Keynote"} with prompt prompt1
if theApp is false then error -128
set theApp to item 1 of theApp
define some parameters *)
if theApp is "Pages" then
set permitted to {"com.apple.iWork.Pages.template", "com.apple.iWork.Pages.sfftemplate"}
set sub to "Templates"
set theStrings to "Localizable.strings"
else if theApp is "Numbers" then
set permitted to {"com.apple.iWork.Numbers.template", "com.apple.iWork.Numbers.sfftemplate"}
set sub to "Templates"
set theStrings to "Localizable.strings"
else (* it is "Keynote" *)
set permitted to {"com.apple.iWork.Keynote.kth", "com.apple.iWork.Keynote.sffkth"}
set sub to "Themes"
set theStrings to "fontsAndText.strings"
end if
choose the template *)
set p2f to (path to applications folder as text) & "iWork '09:" & theApp & ".app:Contents:Resources:" & sub
if 5 > (system attribute "sys2") then (*
it's Mac OS X 10.4.11 *)
set allowed to permitted
else (*
it's Mac OS X 10.5.6 with a bug with Choose File *)
set allowed to {}
end if
set p2f to (choose file with prompt prompt2 default location (p2f as alias) of type allowed) as text
choose the localization folder *)
set p2f to p2f & "Contents:Resources"
set p2f to (choose folder default location (p2f as alias) with prompt3) as text
open the localizable.strings file *)
tell application "Finder"
set nb to count of (files of folder p2f whose name starts with "localizable")
if nb = 1 then duplicate file theStrings of folder p2f (* as there is no backup, duplicate "localizable.strings" for safe *)
open file theStrings of folder p2f
end tell -- Finder
end run
--=====
on parleFrancais() (* Check if Pages is running in French *)
local z
try
tell application "Pages" to set z to localized string "Cancel"
on error
set z to "Cancel"
end try
return (z = "Annuler")
end parleFrancais
--=====
--[/SCRIPT]
Yvan KOENIG (VALLAURIS, France.) mardi 11 août 2009 11:29:14