Will aus einer Anwendung direkt MS Word aufrufen und Adressen bzw. Felder übernehmen. Natürlich kann man das auch mit der Object Link Methode machen, dieses ist mir aber zu statisch. Hat jemand eine Lösung - oder zuindest einen Ansatz. Weil Ziel soll sein, dass ich eine Auswahl (z.B. über Dialog) unterschiedliche Word Dot oder Doc aufrufen möchte.
Hallo,
hab damit mal rum gespielt. Das folgende Script in eine Maskenschaltfläche einbauen. Fragt ein Feld „Test“ ab und schreibt den Text aus diesem Feld in ein neues Worddokument.
Das Öffnen von vorhanden Worddokumenten funktioniert vergleichbar.
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument
Set uidoc = ws.currentdocument
Set doc = uidoc.document
Dim s As New notessession
Dim db As notesdatabase
Dim owordobj As Variant, oword As Variant
Dim suser As String, stext As String, sfilename As String
suser = s.commonusername
Set db = s.currentdatabase
sfilename = db.filename
Set owordobj = createobject(„Word.Application.8“)
owordobj.visible = True
Call owordobj.documents.add
Call owordobj.activate
stext = "Hi, " & suser & „!“ & Chr(10) & Chr(10) & doc.test(0)
Call owordobj.selection.typetext(stext)
Call owordobj.selection.wholestory
owordobj.selection.font.size = 20
owordobj.selection.font.colorindex = wdblue
owordobj.selection.movedown
Call owordobj.ActiveDocument.SaveAs(„d:\test.doc“)
Call owordobj.quit
Ich hoffe ich konnte helfen.
Grüße.