Word Feld aus Excel befüllen

  • Word

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von gifti09.

    FormField befüllen

    Ich hab sowas schon mal in einem Projekt benötigt. Hab das in etwa so gemacht (gekürzter Code):

    Quellcode

    1. Sub Export()
    2. Dim tmpFF As Word.FormField, doc as Document, formFieldName as String
    3. Set doc = CreateObject(path) 'Word Object erzeugen
    4. formFieldName="Name_des_Feldes" 'Feldname setzen
    6. Set tmpFF = GetFormFieldForName(formFieldName, doc.FormFields) 'FormField holen
    7. If tmpFF Is Nothing Then GoTo TARGET_ERROR 'Wenn das Feld nicht gefunden wurde --> Fehler
    8. tmpFF.Result = "Text" 'Wert für Feld setzen
    9. tmpFF.TextInput.default = "Text"
    11. Exit Sub
    12. TARGET_ERROR:
    13. Msgbox "Fehler"
    14. End Sub
    16. 'Liefert das FormField mit dem übergebenen Namen
    17. Private Function GetFormFieldForName(ByVal fName As String, ByVal fields As FormFields) As FormField
    18. Dim ff As FormField
    19. For Each ff In fields
    20. If ff.name = fName Then
    21. Set GetFormFieldForName = ff
    22. Exit Function
    23. End If
    24. Next
    25. Set GetFormFieldForName = Nothing
    26. End Function

Facebook
Telefonspende