InDesign CS3 script that changes fonts on open

Question

Hello.
I am trying to come up with a script that would change a specific group of fonts, that will always show up missing, to the new font. Basically, it is a bunch of our postscript fonts that are now using our open type font. Below is what I have so far. I want to create a list that goes through about 8 fonts that are old and replace them on the fly with the 8 new fonts. This would be great if I could have this happen on open.
Can anyone see what I have and offer some guidance?
thanks
babs
Open this Scriplet in your Editor:
tell application "Adobe InDesign CS3"
   set find text preferences to nothing
   set change text preferences to nothing
   tell application "Adobe InDesign CS3"
       set OLDfont to {"times", "arial"}
       set NEWfont to {"times new roman", "helvetica"}
       --set find what of find text preferences to testString
       tell document 1
           repeat with swap from 1 to 2
               set NEWfont to item swap of OLDfont
           end repeat
       end tell
   end tell
end tell

Answer 1

For starters, you're going to have to use the correct font names, including correct capitalization. The property you want to change is "applied font", not "find what". And it would probably be more sensible, to go through all paragraph and character styles and make the changes there first, otherwise you'll have troubles again every time you edit stuff.
So start off by getting the name of the font used in every paragraph style, and loop through your list to see if they should be changed. Do the same for character styles. And then do the find/change to find any that have been applied manually.