To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=63211
------- Additional comments from [EMAIL PROTECTED] Tue Apr 18 05:37:31 -0700
2006 -------
Here is the Basic macro for the Java Code:
=================
Sub Main
oDoc = thiscomponent
documentFactory = oDoc
writerShape = documentFactory.createInstance( "com.sun.star.text.TextFrame" )
xTextContentShape = writerShape
xTextContentPropertySet = xTextContentShape
xTextContentPropertySet.setPropertyValue( "FrameWidthAbsolute", 5000 )
xTextContentPropertySet.setPropertyValue( "AnchorType",
com.sun.star.text.TextContentAnchorType.AT_PAGE )
xTextContentPropertySet.setPropertyValue( "TextWrap",
com.sun.star.text.WrapTextMode.NONE )
xTextContentPropertySet.setPropertyValue( "FrameIsAutomaticHeight", true )
xShapeProps = writerShape
xShapeProps.setPropertyValue( "VertOrient",
com.sun.star.text.VertOrientation.NONE )
xShapeProps.setPropertyValue( "HoriOrient",
com.sun.star.text.HoriOrientation.NONE )
xShapeProps.setPropertyValue( "HoriOrientPosition", 500 )
xShapeProps.setPropertyValue( "VertOrientPosition", 500 )
xShapeText = writerShape
mxDocText = oDoc.getText()
mxDocText.insertTextContent( mxDocText.createTextCursor(),
xTextContentShape,false )
xShapeText.setString( "SOME RANDOM TEXT SOME RANDOM TEXT SOME RANDOM TEXT SOME
RANDOM TEXT SOME RANDOM TEXT SOME RANDOM TEXT SOME RANDOM TEXT SOME RANDOM TEXT
SOME RANDOM TEXT SOME RANDOM TEXT SOME RANDOM TEXT SOME RANDOM TEXT" )
'xTextContentPropertySet.setPropertyValue("FrameHeightAbsolute", 15000 )
result = xTextContentPropertySet.getPropertyValue("FrameHeightAbsolute" )
msgbox "heightInteger " + result
End Sub
=================
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
