Moin, Ihr Lieben!
Ich möchte aus Excel Daten in Word übertragen.
Das klappt auch soweit.
In meinem Code wird eine neue Datei angelegt, es kann aber auch die bestehende Datei "RSG_Curriculum_20_Tage.docx" sein.
Es geht also nur darum, das word Dokument zu öffnen, die Daten zu übertragen, das Dokument ohne zu speichern zu schließen und zu der Excel Datei zurück zu kehren.
Leider will er nicht so zu dem neuen Word Dokument (dann "Dokument1) wechseln und es drucken.
Hier mein Code:
Sub CurriculumAusdrucken()
'1.)dieses Makro soll die in einer geöffneten Excel-Datei enthaltene Lehrgangsnummer in das word - Dokument "RSG_Curriculum_20_Tage.docx" schreiben
Dim RSG_Curriculum_20_Tage
Dim appWord As Object
'erstellt auf Grundlage der Curriculumsdatei eine neue Datei (von mir aus kann es auch die bestehende Datei sein, wird ja eh nach dem Druck ohne
'Änderungen geschlossen
Set appWord = CreateObject("Word.Application")
Set RSG_Curriculum_20_Tage = appWord.Documents.Add("\\SBS-SERVER\Daten\Folien und Skripte\RSG ab 2018\RSG_Curriculum_20_Tage.docx")
'man soll sehen, was passiert
appWord.Visible = True
'aktiviert die Datei
RSG_Curriculum_20_Tage.Activate
' fügt den Begriff "Lehrgangsnummer" ein
RSG_Curriculum_20_Tage.Bookmarks("Lehrgangsnummer").Range.Text = Range("Lehrgangsnummer")
'''''''''''''''''''Bis hierhin geht es-
'er öffnet die neue Word Datei
'er schreibt an die richtige Stelle die "Lehrgangsnummer"
'er druckt aber die Word Datei nicht, da offenbar Excel aktiv ist
'jetzt soll
'1.) das neu erstellte word-Dokument ausgedruckt werden
'2.) das neu erstellte word Dokument gelöscht werden
'3.) zur offenen Excel Datei in das Tabellenblatt "Dokumentendruck" gewechselt werden
Set RSG_Curriculum_20_Tage = Nothing
Set appWord = Nothing
' Tabellenbatt Dokumentendruck aktivieren
ThisWorkbook.Worksheets("Dokumentendruck").Activate
End Sub
Vielleicht hat jemand eine Idee??
Mfg
Matthias
|