Serienbrief aus Excel starten
02.10.2018 14:40:25
Anne
ich hatte vor einiger Zeit hauptsächlich aus anderen Forenbeiträgen ein Makro zusammengebastelt, was aus einer Excel-Tabelle durch Klicken eines Buttons eine Serienbriefvorlage öffnet, aus der dann entsprechende Datensatz ausgewählt und gedruckt (ggf. manuell angepasst) werden kann. Hintergrund ist, dass so Verträge erstellt werden, die Daten dazu werden vorher per Userform in das Tabellenblatt geschrieben.
Bis vorgestern funktionierte der Code noch, heute öffnet sich zwar das Dokument, aber Word meldet dann einen Fehler und stoppt. Hat jemand eine Idee?
Gerne auch andere Vorschläge o.ä., ich habe ehrlich gesagt sehr wenig Ahnung von VBA :)
Sub Schaltfläche3_Klicken()
Dim Word As Object
Dim strDatenQuelle As String
Dim WinDoc As Object
Const WD_STORY = 6
Set Word = CreateObject("Word.Application")
strDatenQuelle = "S:\Beispielpfad1"
Word.Visible = True
With Word
Set WinDoc = Word.Documents.Open("S:Beispielpfad2")
With WinDoc
With .MailMerge
.OpenDataSource Name:=strDatenQuelle, LinkToSource:=True, Format:=0, _
SQLStatement:="SELECT * FROM `Übersicht$`"
End With
End With
End With
End Sub