Textrahmen ohne Rahmen

[Akkuschrauber]

Hört sich vielleicht nen bischen merkwürdig an, ist aber genau das Problem das ich habe.

Ich habe ein Makro mit Star Basic geschrieben, welches Daten aus einer Datenbank ausliest und in eine Vorlage einfügt.
Jetzt habe ich allerdings das Problem das der Textrahmen in den ich den Text einfüge standardmäßig einen 0,05pt breiten, schwarzen Rahmen hat,
was ich aber nicht will.
Im Programmierhandbuch habe ich nichts dazu gefunden wie ich den wegbekomme, deshalb frage ich hiermit euch um Hilfe.

Greetz
Akkuschrauber

[DPunch]

Aloha

Das hört sich an, als würdest Du den Textrahmen auch per Makro ins Dokument einfügen - in diesem Fall kannst Du mal folgenden Codeausschnitt probieren:

Code: Alles auswählen

oTextFrame = oDoc.createInstance("com.sun.star.text.TextFrame")
oBorder = oTextFrame.BottomBorder
With oBorder
	.Color = 0
	.InnerLineWidth = 0
	.OuterLineWidth = 0
	.LineDistance = 0
End With
With oTextFrame
	.BottomBorder = oBorder
	.TopBorder = oBorder
	.RightBorder = oBorder
	.LeftBorder = oBorder
End With

[Akkuschrauber]

Ok, das Problem hab ich jetzt gelöst.
Allerdings folgt das Nächste auch gleich

Wie kann ich den Text, den ich in den Textrahmen einfüge formatieren, also Schriftart ändern, Fett, Schriftgröße?

Danke für die Hilfe.

Akkuschrauber

[turtle47]

Hallo,

Wie kann ich den Text, den ich in den Textrahmen einfüge formatieren, also Schriftart ändern, Fett, Schriftgröße?

Code: Alles auswählen

	oFrames=odocument.getTextFrames()
	oFrame=oFrames.getByIndex(0)
	oFrameCursor=oFrame.createTextCursor() 
	oFrameCursor.gotoEnd(true)
	oFrameCursor.CharHeight="20"
	oFrameCursor.charcolor=&H000000
	oFrameCursor.CharUnderline=com.sun.star.awt.FontUnderline.SINGLE
	oFrameCursor.CharWeight=com.sun.star.awt.FontWeight.BOLD
	oFrameCursor.CharPosture=com.sun.star.awt.FontSlant.ITALIC

Viel Erfolg.

Jürgen