Office: im Serienbrief tabellenzeile ausblenden

Hallo Gerhard,

Nun funktioniert es.
Letze Frage: Wo kann ich die Bestätigungen mit "ok" abstellen. Denn bei 330Rechnungen ist das etwas mühsam.
Danke!

LG RZ

 

Hallo RZ,

ich nehm an, du meinst die Zeile Msgbox sBrief hier:
sBrief = path & .DataSource.DataFields("Name").Value & "_Re.Nr." & _
.DataSource.DataFields("RE").Value & "_2024.pdf"
MsgBox sBrief

Die ist nur zum Testen drin. Ich lass mir während der Testphase gern Pfad und Dateiname usgeben, um zu sehen, ob alles korrekt zusammengesetzt ist, bevor es zum Speichern geht. Einfach rauslöschen.

 

Hallo Gerhard,
Nun ist es perfekt! Genau so habe ich mir das vorgestellt.
Danke dir vielmals!

LG RZ

 

Hallo Gerhard,

Du hast mir vor einiger Zeit ein wunderbares Makro gezaubert.
Nun hätte ich ein weiteres Anliegen:
Ich möchte nun dieses Makro erweitern, oder ein neues bauen, so das ich die pdf's per email verschicken kann.
Nur die in der excel Spalte K ein "ja" stehen haben.
Könntest du mir da bitte helfen?

Lg. RZ



Sub PDFSpeichern()

' set variables
Dim hauptDoc As Document, tempDoc As Document
Dim anzahlDS As Long, i As Long
Dim BasisPfad As String, path As String, sBrief As String
Dim AppShell As Object
Dim BrowseDir As Variant

' catch any errors
On Error GoTo ErrorHandling

Set hauptDoc = ThisDocument 'das ist dein Seriendruck-Hauptdokument

' determine path
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Speicherort für Serienbriefe auswählen", 0, 16)

If BrowseDir = "Desktop" Then
path = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Else
path = BrowseDir.items().Item().path
End If

If path = "" Then GoTo ErrorHandling

path = path & "\WG Rechnungen-" & Format(Now, "dd.mm.yyyy-hh.mm.ss") & "\"
MkDir path
' hide application for better performance
MsgBox "Serienbriefe werden exportiert. Dieser Vorganag kann einige Minuten dauern - Microsoft Word wird während dieser Zeit ausgeblendet", vbOKOnly + vbInformation
Application.Visible = False

' create bulkletter and export as pdf
With hauptDoc.MailMerge

'erst mal schauen, ob das Dokument mit der Datenquelle verknüpft ist:
If .MainDocumentType = wdNotAMergeDocument Then
MsgBox "Das Dokument ist noch nicht mit einer Seriendruckquelle verbunden."
Exit Sub
End If

'Prüfen, ob Datensätze vorhanden sind:
.DataSource.ActiveRecord = wdLastDataSourceRecord
anzahlDS = .DataSource.ActiveRecord
If anzahlDS = 0 Then
MsgBox "Es wurden keine Datensätze gefunden."
Exit Sub
End If

'pro Datensatz 1 PDF erzeugen:
.DataSource.ActiveRecord = 1
.Destination = wdSendToNewDocument

For i = 1 To anzahlDS
.DataSource.ActiveRecord = i

.DataSource.FirstRecord = i
.DataSource.LastRecord = i
.Execute
Set tempDoc = ActiveDocument

'im temporären Dokument leere Tabellenzeilen löschen:
Call bereinige(tempDoc)

'Dokument unter dem gewünschten Namen als PDF speichern und tempDoc löschen:
sBrief = path & .DataSource.DataFields("Name").Value & "_Re.Nr." & _
.DataSource.DataFields("RE").Value & "_2024.pdf"
'MsgBox sBrief
tempDoc.ExportAsFixedFormat outputfilename:=sBrief, exportformat:=wdExportFormatPDF
tempDoc.Close savechanges:=False
Next i
End With
Exit Sub

ErrorHandling:
Application.Visible = True
MsgBox Err.Number & Err.Description
End Sub

Sub bereinige(dd1)
Dim tab01 As Table

Set tab01 = dd1.Tables(1)
If InStr(tab01.Cell(5, 4).Range.Text, "Nettoentgelt") = 0 Then
tab01.Rows(6).Delete
tab01.Rows(5).Delete
End If
End Sub

 

Hallo RZ,

da du das vermutlich mit Outlook bewerkstelligen willst, kann ich dir dabei nicht helfen, weil ich kein Outlook auf dem Rechner habe und deshalb nichts testen kann. Aber mach es doch einfach so:
Such dir einen Codeschnipsel aus dem Internet (dürfte nicht allzu schwierig werden) und teste den erstmal für sich.
Wenn er funktioniert, ruf ihn aus deinem Hauptmakro heraus an dieser Stelle nach diesem Strickmuster auf:

....
sBrief = path & .DataSource.DataFields("Name").Value & "_Re.Nr." & _
.DataSource.DataFields("RE").Value & "_2024.pdf"
tempDoc.ExportAsFixedFormat outputfilename:=sBrief, exportformat:=wdExportFormatPDF
tempDoc.Close savechanges:=False
if .DataSource.Datafields("Name der Spalte K").value = "ja" then
call Anhaengen(sbrief)
end if
next i
Auf diese Weise wird das PDF auf jeden Fall erstellt, aber nur unter der genannten Bedingung vermailt.

 

Hallo Gerhard,

Danke! ich werde mich auf die Suche machen.

lg RZ