ちょうど同じようなことをやってました。
QXをIDで開く→フォント変換その他→ID保存とPDF書き出し
tell application "Adobe InDesign CS3"
activate
set a1 to {{"検索フォント名", "置換フォント名"}, {"検索フォント名", "置換フォント名"}}
repeat with a2 in a1
try
set properties of find text preferences to {find what:"", applied font:a2's item 1}
set properties of change text preferences to {change to:"", applied font:a2's item 2}
tell document 1 to change text
end try
end repeat
end tell
フォント名の取得は
tell document 1 of application "Adobe InDesign CS3" to name of fonts
[8481] 小泉 (2010/03/30 Tue 15:48) web