Hallo,
nachdem das sehr schwierige Thema "OpenOffice Anbindung" abgeschlossen ist gibts jetzt ein neues Problem....
Da wir OpenOffice erst im Dezember einführen, Notes aber schon mitte September muss ich jetzt MS Office 97 integrieren, blöderweise habe ich von VBA kein blassen schimmer, aber ich hab den kompletten fertigen LotusScrip-Code für OOo jetzt müsst ich den Code in einen MS Office tauglichen umwandeln und benötig deswegen ein wenig Hilfe von den Experten ;)
hier der Teil von meinem derzeitigen Code der umgewandelt werden muss:
'öffnet OOo
Dim SM As Variant
Dim Desktop As Variant
Set SM=CreateObject("com.sun.star.ServiceManager")
Set Desktop=SM.createInstance("com.sun.star.frame.Desktop")
'setzt die Makrosicherheit ganz runter
Dim args As Variant
Set args= SM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
args.Name = "MacroExecutionMode"
args.Value = 4
Dim argsReal(0) As Variant
Set argsReal(0) = args
'öffnet die leere OOo-Vorlage
Dim objDocument As Variant
Set objDocument=Desktop.loadComponentFromURL("file:///c:/BriefVorlage01.ott","_blank",0,argsReal)
Ein wenig habe ich schon rumprobiert aber so richtig hat das nicht funktioniert
Dim wd
Dim wddoc
Set wd=CreateObject("Word.Application")
Set wddoc=wd.Documents.add ("c:\Brief.dot", false)
Set wddoc = wd.activedocument
wd.Visible=True
Call wddoc.Bookmarks("Adresse").Select
Call wddoc.insert (Konda)
das mit dem Insert geht gar nicht bringt er eine Fehlermeldung, dafür bräuchte ich jetzt noch eine Lösung
Habs durch langes googeln und probieren hinbekommen.... hier noch der fertige Code:
Öffnet Word
Dim wd
Dim wddoc
Dim rng
Dim rng2
Set wd=CreateObject("Word.Application")
'Öffnet ein neues Dokument basierend auf der Brief.dot
Set wddoc=wd.Documents.add ("C:\Brief.dot", False)
Set wddoc = wd.activedocument
wd.Visible=True
'schreibt die Kontaktdaten an die Textmarke "Adresse"
Set rng = wddoc.Bookmarks("Adresse").Range
rng.Text = Konda
'schreibt die Kontaktdaten an die Textmarke "Anrede"
Set rng2 = wddoc.Bookmarks("Anrede").Range
rng2.Text = briefanr