Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: tuelb am 05.03.03 - 17:08:58

Titel: Word und notes OLè(E)
Beitrag von: tuelb am 05.03.03 - 17:08:58

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

Titel: Re:Word und notes OLè(E)
Beitrag von: ata am 05.03.03 - 18:42:46

... wenn du dich hier im Forum nach

"Word.Application" - 700 Tage zurück - 100 Einträge anzeigen

... machst, dann findest du genügend funktionierende Beispiele...

... viel Erfolg

ata   ;D