tell application "Pages"
set fileName to the name of document 1
set numWords to the count of words of document 1
set numChars to the count of characters of document 1
set numGrafs to the count of paragraphs of document 1
display dialog fileName & " has " & return & ¬
" " & (numChars as text) & " characters" & return & ¬
" " & (numWords as text) & " words" & return & ¬
" " & (numGrafs as text) & " paragraphs"
end tell