Seite 1 von 1

Textrahmen ohne Rahmen

Verfasst: Fr, 16.07.2010 22:24
von 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

Re: Textrahmen ohne Rahmen

Verfasst: Sa, 17.07.2010 15:42
von 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

Re: Textrahmen ohne Rahmen

Verfasst: So, 18.07.2010 11:03
von 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

Re: Textrahmen ohne Rahmen

Verfasst: So, 18.07.2010 13:15
von turtle47
Hallo,
Akkuschrauber hat geschrieben: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