Zeilen ins Word übergeben
09.03.2018 14:53:12
Peter
Ich hätte eine kleine Frage.
Ich habe mehrere Zeilen, welche ich an eine Word-Formular übergebe. Das klappt ganz
gut. Ich wüsste noch gerne, wie ich nicht nur die Zeile 2, sondern auch die anderen Zeilen übergeben kann, bzw. wie ich einen Zeilenbereich definieren kann.
Eine Idee wäre sehr nett und hilfreich.
Vielen herzlichen Dank.
Peter
Sub Übergabe_TEST()
Dim appWord As Object
Dim doc As Object
Dim Pfad As String
Pfad = "\\tobler.local\dfsroot\Home$\AAH3609\Documents\Dok2.docm"
' On Error GoTo ErrorExit
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add(Pfad)
With wrdApp
wrdApp.Visible = True
wrdDoc.FormFields("Text1").Result = Sheets("Tabelle1").Range("a2").Value 'anpassen
wrdDoc.FormFields("Text2").Result = Sheets("Tabelle1").Range("b2").Value 'anpassen
wrdDoc.FormFields("Text3").Result = Sheets("Tabelle1").Range("c2").Value 'anpassen
wrdDoc.FormFields("Text4").Result = Sheets("Tabelle1").Range("e2").Value 'anpassen
wrdDoc.FormFields("Text5").Result = Sheets("Tabelle1").Range("f2").Value 'anpassen
.ActiveDocument.SaveAs ThisWorkbook.Path & "\" & [F2].Value & ".docx"
End With
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub