VBA-Programierung / Drucken und Speichern / Brücke zwischen Excel und Word

  • Excel

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von User0101.

    VBA-Programierung / Drucken und Speichern / Brücke zwischen Excel und Word

    Hallo zusammen,

    ich habe ein Problem oder eine Aufgabe die ich nicht alleine gelöst bekomme.Ich habe mich schon ein bisschen eingelesen aber viel weiter hat mich das nicht gebracht daher dachte ich frage ich mal hier nach.
    Das Problem was ich habe oder die Programierung die ich benötige betrifft eine Namens Tabelle bei Excel aus der mit einem Klick eventuell auf eine Schaltfläche auf mehrere Word Dokumente zugegriffen wird und diese dann in einem Drucker + Fach den ich selbst wählen kann gedruckt wird.
    Beispiel: Es soll immer auf den untersten(neuesten) Empfänger sagen wir Empfänger 1 der Excel Tabelle zugegriffen werden. Und dann die Dementsprechenden Word Dokumente zum Beispiel Dokument 1, Dokument 2 und Dokument 3 jeweils mit den Daten des Empfängers 1 (Name, Vorname,Straße, Plz & Ort) Speichern und direkt Drucken.Und wenn ich dann einen neuen Empfänger sagen wir Empfänger 2 unter den Empfänger 1 eintrage und wieder die Taste betätige sollen die Word Dokumente(1,2 und 3) mit den Daten des Empfängers 2 gespeichert und bei einem Drucker + Fach den ich wähle kann da wir Netzwerk Drucker haben gedruckt werden und so weiter.
    Ich hoffe aber dass das Problem so gut verständlich ist.

    Vielen Dank schon mal für eure Hilfe

    *Tags in den Titel gepackt, was wesentlich mehr Sinn ergibt*
    Dateien

    • Dokument3.docx

      (39,86 kB, 199 mal heruntergeladen, zuletzt: )

    • Namensliste.xlsx

      (12,75 kB, 312 mal heruntergeladen, zuletzt: )

    • Dokument1.docx

      (39,85 kB, 191 mal heruntergeladen, zuletzt: )

    • Dokument2.docx

      (39,85 kB, 249 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Es geht darum das nicht jeder die selben Dokumente bekommt. Und wenn ich den Serienbrief benutzen würde und die Dokumente zusammenfügen würde müsste ich mir 20 verschiedene Versionen je nach Empfänger zusammenbasteln. Und wenn sich dann noch ein Dokument verändert muss ich es in jedem zusammengefügten Dokument ändern. Daher benötige ich eine Programmierung.

    Hallo zusammen,
    ich habe jetzt einen ersten Ansatz erarbeitet aber das ist noch nicht so wie ich es mir vorgestellt habe.
    Vielleicht hat ja noch jemand Tipps oder Lösungsvorschläge für mich.

    Visual Basic-Quellcode

    1. ​Sub Dokumente_erstellen()
    3. 'Datei mit neuer Anschrift erstellen
    4. Dim objWord As Object
    5. Dim D1 As String
    6. Dim D2 As String
    7. Dim D3 As String
    8. Dim Ziel1 As String
    9. Dim Ziel2 As String
    10. Dim Ziel3 As String
    12. 'Namen und Speicherort für die Dokumente auswählen
    13. Ziel1 = "O:\Aufgaben\VBA\Zielordner\D1_Name1"
    14. Ziel2 = "O:\Aufgaben\VBA\Zielordner\D2_Name1"
    15. Ziel3 = "O:\Aufgaben\VBA\Zielordner\D3_Name1"
    17. 'Dokumente diege erstellt werden sollen
    18. D1 = "O:\Aufgaben\VBA\Dokument1.docx"
    19. D2 = "O:\Aufgaben\VBA\Dokument2.docx"
    20. D3 = "O:\Aufgaben\VBA\Dokument3.docx"
    22. Set objWord = CreateObject("Word.application")
    23. With objWord
    24. .Application.Visible = True
    25. .Application.Documents.Open (D1)
    26. .Application.Documents.Open (D2)
    27. .Application.Documents.Open (D3)
    28. End With
    29. Set objWord = Nothing
    31. 'Dokument1 Speichern unter
    33. Documents("Dokument1.docx").Activate
    34. ActiveDocument.SaveAs2 Ziel1
    35. ActiveDocument.Close
    37. 'Dokument2 Speichern unter
    38. Documents("Dokument2.docx").Activate
    39. ActiveDocument.SaveAs2 Ziel2
    40. ActiveDocument.Close
    42. 'Dokument3 Speichern unter
    43. Documents("Dokument3.docx").Activate
    44. ActiveDocument.SaveAs2 Ziel3
    45. ActiveDocument.Close
    48. End Sub


    Vielen Dank schonmal :)

    Was du bisher hast, ist drei Dokumente zu öffnen und unter anderem Namen zu speichern.
    Das könnte so funktionieren.
    Aber alles was zwischen Öffnen und Speichern liegt, fehlt ja noch.

    Im Übrigen ist dein bisheriger Code noch optimierbar.

    Visual Basic-Quellcode

    1. ​Sub Dokumente_erstellen()
    3. 'Datei mit neuer Anschrift erstellen
    4. Dim Word As Object, Doc1 As Object, Doc2 As Object, Doc3 As OBject
    5. Dim D1 As String
    6. Dim D2 As String
    7. Dim D3 As String
    8. Dim Ziel1 As String
    9. Dim Ziel2 As String
    10. Dim Ziel3 As String
    12. 'Namen und Speicherort für die Dokumente auswählen
    13. Ziel1 = "O:\Aufgaben\VBA\Zielordner\D1_Name1"
    14. Ziel2 = "O:\Aufgaben\VBA\Zielordner\D2_Name1"
    15. Ziel3 = "O:\Aufgaben\VBA\Zielordner\D3_Name1"
    17. 'Dokumente die erstellt werden sollen
    18. D1 = "O:\Aufgaben\VBA\Dokument1.docx"
    19. D2 = "O:\Aufgaben\VBA\Dokument2.docx"
    20. D3 = "O:\Aufgaben\VBA\Dokument3.docx"
    22. Set Word = CreateObject("Word.Application")
    23. Word.Application.Visible = True
    24. Set Doc1 = Word.Documents.Open(D1)
    25. Set Doc2 = Word.Documents.Open(D2)
    26. Set Doc3 = Word.Documents.Open(D3)
    28. 'jetzt hast du die Word-Dokumente (Doc1, Doc2, Doc3) und kannst sie modifizieren
    32. 'Dokument1 Speichern unter
    33. Doc1.SaveAs2 Ziel1
    34. Doc1.Close
    36. 'Dokument2 Speichern unter
    37. Doc2.SaveAs2 Ziel2
    38. Doc2.Close
    40. 'Dokument3 Speichern unter
    41. Doc3.SaveAs2 Ziel3
    42. Doc3.Close
    44. ' Word beenden
    45. Word.Quit
    46. End Sub
    Mit ActiveDocument zu arbeiten ist gefährlich und unelegant.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Danke für die Hilfe. Funktioniert alles Top.

    Hab jetzt nur noch ein anliegen mit dem Drucken.
    Hab echt viele Berichte im Internet dazu gefunden aber bei mir hat es nicht funktioniert.

    Visual Basic-Quellcode

    1. Sub Drucken_Dokumente()
    3. 'Dokument 1
    4. Dim appWord As Object
    5. Dim strDoc1 As String
    7. strDoc1 = "O:\Aufgaben\VBA\Zielordner\D1_Name1.docx"
    9. Set appWord = CreateObject("Word.Application")
    10. appWord.Documents.Open strDoc1
    12. appWord.PrintOut Filename:=strDoc1
    13. appWord.Quit
    15. Set appWord = Nothing
    17. 'Dokument 2
    18. Dim strDoc2 As String
    20. strDoc2 = "O:\Aufgaben\VBA\Zielordner\D2_Name1.docx"
    22. Set appWord = CreateObject("Word.Application")
    23. appWord.Documents.Open strDoc2
    25. appWord.PrintOut Filename:=strDoc2
    26. appWord.Quit
    28. Set appWord = Nothing
    30. 'Dokument3
    31. Dim strDoc3 As String
    33. strDoc3 = "O:\Aufgaben\VBA\Zielordner\D3_Name1.docx"
    35. Set appWord = CreateObject("Word.Application")
    36. appWord.Documents.Open strDoc3
    38. appWord.PrintOut Filename:=strDoc3
    39. appWord.Quit
    41. Set appWord = Nothing
    43. End Sub


    So habe ich es da druckt es dann die Dokumente aber nur auf dem Standartdrucker.
    Hab alles probiert aber bekomme es nicht hin einen anderen Drucker anzusteuern mir wird dann immer ein Fehler angezeigt.

    CodeTags gesetzt ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    User0101 schrieb:

    Hab alles probiert aber bekomme es nicht hin einen anderen Drucker anzusteuern mir wird dann immer ein Fehler angezeigt.
    Ich perönlich habe ein Problem mit der Aussage, dass man alles probiert hat. Denn alles probieren würde bedeuten, jahrelang beschäftigt zu sein (denn es gibt extrem viel Code), 2. wäre dann aber auch bestimmt die Lösung dabei gewesen. Zum anderen: Was genau hast Du denn so "alles" probiert? Und welche Fehlermeldung kommt bei welchem Versuch? Wo ist denn z.B. die Codezeile, wo Du ActivePrinter setzt, um den Drucker festzulegen?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Alles probiert heist in dem Fall mit dem wissen was ich mir in den letzten 2 Wochen (nicht mehrere Jahre)angeeignet habe ca. 20 verschiedene Code schnipsel aus dem Netz versucht und immer kamen Fehlermeldungen wie Laufzeitfehler 1004 oder Laufzeitfehler 4198. Aber passt schon ich krieg das bestimmt hin :thumbsup:

    Visual Basic-Quellcode

    1. Private Sub CommandButton2_Click()
    2. Dim Drucker As String
    3. Drucker = ActivePrinter
    4. ActivePrinter = "FreePDF XP"
    6. Application.PrintOut FileName:="", Range:=0, Item:=0, Copies:=1, Pages:="", PageType:=0, ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
    8. ActivePrinter = Drucker
    9. End Sub
    Adaptiert von hier: office-loesung.de/ftopic68238_0_0_asc.php
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --