Domino 9 und frühere Versionen > Entwicklung

Einlesen von Word-Formular-Felder

(1/2) > >>

cyperbob:
Hallo Foren-Gemeinde,

ich entwickele z.Zt. eine LN-Db zur Geschäftsreiseplanung und -vorkalkulation. Die Anträge für die Geschäftsreisen werden mittels Word-Formularen gestellt.
Nun stellt sich mir die Frage, ob es möglich ist, die einzeln Formular-Felder abzufragen und die Einträge in eine Maske zu übertragen. Ich habe das Forum schon durchsucht, aber nicht passendes gefunden.

Vielen Dank im voraus.

Grüße
RC

Fedaykin:
Hi RC (Seltsamer Vorname)

Habe einfach schnell mal was gecoded ohne gross zu testen. Könnte vielleicht etwas in diese Richtung sein.

Sub Test()
    Dim Session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
   
    Set db = Session.CurrentDatabase
    Set doc = New NotesDocument(db)
    doc.Form = "Test"
    FFValuesToNotesDoc "C:\Temp\Test.doc", doc
    doc.Save False, False
End Sub

Sub FFValuesToNotesDoc(strFilePath As String, docNotes As NotesDocument)
    Dim wrd As Variant
    Dim doc As Variant
    Dim objField As FormField
   
    Set wrd = CreateObject("Word.Application")
   
    With wrd
        Set doc = .Documents.Open(strFilePath)
        Forall objField In doc.FormFields
            doc.ReplaceItemValue objField.Name, objField.Range.Text
        Next objField
        doc.Close False
    End With
   
    wrd.Quit
End Sub


Gruss
Remo

cyperbob:
Hallo Remo,

vielen Dank für die Antwort und den Beispiel-Code. Ich denke das der Code in die Richtung führt die mein Problem löst.
Eine Frage hätte ich noch.
Ist bekannt, wie man einzelne Word Formularfelder anspricht?

vielen Dank im voraus.
Viele Grüße und schönes Wochenende
Rolf

Neopi:
Hi,

--- Zitat ---Die Anträge für die Geschäftsreisen werden mittels Word-Formularen gestellt.

--- Ende Zitat ---
Warum machst Du das nicht direkt in LN ? Da können direkt auch die Genehmigungen als Workflow usw. abgebildete werden.

Gruß
Martin

Fedaykin:
Hi Rolf

Würde sagen das wäre dann so etwas anstelle der Forall Schleife.
doc.FormFields("FeldName").Range.Text

Also Nummer oder Name (obwohl man bei Index eher Nummer erwartet). Ansonsten gibt es noch die Möglichkeit das über die Textmarken (Bookmarks) zu finden.

Gruss
Remo

Navigation

[0] Themen-Index

[#] Nächste Seite