Automated Save As after MailMerge and .Destination = wdSendToPrinter in VBA

  • Word

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von mumpel.

    Automated Save As after MailMerge and .Destination = wdSendToPrinter in VBA

    Hi Professionals,

    I am running Win7 MS Office 2010 and Visual Basic 6.5.

    I am trying to automate a .pdf Output and came so far to only enter a
    filename for the printed .pdf. Since the outfile is to have a similar
    name as the inputfile, the save as could be automated as well.

    Now for my code so far:

    Visual Basic-Quellcode

    1. Sub Macro2()
    3. Dim x, i As Integer
    4. Dim y As String
    5. x = 1
    6. i = 1
    7. y = x
    9. Do While i < 999
    11. If Dir("D:\Video\list\b-" + y + "\") = "" Then
    13. i = i + 1
    14. x = i
    15. y = x
    17. Else
    19. ActiveDocument.MailMerge.OpenDataSource Name:="D:\Video\list\b-" + y + "\" + y + ".xlsx", _
    20. ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
    21. AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
    22. WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
    23. Format:=wdOpenFormatAuto, Connection:= _
    24. "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=D:\Video\list\1.xlsx;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:G" _
    25. , SQLStatement:="SELECT * FROM `Sheet1$`", SQLStatement1:="", SubType:= _
    26. wdMergeSubTypeAccess
    27. ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
    28. With ActiveDocument.MailMerge
    29. .Destination = wdSendToPrinter
    30. .SuppressBlankLines = True
    31. With .DataSource
    32. .FirstRecord = wdDefaultFirstRecord
    33. .LastRecord = wdDefaultLastRecord
    34. End With
    35. .Execute Pause:=False
    37. End With
    39. i = i + 1
    40. x = i
    41. y = x
    43. End If
    44. Loop
    46. End Sub


    Is there a way to insert something like

    Visual Basic-Quellcode

    1. With ActiveDocument.MailMerge
    2. .Destination = wdSendToPrinter
    3. .SuppressBlankLines = True
    4. With .DataSource
    5. .FirstRecord = wdDefaultFirstRecord
    6. .LastRecord = wdDefaultLastRecord
    7. End With
    9. .SaveAs FileName:="C:\Users\user\Documents\b-" + y + "XXX.pdf"
    11. .Execute Pause:=False


    Help is much appreciated!

    Greetings

    Gerne auch auf Deutsch antworten, habs nur mal universell verfasst

    Hi Profis,

    Ich verwende Win7 MS Office 2010 mit Visual Basic 6.5.

    Ich versuch eine .pdf-Ausgabe zu automatisieren und bis so weit gekommen, dass nur noch der Dateiname für das über den Adobe .pdf Drucker gedruckte .pdf abgefragt wird. Da die Ausgabedatei im namen einen selben syntax wie die Ausgabe-Datei haben soll, könnte man auch das automatisieren.

    Jetzt mal zu meinem aktuellen Code:

    Visual Basic-Quellcode

    1. Sub Macro2()
    3. Dim x, i As Integer
    4. Dim y As String
    5. x = 1
    6. i = 1
    7. y = x
    9. Do While i < 999
    11. If Dir("D:\Video\list\b-" + y + "\") = "" Then
    13. i = i + 1
    14. x = i
    15. y = x
    17. Else
    19. ActiveDocument.MailMerge.OpenDataSource Name:="D:\Video\list\b-" + y + "\" + y + ".xlsx", _
    20. ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
    21. AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
    22. WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
    23. Format:=wdOpenFormatAuto, Connection:= _
    24. "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=D:\Video\list\1.xlsx;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:G" _
    25. , SQLStatement:="SELECT * FROM `Sheet1$`", SQLStatement1:="", SubType:= _
    26. wdMergeSubTypeAccess
    27. ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
    28. With ActiveDocument.MailMerge
    29. .Destination = wdSendToPrinter
    30. .SuppressBlankLines = True
    31. With .DataSource
    32. .FirstRecord = wdDefaultFirstRecord
    33. .LastRecord = wdDefaultLastRecord
    34. End With
    35. .Execute Pause:=False
    37. End With
    39. i = i + 1
    40. x = i
    41. y = x
    43. End If
    44. Loop
    46. End Sub


    Besteht eine Möglichkeit etwas in diesem Sinne zu implementieren?

    Visual Basic-Quellcode

    1. With ActiveDocument.MailMerge
    2. .Destination = wdSendToPrinter
    3. .SuppressBlankLines = True
    4. With .DataSource
    5. .FirstRecord = wdDefaultFirstRecord
    6. .LastRecord = wdDefaultLastRecord
    7. End With
    9. .SaveAs FileName:="C:\Users\user\Documents\b-" + y + "XXX.pdf"
    11. .Execute Pause:=False


    Jede Hilfe ist willkommen,
    Grüße

    Wenn Du nur eine PDF-Datei erstellen möchtest, dann schau Dir die VBA-Funktion "ExportAsFixedFormat" an. Dürfte einfacher zu realisieren sein.


    Edit:
    Ein Beispielcode.

    Visual Basic-Quellcode

    1. Sub ExportActiveDocAsPDF()
    2. Dim strPath As String
    3. Dim strName As String
    4. Dim strOpen As Boolean
    6. If MsgBox("Soll die Datei nach dem Erstellen angezeigt werden?", vbYesNo + vbQuestion, "Frage") = vbYes Then strOpen = True
    8. strPath = Environ("USERPROFILE") & "\Documents\"
    9. strName = "Test.pdf"
    11. ActiveDocument.ExportAsFixedFormat OutputFileName:=strPath & strName, _
    12. ExportFormat:=wdExportFormatPDF, _
    13. OpenAfterExport:=strOpen, OptimizeFor:=wdExportOptimizeForPrint, _
    14. Range:=wdExportAllDocument, Item:=wdExportDocumentContent, _
    15. IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
    16. wdExportCreateNoBookmarks, DocStructureTags:=True, _
    17. BitmapMissingFonts:=True, UseISO19005_1:=False
    18. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „mumpel“ () aus folgendem Grund: Codebeispiel gesetzt.

    Hallo Mumpel,

    Dein Weg ist in der Tat richtig, aber für meine Anwendung leider nicht was ich brauche... Ich muss den Serienbrief leider über den Adobe-pdf Drucker erstellen, damit alle Schriften eingebettet sind.
    Gibt es eine Automation, die ein Eingabefenster (Speichern als) jedesmal nach einer bestimmten Vorgabe befüllt und quittiert?

    Mit dem Adobe-Drucker nicht leicht. In Excel würde man das über "Application.GetSaveAsFilename" realisieren können. In Word gibt es das aber nicht. Aber vielleicht kannst Du das über den Acrobat.Distiller automatisieren, dann kannst Du Pfad und Dateiname automatisiert angeben ohne einen Dialog bestätigen zu müssen. software.maninweb.de/de/de_tut…_tutorials_office_02.html