Von Excel in Word Textfeld schreiben
31.10.2014 15:19:04
Bernhard
ich möchte aus einem Excel-Makro Texte in ein Textfeld in Word schreiben.
Dies klappt mit meinem Makro auch. Jedoch sind die Textfelder weiterhin grau hinterlegt.
Gibt es eine Möglichkeit, dass der Text ohne grauem Textfeldkasten erscheint.
Für Tips bin ich sehr Dankbar.
Gruß
Bernhard
Sub ausExcel_zuWordTextfelder()
Dim wrdApp, wrdDoc, Tabelle
Set Tabelle = ThisWorkbook.Worksheets("Tabelle1")
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\Users\B7796\Desktop\Textfeld Makro\Formular.docx")
wrdDoc.FormFields("Name").Result = "Mustermann"
wrdDoc.FormFields("Vorname").Result = "Max"
Set Tabelle = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub