OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

More Than Just Text 115
Frame.LeftMargin = 0
Frame.RightMargin = 0
Frame.BorderDistance = 0
Frame.HoriOrient = com.sun.star.text.HoriOrientation.NONE
Frame.VertOrient = com.sun.star.text.VertOrientation.LINE_TOP
Doc.Text.insertTextContent(Cursor, Frame, False)
The example creates a TextCursor as the insertion mark for the text frame. This is
positioned between the first and second word of the text. The text frame is created using
Doc.createInstance. The properties of the text frame objects are set to the starting values
required.
The interaction between the AnchorType (from the TextContent Service) and VertOrient
(from the BaseFrameProperties Service) properties should be noted here. AnchorType
receives the AS_CHARACTER value. The text frame is therefore inserted directly in the text
flow and behaves like a character. It can, for example, be moved into the next line if a line
break occurs. The LINE_TOP value of the VertOrient property ensures that the upper edge
of the text frame is at the same height as the upper edge of the character.
Once initialization is complete, the text frame is finally inserted in the text document using
a call from insertTextContent.
To edit the content of a text frame, the user uses the TextCursor, which has already been
mentioned numerous times and is also available for text frames.
Dim Doc As Object
Dim TextTables As Object
Dim Cursor As Object
Dim Frame As Object
Dim FrameCursor As Object
Doc = StarDesktop.CurrentComponent
Cursor = Doc.Text.createTextCursor()
Frame = Doc.createInstance("com.sun.star.text.TextFrame")
Frame.Width = 3000
Frame.Height = 1000
Doc.Text.insertTextContent(Cursor, Frame, False)
FrameCursor = Frame.createTextCursor()
FrameCursor.charWeight = com.sun.star.awt.FontWeight.BOLD
FrameCursor.paraAdjust = com.sun.star.style.ParagraphAdjust.CENTER
FrameCursor.String = "This is a small Test!"