Word: Kommentare exportieren

Pages 09′ unterstützt deutlich mehr AppleScript-Kommandos als die vorherige Version, dabei wurde aber anscheinend eine Möglichkeit vergessen, auf die Kommentare eines Pages-Dokuments zuzugreifen. Man kann die Kommentare zwar via GUI-Scripting auslesen (was ganz schön aufwendig und fehleranfällig ist) oder sich eines Workarounds (wie so oft in AppleScript) bedienen.
Man exportiert das Pages-Dokument als Word-Datei und nutzt das natürlich ebenfalls installierte Microsoft Word:

–15.03.2011 hubionmac.com

–Exports comments to a tab delimited table.

tell application “Microsoft Word”

tell document 1

set myoutput to “Comments of \”” & (name) & “\”” & return & return & “# comment text commented text” & return

repeat with i from 1 to count of every Word comment

–replacing newline characters

set comment_text to content of comment text of Word comment i

set commented_text to content of scope of Word comment i

set myoutput to myoutput & i & “.” & tab & my replace_chars(comment_text & tab & commented_text as text, return, “”) & return

end repeat

end tell

end tell

set the clipboard to myoutput as text

display dialog “List of comment copied to clipboard (ready for Excel or Numbers)” giving up after 2

–insert into textedit for testing

tell application “TextEdit”

set a to make new document

set text of a to myoutput

end tell

on replace_chars(this_text, search_string, replacement_string)

if this_text contains the search_string then

set AppleScript‘s text item delimiters to the search_string

set the item_list to every text item of this_text

set AppleScript‘s text item delimiters to the replacement_string

set this_text to the item_list as string

set AppleScript‘s text item delimiters to “”

end if

return this_text

end replace_chars