MS Office 97 Anbindung [gelöst]

[LordKiri]

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:

Code

'ö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

Code

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

[LordKiri]

Habs durch langes googeln und probieren hinbekommen.... hier noch der fertige Code:

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