Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Datenbanken

Datenbanken

Fragevon micky1976 vom 10.01.2020, 11:30 Options

Serienbrief in Word 2000 über Access 2000 öffnen

Hallo Access-Freaks,

ich habe in Word 2000 einen Serienbrief erstellt, welche die Daten aus Access 2000 (Kontakte) entnehmen soll. Ich habe auch die Datenquelle (Kontakte) hinterlegt und mitabgespeichert.

Wenn ich nun über Access den Serienbrief (eigener Button) anklicke, öffnet sich zwar der Serienbrief, aber er erkennt die Datenquelle nicht!! Ich müsste nun jedesmal die Datenquelle neu eingeben, was etwas umständlich wäre....

Den Button zum öffenen des Serienbriefes habe ich wie folgt angelegt:

Private Sub Befehl367_Click()
On Error GoTo Err_Word_Click

Dim oApp As Object
Dim strFile As String

Set oApp = CreateObject("Word.Application")
oApp.Visible = True
oApp.Documents.Open "\\Server1\medwiss\Kontakt-Datenbank\Etiketten Export\Etiketten quer_4-er_Export_GL_2. Adresse.doc "
Set oApp = Nothing

Exit_Word_Click:
Exit Sub

Err_Word_Click:
MsgBox Err.Description
Resume Exit_Word_Click

End Sub

Bitte um Hilfe, warum die Datenquelle nicht vorhanden ist bzw. bleibt!!!

1000-Dank!

Ein Access-Anfänger

Antwort schreiben

Antwort 1 von Marie vom 11.01.2020, 03:52 Options

   WObjekt.Documents.Open Filename:=DocPath + "DeinDokument", PasswordDocument:=vstrPasswort
    WObjekt.Documents("DeinDokument").Activate

    'Beim Schliessen oder eventuell bei Fehler "Datenquelle nicht gefunden" Seriendruck lösen
    'ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
               
    ' Seriendruck ausführen
    With WObjekt.ActiveDocument.MailMerge
        'neu verknüpfen mit Datenquelle
        .MainDocumentType = wdFormLetters
        .OpenDataSource Name:=DataPath & DatenDatei
        'Leerzeilen nicht auslassen
        .SuppressBlankLines = False
        .Destination = wdSendToNewDocument
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=True
    End With

    Serienbrief = WObjekt.ActiveDocument.Name
    WObjekt.ActiveDocument.Protect Password:="DeinPasswort", NoReset:=False, Type:=wdAllowOnlyFormFields
    
    'Serienbrief speichern, in Verzeichnis der zuletzt geöffneten Dateien eintragen und Schriftart einbetten
    WObjekt.ActiveDocument.SaveAs Filename:=Path + Dateiname, _
                                  FileFormat:=wdFormatDocument, _
                                  AddToRecentFiles:=True, _
                                  EmbedTrueTypeFonts:=True

Wurschtel Dich mal durch, der Code funktioniert bei mir seit Jahren.

Gruß Marie

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken