Einen Textrahmen fügt man mit insertTextContent ein. Dazu muß erst eine neue Instanz
eines
Textrahmens erzeugt werden. Diesem müssen dann die nötigen Parameter übergeben werden.
Dazu gehören vor allem die Größe (width und height mit dem Struct com.sun.star.awt.Size),
Position (HoriOrientPosition und VertiOrientPosition) und der Verankerungstyp (
com.sun.star.text.TextContentAnchorType.AT_PAGE, AT_PARAGRAPH ,AS_CHARACTER
,AT_PAGE, AT_FRAME,AT_CHARACTER). Alle weiteren Parameter können natürlich auch
gesetzt werden.
oCursor = oText.createTextCursor()
oFrame = oDocument.createInstance("com.sun.star.text.TextFrame")
Dim aSize As New com.sun.star.awt.Size
aSize.width = 2000
aSize.height = 600
oFrame.Size = aSize
oFrame.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE
oFrame.sizetype=1
oframe.HoriOrientPosition =1000
oFrame.VertOrientPosition = 2000
oText.insertTextContent(oCursor, oFrame, FALSE)