I looked at the hack.
It is a simple neat one.
The late update replaced the old plist by a new one but it's easy to re-apply the hack.
You may also apply it to Pages '08.
In Pages '08 you must edit the CFBundleDocumentTypes #6
In Pages '09 you must edit the CFBundleDocumentTypes #9
It's easy to apply the hack. Run the script
property applyToPages09 : true
(* true = apply to Pages '09
false = apply to Pages '08 *)
on run
if applyToPages09 then
(* for Pages '09 *)
set pagesNum to 9
set typeString to "Microsoft Word 97 - 2004 document"
else
(* for Pages '08 *)
set pagesNum to 8
set typeString to "SLDocumentTypeMSWord"
end if
set thePlist to (path to applications folder as text) & "iWork '0" & pagesNum & ":Pages.app:Contents:Info.plist"
tell application "System Events"
set InfoRecord to (get value of property list file thePlist)
end tell
set CFBundleDocumentTypes to get |CFBundleDocumentTypes| of InfoRecord
repeat with i from 1 to count of CFBundleDocumentTypes
if |CFBundleTypeName| of item i of CFBundleDocumentTypes is typeString then
set |CFBundleTypeRole| of item i of CFBundleDocumentTypes to "Editor"
exit repeat
end if
end repeat
set |CFBundleDocumentTypes| of InfoRecord to CFBundleDocumentTypes
tell application "System Events"
set value of property list file thePlist to InfoRecord
end tell
end run
Yvan KOENIG (from FRANCE jeudi 16 avril 2009 21:25:55)