Illustrator CS2 and changing text frame widths

[marketforceit]

Does any one know how to change the width or height of a Text Frame in Illustrator without scaling the text within it.

I have a very long applescript that converts legacy files from as far back as Freehand 3 files into Illustrator CS2 format. However as a result of the relatively recent change in how the font engine used in CS apps work old files tend to convert with a lot of text overflow symbols. I am trying to loop through every text frame in the document and increase its width by 2 and increase its height by 6. The idea being that the frame would then be big enough to house its contents without the overflow.

Unfortunately all my script is doing is scaling the text frame to the new dimensions - making the font larger.

Is it a simple thing I am missing or is it not possible?

Toby

property increaseTextBoxBy : 2

–----------------------------------------------------------------------------------------------------------------------
– AICS2 Fix text overflow issues Code
–----------------------------------------------------------------------------------------------------------------------
on enlargeTextBox(aTextPathItem, theDoc)
tell application “Adobe Illustrator”
set theRowCount to (row count of aTextPathItem) as integer
set theColumnCount to (column count of aTextPathItem) as integer
set theCellCount to (theRowCount * theColumnCount) as integer
if theCellCount = 1 then
set theSelPath to aTextPathItem
set curWidth to width of theSelPath
set curHeight to height of theSelPath
set width of theSelPath to (curWidth + increaseTextBoxBy)
set height of theSelPath to (curHeight + (increaseTextBoxBy * 3))
set thePos to position of theSelPath
set xPos to item 1 of thePos
set yPos to item 2 of thePos
set position of theSelPath to {(xPos - (increaseTextBoxBy / 2)), yPos}

      [b][color=blue]else[/color][/b]
           [b][color=blue]set[/color][/b] [b][color=blue]end[/color][/b] [b][color=blue]of[/color][/b] [color=green]emptyTextBoxItems[/color] [b][color=blue]to[/color][/b] [color=green]aTextPathItem[/color]
      [b][color=blue]end[/color][/b] [b][color=blue]if[/color][/b]
 [b][color=blue]end[/color][/b] [b][color=blue]tell[/color][/b]

end enlargeTextBox