Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Daten nach Word kopieren

Forumthread: Excel Daten nach Word kopieren

Excel Daten nach Word kopieren
25.06.2021 15:37:33
Klaus
Hallo Forum,
Ich fülle via Textmarken über eine Excelltabelle Daten in eine Word Dokumentenvorlage.
Set AppWord = CreateObject("Word.Application")
Set Dokument = AppWord.Documents.Add("D:\Wordtest\Doku.dotx")
Nach durchlaufen des Skripts wird mir dann auch eine Docx Datei mit den Daten aus Excel erzeugt.
Wenn ich nun "Speichern unter" wähle könnte ich einen Dateinamen
eingeben und in einen beliebigen Ordner meiner Wahl abspeichern. Ich möchte aber die nun erzeugten Worddokumente ohne zu Speichern
direkt an den Standarddrucker senden. Ich habe schon mit Activate.Printout herumprobiert.
Dies bezieht sich dann aber immer auf die Exceldatei und nicht auf das geöffnete erzeugte Word Dokumente. Ich komm hier im Moment leider nicht weiter.
Vielleicht kann mir hier jemand weiterhelfen
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Daten nach Word kopieren
25.06.2021 15:43:39
Herbert_Grom
Hallo Klaus,
warum machst du dir so viele Umstände, wo du das alles doch sicher auch direkt in Excel machen kannst!
Servus
AW: Excel Daten nach Word kopieren
25.06.2021 19:34:41
Klaus
Ich möchte mehrere vorhandene Dokumentenvorlagen, die ich nicht neu erstellen möchte mit einem Schlag ausfüllen und ausdrucken.
Das mit dem ausfüllen funktioniert ja auch schon alles. Ich kann auch jedes Dokument dann einzeln speichern und einzeln ausdrucken.
Es wäre halt praktisch wenn ich das auch mit dem gleichen Skript erledigen könnte
Anzeige
AW: Excel Daten nach Word kopieren
26.06.2021 11:43:22
JoWE
Hallo Klaus,
zeig doch mal den kompletten Code, nicht nur 2 Zeilen.
Eigentlich aber sollte: "wd.Activedocument.Printout" klappen ("wd" ist die initiierte Word-Instanz)
Gruß
Jochen
AW: Excel Daten nach Word kopieren
26.06.2021 12:52:44
Klaus
Hallo Jochen,
ich habe das jetzt folgendermaßen gelöst.
Ich habe mit dem Makro Editor ein Makro zum Drucken in den Word Datei aufgezeichnet
und rufe das Makro am Ende des Makros in Excel auf. (geht sicherlich eleganter)
In den Foren habe ich bestimmt 10 Varianten mit
Printout gefunden, die aber bei mit alle nicht funktioniert haben.
Hier jetzt nochmal das komplette Skript. Es funktioniert aber es würde mich interessieren wie man das vielleicht professioneller lösen könnte. Ich möchte ja was lernen und das was ich gemacht habe ist wahrscheinlich durch die Brust ins Auge.
Danke nochmal für Deine Unterstützung. 

Sub nachWordkopieren1()
Dim Dokument As Object
Dim appWord As Object
Dim strDoc As String
Dim objDialog As Object
Set appWord = CreateObject("Word.Application")
'Angabe der Dokumentenvorlage
Set Dokument = appWord.Documents.Add("D:\Wordtest\Dokumentvorlage.dotx")
appWord.Visible = True
Dokument.Activate
'verwendete Textmarken in der Word Vorlage
Dokument.Bookmarks("Nachname").Range.Text = Range("Nachname")
Dokument.Bookmarks("Vorname").Range.Text = Range("Vorname")
Dokument.Bookmarks("Geb").Range.Text = Range("Geb")
Dokument.Bookmarks("PLZ").Range.Text = Range("PLZ")
Dokument.Bookmarks("Ort").Range.Text = Range("Ort")
Dokument.Bookmarks("Strasse").Range.Text = Range("Strasse")
Dokument.Bookmarks("Tel").Range.Text = Range("Tel")
Dokument.Bookmarks("Mobil").Range.Text = Range("Mobil")
Set Dokument = Nothing
Set appWord = Nothing
'Aufruf eines Makros mit Namen "Druck" im Word Dokument zum Drucken
Dim WD As Object
Set WD = CreateObject("Word.Application")
WD.Documents.Open "C:\Users\User\Documents\Dokument1.Docx"
WD.Run "Druck"
WD.Quit
End Sub
Hier noch das Druck Makro aus dem Word Dokument

Sub Druck()
' Druck Makro
ActivePrinter = GetDefaultPrinter
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

Anzeige
AW: Excel Daten nach Word kopieren
26.06.2021 13:27:38
JoWE
In meiner MS Office 2016-Umgebung hab ich es so getestet und es läuft.
Teste mal:

Sub nachWordkopieren1()
Dim Dokument As Object
Dim appWord As Object
Dim strDoc As String
Dim objDialog As Object
Set appWord = CreateObject("Word.Application")
'Angabe der Dokumentenvorlage
'Set Dokument = appWord.Documents.Add("D:\Wordtest\Dokumentvorlage.dotx")
Set Dokument = appWord.Documents.Add("C:\Users\jochen\TestUmgebung\Klaus.dotx")
appWord.Visible = True
Dokument.Activate
'verwendete Textmarken in der Word Vorlage
Dokument.Bookmarks("Nachname").Range.Text = Range("Nachname")
Dokument.Bookmarks("Vorname").Range.Text = Range("Vorname")
Dokument.Bookmarks("Geb").Range.Text = Range("Geb")
Dokument.Bookmarks("PLZ").Range.Text = Range("PLZ")
Dokument.Bookmarks("Ort").Range.Text = Range("Ort")
Dokument.Bookmarks("Strasse").Range.Text = Range("Strasse")
Dokument.Bookmarks("Tel").Range.Text = Range("Tel")
Dokument.Bookmarks("Mobil").Range.Text = Range("Mobil")
'ausdrucken
Dokument.PrintOut
Dokument.Close savechanges:=False
appWord.Quit
Set appWord = Nothing
End Sub
Gruß
Jochen
Anzeige
AW: Excel Daten nach Word kopieren
26.06.2021 15:46:24
Klaus
Hallo Jochen,
Vielen Dank es funktioniert. So einfach kann es gehen wenn man Ahnung hat. (Wieder was gelernt)
AW: Gerne, danke für die Rückmeldung
26.06.2021 15:52:18
JoWE
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige