Script Wrap and fit text

If Document.Owner.Owner.SystemTypeName = "Device" Then

If Not Document.spec("Y00T02691.Y00A09109") Is Nothing Then

Text = Document.spec("Y00T02691.Y00A09109").Description & " : " & Document.spec("Y00T02691.Y00A09109").DisplayValue

End If

End If

 I want to wrap and fit text using script as the display mode you can only use one or the other and I need both!

a work colleague sent me this

Set RQ = CreateObject ("ComosRprtQuery.RprtQuery")
RQ.FitAllTexts = TRUE
RQ.WrapAllTexts = TRUE

 but that will only work for a report Query and not my way... is there any other way