Code: Alles auswählen
Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objStardesktop = objServiceManager.createinstance("com.sun.star.frame.Desktop")
Set MyMerge = CreateUnoService("com.sun.star.text.MailMerge")
MyMerge.DataSourceName = "Adressdaten"
MyMerge.DocumentURL = "file:///M:/xx.odt"
MyMerge.Commandtype = 0
MyMerge.Command = "Adressdaten"
MyMerge.outputtype = 2
MyMerge.OutputUrl = "file:///C:/Temp"
MyMerge.Filenameprefix="Flo"
Dim objFlo as Object
MyMerge.execute (objFlo )
end sub
Danke
Flo