Can I get Pages to automatically use the first words of my new document as the title of it, the way Word does?

Question

This s a very handy feature of Word that I would like to use also in Pages.

Answer 1

Run this huge script :
--{code}
property title_len : 32
tell application "Pages"
          tell document 1
                    set newName to (characters 1 thru title_len of body text) as text
          end tell
          set name of document 1 to (newName & ".pages")
end tell
--{code}
Yvan KOENIG (VALLAURIS, France) samedi 13 août 2011 19:56:19
iMac 21”5, i7, 2.8 GHz, 4 Gbytes, 1 Tbytes, mac OS X 10.6.8 and 10.7.0
My iDisk is : <http://public.me.com/koenigyvan>
Please : Search for questions similar to your own before submitting them to the community
To be the AW6 successor, iWork MUST integrate a TRUE DB, not a list organizer !