Aus Excel ein WOrd Dokument vorbereiten
18.02.2023 12:40:12
HERFF
nach langer Zeit brauche ich nochmals Eure Hilfe.
Es geht um einen Vertrag an dem zusätzliche drei Seiten hinzugefügt werden.
Er schließt mit "Abschnittswechsel, nächste Seite" ab. Dies, weil die weiteren Seiten nicht mehr die Kopf- und Fußzeile enthalten sollen.
Seit einigen Wochen fügt das Programm jetzt "automatisch" einen zusätzlichen Abschnittswechsel, nächste Seite hinzu.
Das führt zu einer leeren Seite.
Beim Druck, alles gut, wir können die Seite löschen.
Anders beim Versenden per Mail. Hier wird eine PDF erstellt und da bleibt dann die leere Seite drin.
Hat jemand ähnliches erlebt?
Kann mir jemand helfen, eine Lösung zu finden?
Vielen Dank.
Hier der Code:
' Erstellen Serienbrief
Set objWinWord = CreateObject("Word.Application")
With objWinWord
.Visible = True
.WindowState = 0
Set objWinDoc = .Documents.Open(strPfadDatei)
End With
With objWinDoc
With .MailMerge
.OpenDataSource Name:=strQuelle, LinkToSource:=True, Format:=0, _
SQLStatement:="SELECT * FROM `Tabelle1$`"
.Destination = 0
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1
.LastRecord = 1
End With
.Execute Pause:=False
.DataSource.Close
End With
End With
Set objDocSerienbrief = objWinWord.Documents(1)
objWinDoc.Close False
' Hinzufuegen "Allgemeine Bestimmungen"
With objWinWord.Selection
.WholeStory
.Fields.Update
.EndKey END_OF_STORY, MOVE_SELECTION
.InsertFile fileName:=Hilfstabellen.Range("C46") & strSep & _
Hilfstabellen.Range("C60"), Range:="", ConfirmConversions:=True, _
link:=False, Attachment:=False
' Hinzufuegen "Begleitschreiben" und "Weg zur Tonne"
If Vertragsmatrix.Range("G7") = "D" Then
.Collapse Direction:=wdCollapseEnd
.InsertParagraphAfter
.InsertBreak Type:=wdSectionBreakNextPage
.InsertFile fileName:=Hilfstabellen.Range("C46") & strSep & Hilfstabellen.Range("C58")
.Collapse Direction:=wdCollapseEnd
.InsertParagraphAfter
.InsertBreak Type:=wdSectionBreakNextPage
.InsertFile fileName:=Hilfstabellen.Range("C46") & strSep & Hilfstabellen.Range("C74")
Else
.Collapse Direction:=wdCollapseEnd
.InsertParagraphAfter
.InsertBreak Type:=wdSectionBreakNextPage
.InsertFile fileName:=Hilfstabellen.Range("C46") & strSep & Hilfstabellen.Range("C59")
.Collapse Direction:=wdCollapseEnd
.InsertParagraphAfter
.InsertBreak Type:=wdSectionBreakNextPage
.InsertFile fileName:=Hilfstabellen.Range("C46") & strSep & Hilfstabellen.Range("C75")
End If
.EndKey Unit:=wdStory
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
.Delete Unit:=wdCharacter, Count:=1
.HomeKey Unit:=WD_STORY
End With
' Per Outlook-mail senden (Pdf erstellen, Word schliessen)
With objDocSerienbrief
If Mail Then
.ExportAsFixedFormat Outputfilename:= _
Hilfstabellen.Range("C44") & strSep & Hilfstabellen.Range("C72") & strSep & "Mail.pdf" _
, ExportFormat:=wdExportFormatPDF
DoEvents
.Close False
MailSenden
objWinWord.Quit
Else
.Application.Activate
End If
End With