Hi
wollte aus meiner Adressmaske/Notes per Button Word öffnen und dort Einträger bestimmter Felder schreiben. Öffnen geht.Schreiben nicht
Sub Click(Source As Button)
'Umgebungsvariablen definieren und setzen
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = uiws.CurrentDocument
Set doc = uidoc.Document
'Word Variablen setzen
Dim wordApp As Variant 'Word Application object
Dim wordDoc As Variant 'Word Dokument object
Dim wordWindow As Variant 'Word Window object
'Variablen definieren
Dim nachname As String
Dim vorname As String
nachname = Cstr(doc.nachname(0))
vorname = Cstr(doc.firstname(0))
'Msgbox vorname+ " "+ nachname
'Word Object erstellem
Set wordApp = CreateObject( "Word.Application" )
'neues Dokument von angegebener Vorlage erstellen
Call wordApp.Documents.Add( "normal.dot")
Set wordDoc = wordApp.Activedocument 'Handler für Worddokument
'Word sichtbar machen
wordApp.Visible = True
'Word schreiben
worddoc.Selection.InsertAfter (vorname)
worddoc.Selection.InsertAfter (nachname)
End Sub
Fehler: Instance member SELECTION does not exist.
Jemand ´ne Idee
