Office: (Office 2016) Serienbrief mit zusätzlicher Tabelle als Anhang

Helfe beim Thema Serienbrief mit zusätzlicher Tabelle als Anhang in Microsoft Word Hilfe um das Problem gemeinsam zu lösen; Hallo alle zusammen, ich habe ein Serienbrief-Word-Dokument, mit welchem wir unsere Rechnungen generieren. Nun möchte ich eine zweite Seite... Dieses Thema im Forum "Microsoft Word Hilfe" wurde erstellt von WaterIT, 27. Oktober 2020.

  1. WaterIT Neuer User

    Serienbrief mit zusätzlicher Tabelle als Anhang


    Hallo alle zusammen,

    ich habe ein Serienbrief-Word-Dokument, mit welchem wir unsere Rechnungen generieren. Nun möchte ich eine zweite Seite erstellen, in der eine Tabelle als Anhang eingefügt wird. Die Anhänge sind sowohl als Excel-Tabelle, als auch als PDF-Dokument verfügbar.

    Ich kenne mich mit Word leider nicht so gut aus und weiß nicht genau, wie ich das realisieren kann. Kann mir da jemand eine Idee geben?

    PS.: Wir nutzen ein Makro, um die einzelnen Rechnungen als PDF zu exportieren.

    Code:
    Sub WORDspeichern()
        ' set variables
        Dim iBrief As Integer, sBrief As String
        Dim AppShell As Object
        Dim BrowseDir As Variant
        Dim Path As String
       
        ' catch any errors
        On Error GoTo ErrorHandling
       
        ' determine path
        Set AppShell = CreateObject("Shell.Application")
        Set BrowseDir = AppShell.BrowseForFolder(0, "Speicherort für Serienbriefe auswählen", 0, (strStartPath))
       
        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 & "\Rechnungen-" & Format(Now, "dd.mm.yyyy-hh.mm.ss") & "\"
        MkDir Path
       
        On Error GoTo ErrorHandling
           
        ' hide application for better performance
        MsgBox "Rechnungen werden einzeln als WORD-Dateien exportiert!", vbOKOnly + vbInformation
        Application.Visible = False
        
        ' create bulkletter and export as pdf
        With ActiveDocument.MailMerge
            .DataSource.ActiveRecord = 1
            Do
                .Destination = wdSendToNewDocument
                .SuppressBlankLines = True
                With .DataSource
                    .FirstRecord = .ActiveRecord
                    .LastRecord = .ActiveRecord
                    sBrief = Path & "2020-" & .DataFields("RECHNUNG").Value & ".doc"
                End With
                .Execute Pause:=False
           
                If .DataSource.DataFields("RECHNUNG").Value > "" Then
                    ActiveDocument.SaveAs FileName:=sBrief
                End If
                ActiveDocument.Close False
           
                If .DataSource.ActiveRecord < .DataSource.RecordCount Then
                    .DataSource.ActiveRecord = wdNextRecord
                Else
                    Exit Do
                End If
            Loop
        End With
       
        ' error handling
    ErrorHandling:
        Application.Visible = True
     
        If Err.Number = 76 Then
            MsgBox "Der ausgewählte Speicherort ist ungültig", vbOKOnly + vbCritical
        ElseIf Err.Number = 5852 Then
            MsgBox "Das Dokument ist kein Serienbrief"
        ElseIf Err.Number = 4198 Then
            MsgBox "Der ausgewählte Speicherort ist ungültig", vbOKOnly + vbCritical
        ElseIf Err.Number = 91 Then
            MsgBox "Exportieren von Rechnungen abgebrochen", vbOKOnly + vbExclamation
        ElseIf Err.Number > 0 Then
            MsgBox "Unbekannter Fehler: " & Err.Number & " - Bitte Makro erneut ausführen.", vbOKOnly + vbCritical
        Else
            MsgBox "Rechnungen erfolgreich exportiert", vbOKOnly + vbInformation
        End If
    
    End Sub
    
    Vielen Dank im Voraus!

    MfG
    WaterIT
     
    WaterIT, 27. Oktober 2020
    #1
  2. fry123 Neuer User
    Hallo,
    wie ich sehe hast du noch keine Antwort erhalten. Schau dir mal den folgenden Artikel an. Der könnte dir bei deinem Problem weiterhelfen, denn für alle Office-Apps braucht man für Anhänge in Serienmails ein zusätzliches Add-In oder Drittprogramm.
    Outlook: Serienmail mit Anhang versenden - so geht's - Lookeen
    LG
     
Thema:

Serienbrief mit zusätzlicher Tabelle als Anhang

Die Seite wird geladen...
  1. Serienbrief mit zusätzlicher Tabelle als Anhang - Similar Threads - Serienbrief zusätzlicher Tabelle

  2. Serienbrief erstellen, als PDF abspeichern und per Adobe Sign versenden

    in Microsoft Word Hilfe
    Serienbrief erstellen, als PDF abspeichern und per Adobe Sign versenden: Hallo, wir müssen ca. 1.000 Verträge an unsere Kunden erstellen und per Adobe Sign zur Unterschrift versenden. Jetzt möchten wir jeden Vertrag einzeln abspeichern und in eine PDF Datei umwandeln...
  3. Serienbrief als Mailanhang verschicken

    in Microsoft Word Hilfe
    Serienbrief als Mailanhang verschicken: Hallo, ich möchte in Word 2019 einen Serienbrief per E-Mail an die einzelnen Empfänger verschicken. Wenn ich unter "Seriendruck in E-Mail" als E-Mailformat "HTML" auswähle, werden die Mails...
  4. Serienbrief

    in Microsoft Word Hilfe
    Serienbrief: Hilfe! Ich finde bei den Karteireitern nicht "Sendungen", welches ich aber brauche zur Erstellung eines Serienbriefdokuments. Habe früher schon viel mit Serienbrief gearbeitet. Aber so komme ich...
  5. Serienbrief mit unveränderlichen Seriendruckfeldern

    in Microsoft Word Hilfe
    Serienbrief mit unveränderlichen Seriendruckfeldern: Hallo liebe Community, ich habe einen Serienbrief und als Grundlage eine Excel-Datei. Die Excel-Datei ist etwa 500 zeilen lang. Ich habe ein Makro, dass es mir ermöglicht die den Seriendruck...
  6. Nummerierung Serienbrief

    in Microsoft Word Hilfe
    Nummerierung Serienbrief: Ich habe mit MS Word 2010 Verträge als Seriendokument erstellt. Unter den einzelnen Paragrafen sind auch Nummerierungen auf geführt, von 1 - 6 oder nur 1 oder 1 - 2. Nach dem Zusammenführen des...
  7. Serienbrief aus Aufgabenkatalog

    in Microsoft Word Hilfe
    Serienbrief aus Aufgabenkatalog: Hallo zusammen, ich habe einen Serienbrief und möchte, dass dort Aufgabentexte in Abhängigkeit von einer ausgewählten Variante erscheinen. Beispielsweise gibt es für Aufgabe 1 drei Varianten. Der...
  8. Serienbrief zusätzliche Leerzeilen

    in Microsoft Word Hilfe
    Serienbrief zusätzliche Leerzeilen: Hi, ich habe hier ein Problem in Word 2007 für das ich bisher keine Lösung finden konnte. Es geht um Serienbrief und zusätzliche Leerzeilen. Ich habe bisher folgende Angaben in meinem Brief...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden