Change Rich Text Font

Summary: Changes the font and size for the selected records.
Requires: EagleFiler
Install Location: ~/Library/Scripts/Applications/EagleFiler/
Last Modified: 2011-09-23


EagleFiler has a preference where you can set the font for new rich text documents. This script lets you change the font of existing documents. Styles such as bold and italic that depend on the font may not be preserved, although there are ways to modify the script to do this (that depend somewhat on the chosen font).

Installation Instructions · Download in Compiled Format · Download in Text Format


on run
tell application "EagleFiler"
set _records to selected records of browser window 1
repeat with _record in _records
set _filename to _record's filename
if _filename ends with ".rtf" or _filename ends with ".rtfd" then
my changeFont(_record)
end if
end repeat
end tell
end run

on changeFont(_record)
tell application "EagleFiler"
set _file to _record's file
end tell
tell application "TextEdit"
open _file
set font of text of front document to "Helvetica"
set size of text of front document to 13
save front document
close front document
end tell
tell application "EagleFiler"
tell _record to update checksum
end tell
end changeFont