[Andrew N]

I have an 80 page document which was opened on another machine without the original font installed and consequently I have to change the font back throughout the document.

How do I do this?

Thinking about applescript... but my applescript skills aren't good enough.

I can't work out how to "select all" on the page and change the font. This is where I got to, but can't work out anything else.

tell application "OmniGraffle Professional 5"
set theDocument to front document
set canvasCount to count of canvases of theDocument

repeat with canvasNumber from 1 to canvasCount
set canvas of front window to canvas canvasNumber of theDocument
select all
set font to "bentonsansf"
end repeat
end tell

Thanks in advance!

Andrew

[Andrew N]

-Bump?-

[Brian]

Andrew, I'd send in an email about this, as well. (See my response in your other thread.)

[Wim Lewis]

Just dashing off a quick reply here, but you should be able to do something along the lines of

tell application "OmniGraffle Professional 5"
  tell document "Some Document"
    repeat with ACanvas in every canvas
      repeat with AGraphic in every solid of ACanvas
        if (the text of AGraphic ≠ "") then
          set the font of the text of AGraphic to "Benton Sans"
        end if
      end repeat
    end repeat
  end tell
end tell

You could add other conditions to the "if" statement, if there are other graphics you don't want to modify.

[Andrew N]

Ooops just saw your reply. Thanks for the script. I'll give it a go!