OpenOffice.info

Verfasst: **So, 02.04.2006 23:51**

Hallo!

ich will gern einen Serienbrief per Makro drucken lassen. Das hier hab ich von irgendwo abgeshcrieben:

	MyMerge = createUnoService("com.sun.star.text.MailMerge")
	MyMerge.DataSourceName="test-db"
	MyMerge.DocumentURL=ConvertToURL("/home/toonix/work/test.odt")
	MyMerge.CommandType=0
	MyMerge.Command="Adressen"
	MyMerge.OutputType=2
	MyMerge.OutputUrl=ConvertToURL("/home/toonix/work/")
	MyMerge.FileNameFromColumn=False
	MyMerge.Filenameprefix="test-out-"

	Dim MyProps As Object 
	MyMerge.execute (MyProps())

es gibt mir einen Fehler aus: cannot coerce argument type during corereflection call

danach googlen hat nichts gebracht. Was ist daran faul?

TooniX

Verfasst: **Mo, 03.04.2006 22:34**

Hallo TooniX,
unter viewtopic.php?t=207&highlight=mailmerge gibt es Code für Visual Basic.

Den Code habe ich für Delphi umgeschrieben und unter Delphi funktioniert er.

Also umschreiben für StarBasic.

Verfasst: **Di, 04.04.2006 20:24**

ja, das hab ich auch schon gefunden. Nur läuft auf meinem Betriebssystem nichts von MIcrosoft, also leider auch kein VB...
gibt es diesen verdammten Code nicht auch auf StarBasic? Ich bin mir sicher, es ist nur irgendeine dumme Syntaxt-Geschichte.

TooniX

Verfasst: **Mi, 05.04.2006 20:43**

so, hier die Auflösung : statt

Code: Alles auswählen

Dim MyProps As Object
MyMerge.execute (MyProps())

muß es am Ende einfach heißen:

Code: Alles auswählen

MyMerge.execute (Array())

hoffe, es hilft irgendwann mal jemandem weiter

TooniX