Tabellen Rahmen in Bericht

[chris786]

Hallo
Per Makro erstelle ich einen Bericht der die entsprechenden Daten aus
der Datenbank ausließt. Das funktioniert so weit auch ganz gut.
Allerdings will ich die Tabelle des Berichts noch ein wenig formatieren.

Code: Alles auswählen

Dim Arg()
sURL = "private:factory/swriter"
oDok2 = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, Arg())
	oTxtRange = oDok2.text.getEnd()
	oTab = oDok2.createInstance("com.sun.star.text.TextTable")
	With oTab
		.HoriOrient = 0 
		.Name = "Bericht"
		.initialize(9,2)
	end with	
oTxtRange.getText().insertTextContent(oTxtRange, oTab, false)

	Dim aTabHead(0 to 8,0 to 1)
	aTabHead(0,0) 
	...
	aTabHead(8,0) 
	oTab.setDataArray(aTabHead())
	
	
dim oLinie as new com.sun.star.table.BorderLine
with oLinie
   .Color = rgb(41, 191, 20)  'grün
   .outerLineWidth =50
end with
dim oRahmen as new com.sun.star.table.TableBorder
with oRahmen
   .TopLine = oLinie
   .BottonLine = oLinie
end with
table.TableBorder = oRahmen 

	oTxtRange.getText().insertTextContent(oTxtRange, oTab, false)

Wenn ich das Makro Ausführe bekomme ich immer nur die Fehlermeldung:
Basic Laufzeitfehler
Eigenschaft oder Methode nicht gefunden
und der makiert mir die Spale:
.BottonLine

Hat jemand eine Idee

[Stephan]

ich habe jetzt Deinen Code nicht weiter angeschaut, aber auf die Schnelle sollte:

.BottomLine

statt

.BottonLine

funktionieren.



Gruß
Stephan