Change font name/size in text box

Question

I am trying to create a Pages document with text boxes and would like to use different fonts and sizes in each box. I've tried using
  make text box with properties {object text:receipt_date, vertical position:7, horizontal position:2.5, height:0.5, width:3, font name:"Courier", font size:24.0}
but it doesn't work.
Any help gratefully received.

Answer 1

I see two things; you should "make new text box" and font name and font size are properties of the text, not the text box.
The following worked for me:
set the_text to "Hello World!"
tell application "Pages"
          tell front document
                    set new_box to make new text box with properties {object text:the_text, vertical position:2, horizontal position:1, height:3, width:4}
                    set properties of object text of new_box to {font name:"Courier", font size:24.0}
          end tell
end tell
Edit: The "set new_box to" part isn't needed unless you want to refer to the box again in the script.