Moin,
Folgendes "Setup":
Ich habe eine Datenbank die eine Ansicht enthält.
In dieser Ansicht sind Dokumente.
Soweit nichts Aussergewöhnliches
Im Postopen der Dokumente wird folgendes Script ausgeführt:
Code
Sub Postopen(Source As Notesuidocument) If source.isnewdoc Then Exit Sub Dim ws As New notesuiworkspace Dim Maske As String Maske = source.fieldgettext("Dokument") source.editmode=True Call ws.Dialogbox(Maske, True,True,True, False,False,False, "Neues Dokument: "+source.fieldgettext("Titel"),source.document , True, True) End Sub
Im geöffneten Dialog werden einige Daten abgefragt. Aus diesen wird beim Click auf eine OK - Schaltfläche folgendes Script ausgeführt, das ein Worddokument mit den Daten füllt und anzeigt:
Code
Dim s As New notessession
Dim doc As notesdocument
Dim item As Variant
Dim ws As New notesuiworkspace
Dim ui As notesuidocument
Dim WordObjekt As Variant
Dim realObject As Variant
Set ui=ws.currentdocument
Set doc=ui.document
Dim Word As Variant
Dim Worddoc As Variant
Set Word=createObject("Word.Application")
Word.application.visible=True
Set Worddoc = Word.Application.Documents.add (ui.fieldgettext("Vorlage"))
With Worddoc
.Bookmarks("Nachname").Range.Text=ui.fieldgettext("Nachname")
.Bookmarks("Vorname").Range.Text=ui.fieldgettext("Vorname")
...
End With
Call ui.close
Alles anzeigen
Funktioniert bisher wunderbar. Ein kleiner Schönheitsfehler, der hoffentlich irgendwie behoben werden kann ist, das nach Schliessen des Dialogfelds der Fokus auf Notes stehen bleibt, ich würde aber gerne nach Schliessen des Dialogfelds direkt das Worddokument anzeigen lassen.
Geht das und wie?