AtNotes Übersicht Willkommen Gast. Bitte einloggen oder registrieren.
01.04.20 - 16:37:54
Übersicht Hilfe Regeln Glossar Suche Einloggen Registrieren
News:
Schnellsuche:
+  Das Notes Forum
|-+  Lotus Notes / Domino Sonstiges
| |-+  OLE/COM-Programmierung
| | |-+  MS Office 97 Anbindung [gelöst]
« vorheriges nächstes »
Seiten: [1] Nach unten Drucken
Autor Thema: MS Office 97 Anbindung [gelöst]  (Gelesen 3293 mal)
LordKiri
Aktives Mitglied
***
Offline Offline

Beiträge: 231


aka Andreas


« am: 19.08.08 - 11:20:14 »

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 Wink

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
« Letzte Änderung: 19.08.08 - 14:20:05 von LordKiri » Gespeichert
LordKiri
Aktives Mitglied
***
Offline Offline

Beiträge: 231


aka Andreas


« Antworten #1 am: 19.08.08 - 14:21:30 »

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
Gespeichert
Seiten: [1] Nach oben Drucken 
« vorheriges nächstes »
Gehe zu:  


Einloggen mit Benutzername, Passwort und Sitzungslänge

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006, Simple Machines Prüfe XHTML 1.0 Prüfe CSS
Impressum Atnotes.de - Powered by Syslords Solutions - Datenschutz | Partner: