Linien eines Textrahmens formatieren

[turtle47]

Hi Chrissie,

wie ist es damit:

Code: Alles auswählen

Sub Leer
Dim odocument As Object
Dim oText As Object
Dim oCursor As Object
Dim oFrame As Object
Dim oFrameCursor As Object
Dim aBorder As New com.sun.star.table.BorderLine 
odocument = thiscomponent
oText = oDocument.Text
oCursor = oText.createTextCursor()
oFrame = oDocument.createInstance("com.sun.star.text.TextFrame")
oFrame.width = 9580
oFrame.height = 4900
oFrame.HoriOrientPosition = -1900
oFrame.VertOrientPosition = -1000
aBorder.OuterLineWidth  = 80
'aBorder.Color  = rgb(255,0,0)
oFrame.LeftBorder = aBorder
oFrame.RightBorder = aBorder
oFrame.TopBorder = aBorder
oFrame.BottomBorder = aBorder
oFrame.setname("Empfänger")
oFrame.HoriOrient = com.sun.star.text.HoriOrientation.NONE
oFrame.VertOrient = com.sun.star.text.VertOrientation.NONE
oText.insertTextContent(oCursor, oFrame, FALSE)
oFrame.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE
oFrameCursor = oFrame.createTextCursor()
oFrameCursor.string = "Super FC Schalke" + CHR(13)+CHR(13)+CHR(13)+CHR(13)+CHR(13)+ "S-0-4"
End Sub

?

Jürgen