property NSFont : a reference to current application’s NSFont
property NSString : a reference to current application’s NSString
property NSDictionary : a reference to current application’s NSDictionary
property NSFontAttributeName : a reference to current application’s NSFontAttributeName

tell application "Pages"
　　tell front document
　　　　set tList to every text item
　　　　if tList = {} then return
　　　　
　　　　repeat with i in tList
　　　　　　set j to contents of i
　　　　　　
　　　　　　tell j
　　　　　　　　set tmpFontName to font of its object text
　　　　　　　　set tmpFontSize to size of its object text
　　　　　　　　set tmpText to (its object text as string) & "　"
　　　　　　　　
　　　　　　　　set aSize to getSizeFromAttributedText(tmpText, tmpFontName, tmpFontSize) of me
　　　　　　　　set aWidth to |width| of aSize
　　　　　　　　set bWidth to aWidth + 10
　　　　　　　　
　　　　　　　　set its width to bWidth
　　　　　　end tell
　　　　　　
　　　　end repeat
　　end tell
end tell

–指定のテキスト、フォント名、フォントサイズでAttributed Stringを組み立ててサイズを取得する
on getSizeFromAttributedText(aText as string, aFont as string, aFSize as real)
　　set aFont to NSFont’s fontWithName:aFont |size|:aFSize
　　set aStr to NSString’s stringWithString:aText
　　set aSize to aStr’s sizeWithAttributes:(NSDictionary’s dictionaryWithObjects:{aFont} forKeys:{NSFontAttributeName})
　　return aSize
end getSizeFromAttributedText