Domino 9 und frühere Versionen > Entwicklung

Einlesen von Word-Formular-Felder

<< < (2/2)

cyperbob:
Hallo

vielen Dank für Deine Tips und lösungen. Ich probiere es mal aus
Vielen vielen Dank

Gruß

Rolf

cyperbob:
Hallo nochmal,

hier habe ich eine Lösung gefunden:

Sub Click(Source As Button)
   
   Dim ws As NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim WordDocument As Variant
   Dim WordApplication As Variant
   
   Set ws = New NotesUIWorkspace
   Set uidoc = ws.CurrentDocument
   
   'Auswahl des Formulars
   Dim files As Variant
   files = ws.OpenFileDialog(True, "File List", _
   "", "c:")
   Dim messagelist As String
   Forall filelist In files
      messagelist = Trim$(messagelist) & filelist
   End Forall
   Messagebox messagelist
   
   
   Set WordDocument= GetObject(messagelist,"Word.Document")   'Dokumet öffnen
   Set WordApplication = WordDocument.Application 'Applikation zum Dokument
   WordApplication.visible=True 'Applikation sichtbar machen
   
   Call uidoc.FieldSetText( "pkleft",WordDocument.FormFields(4).Result)
   Call uidoc.FieldSetText( "Vorname",WordDocument.FormFields(3).Result)
   Call uidoc.FieldSetText( "Name",WordDocument.FormFields(2).Result)
   Call uidoc.FieldSetText( "Name",WordDocument.FormFields(n+1).Result)....usw
   

   Call uidoc.Save 'NotesDoc speichern
   
   Call WordDocument.Close() 'nur aktuelles Dokument wird geschlossen
   Set WordDocument = Nothing
   If WordApplication.Documents.Count = 0 Then
      Call WordApplication.Quit() ' geöffnete Word-Anwendung wird geschlossen
      Set WordApplication = Nothing
   End If
   
End Sub

viele Grüße

Rolf

Fedaykin:
Hi Rolf

Freut mich Dir helfen zu können.

Gruss
Remo

Navigation

[0] Themen-Index

[*] Vorherige Sete