I came across an applescript called Harvard-ize in a ‘usefulscripts’ folder on the net. I think it is fairly old. Anyway, it doesn’t seem to work with Omnioutliner Pro 5. Is anyone familiar with this script, and if so, have you modified it to work with the latest version?
Here it is, in case anyone wants to take it on.
Thanks,
Greg
tell front document of application “OmniOutliner”
tell level style 1
set value of attribute “heading-type(com.omnigroup.OmniOutliner)” to “Roman”
set value of attribute “heading-suffix(com.omnigroup.OmniOutliner)” to “.”
end tell
tell level style 2
set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Letters"
set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to "."
end tell
tell level style 3
set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Numeric"
set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to "."
end tell
tell level style 4
set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Letters"
set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell
tell level style 5
set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Numeric"
set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to "("
set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
end tell
tell level style 6
set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Roman"
set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to ""
set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell
tell level style 7
set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Letters"
set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to "("
set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell
tell level style 8
set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Roman"
set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to ""
set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell
tell level style 9
set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Letters"
set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to "("
set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
end tell
tell level style 10
set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Roman"
set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to ""
set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell
tell level style 11
set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Numeric"
set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to "("
set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
end tell
tell level style 12
set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Letters"
set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to "("
set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell
tell level style 13
set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Roman"
set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to ""
set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell
tell level style 14
set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Numeric"
set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to "("
set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
end tell
end tell