Teil aus Excel in Wordvorlage übernehmen
15.01.2019 15:36:48
Andre
ich bin es wieder mit einem neuen Problem/Aufgabe.
Und zwar will ich einen Teil aus meiner Excel Tabelle in eine Benutzerdefinierte Vorlage an einer bestimmten Stelle einfügen.
Das habe ich mit dem folgenden Modul(Dann über Button starten) versucht:
Sub WordDatei_erstellen()
Dim appWord As Object
Dim docWord As Object
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Angebot u Rechnung")
Set appWord = CreateObject("Word.Application")
Set docWord = appWord.Documents.Add("Pfad\Test123.dotx")
With docWord
.Bookmarks("Test").Range.Text = wks.Range("B6").Value
End With
End Sub
Also Textmarke(Test) in Wordvorlage Test123.dotx
Der code wird auch ohne Fehler ausgeführt, aber es passiert praktisch gar nichts..
Kann ich wenn das dann funktioniert den Bereich auch bspw. einfach auf wks.Range("B6:C9") erweitern?
Oder hat jemand einen Link mit einem guten Tutorial? Ich weiß man findet dazu schon einiges im Internet aber noch nichts hat bei mir funktioniert.
Oder hat jemand zufällig eine elegantere Variante parat?
Ich danke euch wieder einmal schon im Voraus :)
Grüße
Andre