Getting Page count with AppleScript

Question

Hi Everyone,
It been a long time since I visited so I hope everyone is well.
Does anyone know how to get the page count of a document with Applescript. The best I've done is to divide the total number of words by the average amount of words on a page. This isn't perfect but it give me something close. I'm using the following snippets to get the info, which is being used to popular real time statitics about the progress of book four on my website.
set WordCount to word count
set ParagraphCount to paragraph count
set PageCount to round (WordCount / 184)
set CharacterCount to character count
Paragraph count doesn't seem to come too close either. I think it just adds up the number of carridge returns in the document.
Cheers
Chris
http://www.thomasstrange.com

Answer 1

<pre>tell application "Pages"
tell document 1
page count
end tell
end tell</pre>
For me, the result matches the actual number of pages.
As for paragraph count, I assume you want to skip empty paragraphs.
The obvious "length of paragraph 1" doesn't seem to work, so here's a less than optimal solution:
<pre>tell application "Pages"
tell document 1
tell body text
set paragraphCount to 0
repeat with aParagraph in every paragraph
if length of (contents of aParagraph as text) > 1 then
set paragraphCount to paragraphCount + 1
end if
end repeat
end tell
end tell
end tell
paragraphCount</pre>
Titanium PowerBook   Mac OS X (10.4.10)