in Word an aktueller Stelle Formularfeld einfügen

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Volker Bunge.

    in Word an aktueller Stelle Formularfeld einfügen

    Hallo Zusammen,

    kann mir einer sagen, wie ich in einem aktuellen Worddokument an der gerade aktuellen Stelle mit Excel VBA ein Textformularfeld einfügen kann?

    Habe schon bisher dieses hier

    VB.NET-Quellcode

    1. Const SpaltenzeileOriginal As Integer = 1
    2. Const SpaltenzeileIntern As Integer = 2
    3. Sub Word_Textformularfeld_einfuegen()
    5. ' Die aktuell Exceldatei sicherheitshalber vor dem Aufruf dieser Routine abspeichern (Sicher ist Sicher)
    6. For Each w In Application.Workbooks
    7. w.Save
    8. Next w
    10. Dim aktuellerSpaltenname As String
    11. aktuellerSpaltenname = Sheets(NamederDatenTabelle).Range(Cells(SpaltenzeileIntern, ActiveCell.Column), Cells(SpaltenzeileIntern, ActiveCell.Column)).Value
    13. ' Auf Word verweisen
    14. Set wrdApp = GetObject(, "Word.Application")
    15. With wrdApp
    16. .Visible = True
    17. .Activate
    18. End With
    19. Set wrdDoc = wrdApp.ActiveDocument
    21. Dim myField As Word.FormField
    22. 'ActiveDocument. Tables(1).Cell(2, 1).Select
    23. ' Set myField = Selection.FormFields.Add(Range:=Selection.Range, Type:=wdFieldFormTextInput)
    24. Set myField = wrdDoc.FormFields.Add(Range:=wrdDoc.Range, Type:=wdFieldFormTextInput)
    25. myField.CalculateOnExit = True
    26. myField.Name = aktuellerSpaltenname
    27. Set myField = Nothing
    28. End Sub


    Dieser Code soll aus einer Exceltabelle den Wert in der aktuellen Spalte / Zeile 2 nehmen, und danach in Word wechseln und dort an der gerade aktuellen Stelle ein Textformularfeld (diese alten grauen Eingabefelder) einfügen, welches dann den Namen der aktuellen Excelzelle hat.

    Eingefügt wird das Textformularfeld soweit auch richtig, nur das mit der aktuellen Position will nicht so funktionieren.

    Stelle ich den Wordcursor an eine andere Stelle, dann wird zwar das Formularfeld eingefügt, aber immer am Anfang des Worddokumentes.

    Für eine rasche Lösung bedanke ich mich schon einmal jetzt und hoffe, dass jemand eine Lösung hat.

    Gruß

    Volker

    Hallo HenryV,

    habe mal Deine Zeile eingefügt. Leider komme ich eine Fehlermeldung

    Laufzeitfehler '438'
    Objekt unterstützt diese Eigenschaft nicht.

    (Und Deine Zeile ist kpl. markiert).

    Habe mir auch den Link zur Microsoftseite angesehen und dann noch ein wenig getestet. Das ist dabei raus gekommen.

    VB.NET-Quellcode

    1. ​
    2. Const SpaltenzeileOriginal As Integer = 1
    3. Const SpaltenzeileIntern As Integer = 3
    5. Sub Word_Textformularfeld_einfuegen()
    7. ' Die aktuell Exceldatei sicherheitshalber vor dem Aufruf dieser Routine abspeichern (Sicher ist Sicher)
    8. For Each w In Application.Workbooks
    9. w.Save
    10. Next w
    12. Dim aktuellerSpaltenname As String
    13. aktuellerSpaltenname = Sheets(NamederDatenTabelle).Range(Cells(SpaltenzeileIntern, ActiveCell.Column), Cells(SpaltenzeileIntern, ActiveCell.Column)).Value
    15. ' Prüfen, ob ein Spaltenname vorhanden ist
    16. If aktuellerSpaltenname = "" Then
    17. MsgBox ("Leider kein Spaltenname in der Zeile " & SpaltenzeileIntern & " gefunden. Bitte versuchen Sie eine andere Spalte oder fügen Sie eine Bezeichnung ein.")
    18. Exit Sub
    19. End If
    21. ' Auf Word verweisen
    22. Set wrdApp = GetObject(, "Word.Application")
    23. With wrdApp
    24. .Visible = True
    25. .Activate
    26. End With
    27. Set wrdDoc = wrdApp '.ActiveDocument
    29. Dim myField As Word.FormField
    30. wrdDoc.Selection.Collapse Direction:=wdCollapseEnd
    31. Set myField = wrdDoc.ActiveDocument.FormFields.Add(Range:=wrdDoc.Selection.Range, Type:=wdFieldFormTextInput)
    33. With myField
    34. '.CalculateOnExit = True ' Nach dem Verlassen neu berechnen
    35. .Name = aktuellerSpaltenname
    36. End With
    38. ' Word wieder aktivieren. Es somit gleich in Word die nächste Position angesteuert werden
    39. wrdDoc.Activate
    41. Set myField = Nothing
    42. End Sub


    Und so funktioniert es erst einmal.

    Jetzt kann ich weitermachen.

    Vielen Dank.

    Gruß
    Volker

Facebook
Telefonspende