AW: Seriendruck Datei einfügen und Druck starten
26.03.2018 11:35:18
Oliver
So habs jetzt soweit hinbekommen, doch leider wir die Datei bis jetzt noch nicht gelöscht.
Public Sub import()
With ActiveDocument.MailMerge
.MainDocumentType = wdCatalog
.OpenDataSource Name:="C:\Users\Oli\Downloads\VersandAdressen.csv", _
ReadOnly:=True, _
Connection:="Sales"
End With
If ActiveDocument.MailMerge.State = wdMainAndDataSource Then
ActiveDocument.MailMerge.Execute
End If
ActiveDocument.Application.WindowState = wdWindowStateMinimize
If MsgBox("Serienbrief Drucken ?", vbYesNo + vbQuestion, _
"Serienbrief-Erstellung - Drucken - Seitenvorschau") = vbYes Then
ActiveDocument.Application.WindowState = wdWindowStateMaximize
savEnvAlert = Application.DisplayAlerts
savEnvBackground = Options.PrintBackground
Application.DisplayAlerts = wdAlertsNone
Options.PrintBackground = False
'ActiveDocument.PrintOut
Application.DisplayAlerts = savEnvAlert
Options.PrintBackground = savEnvBackground
End If
Call Löschen
End Sub
Public Sub Schließen()
Word.ActiveDocument.Saved = True ' Flag für Änderungen zurücksetzen
Word.NormalTemplate.Saved = True
Word.Application.Quit savechanges:=wdDoNotSaveChanges
End Sub
Public Sub Löschen()
On Error Resume Next
Kill "C:\Users\Oli\Downloads\VersandAdressen.csv"
End Sub
Was außerdem noch ziemlich praktische wäre, wenn Word automatisch die neueste Datei nimmt die VersandAdressen.csv heißt. Habe dafür diesen Code von Hajo gefunden funktioniert, doch dieser gibt mir leider keine Datei aus im letzten Fenster.
Sub Dateiliste_Neu()
' erstellt von Hajo.Ziplies@web.de
' jüngste Datei feststellen
' http://home.media-n.de/ziplies/
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Dateiname_neu As String
Dim Zeit As Date
strVerzeichnis = "C:\Users\Oli\Downloads"
StrTyp = "*.jpeg"
Dateiname = Dir(strVerzeichnis & StrTyp)
Dateiname_neu = Dateiname
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Do While Dateiname ""
If Zeit