Applescript - Keynote - Alignment and item problem

Hello, I am trying to automate the creation of keynote slides.

The script will be creating between 500 to 800 slides. The only differences for each slide is the Performer name, the EventName and the Region of the performer.

To do so, Ive created two scripts. The first one is by performing changes of item found in the slides. This script has a problem when trying to change the region (item 4). It also have an alignment problem.

No matter the length of the text. I always want to have the text to be aligned left. It must also align vertically for Performer and EventName.

tell application "Keynote"
	activate
	tell front document
		duplicate (slide 2)
		tell slide 3's text item 2
			set tt to its object text
			set tt to my replaceTxt(tt, "Performer$$", "Manon Pouliot-des-Sensaris de Champlain")
			set its object text to tt
		end tell
		tell slide 3's text item 3
			set tt to its object text
			set tt to my replaceTxt(tt, "EventName$$", "Pre-novive woman")
			set its object text to tt
		end tell
		tell slide 3's text item 4
			set tt to its object text
			set tt to my replaceTxt(tt, "REG$$", "ON")
			set its object text to tt
		end tell
	end tell
end tell


to replaceTxt(tt, f, r)
	set AppleScript's text item delimiters to f
	set tt to tt's text items
	set AppleScript's text item delimiters to r
	set tt to tt's text items as text
	set AppleScript's text item delimiters to ""
	return tt
end replaceTxt

Having problem with item 4 when changing REG$$. Ive decided to go another way. I.e creating new text item. This works well but I am having difficulties with the alignment again.

set Performer to "Manon Pouliot"
set EventName to "Intermediate dame"

tell application "Keynote"
	activate
	tell front document
		duplicate (slide 2)
		tell current slide
			set thisTextItem to ¬
				make new text item with properties ¬
					{height:648, width:240, position:{195, 650}}
			set object text of thisTextItem to Performer
			tell object text of thisTextItem
				set properties to ¬
					{font:"Helvetica Light", size:30, color:{10000, 10000, 10000}}
			end tell
			set thisTextItem to ¬
				make new text item with properties ¬
					{height:648, width:240, position:{175, 670}}
			set object text of thisTextItem to EventName
			tell object text of thisTextItem
				set properties to ¬
					{font:"Helvetica Light", size:20, color:{10000, 10000, 10000}}
			end tell
		end tell
	end tell
end tell

I would like to attach the keynote slide Ive created but there does not seem to have a way to add an attachment.

Is there way with AppleScript and Keynote to have text to align properly not matter what the length of the text is.

Thanks again!

Daniel

Ive solved my problem by making changes on my keynote slides. Ive decided to concatenate Peformer and Region together. This solved item 4 problem.

For the text, in the keynote slide Ive stretched the Performer and EventName very large. BY default the alignment is center which then makes it to be OK.

tell application "Keynote"
				--activate
				tell front document
					if iOrdrePassage = "Warm-up" then
						duplicate (slide 1)
						tell text item 2 of current slide
							set tt to its object text
							set tt to my replaceTxt(tt, "EventName$$", "WARM-UP " & iEventName)
							set its object text to tt
						end tell
					else
						duplicate (slide 2)
						tell text item 2 of current slide
							set tt to its object text
							set tt to my replaceTxt(tt, "Performer$$", iPerformer & ", " & iRegion)
							set its object text to tt
						end tell
						tell text item 3 of current slide
							set tt to its object text
							set tt to my replaceTxt(tt, "EventName$$", iEventName)
							set its object text to tt
						end tell
					end if
				end tell
			end tell