Word-Serienbrief in Excel mit VBA starten

[mdt8ws]

Hallo zusammen,

ich sitze nun schon 2 Stunden an einer Aufgabe und komme nicht weiter.
Mit einem Code möchte ich aus Excel über ein Makro (Schaltfläche) einen Serienbrief in Word öffnen,
der mit einer Excel-Datei, die allerdings einen Passwortschutz hat, automatisch verbunden wird.
Ich habe es mit dem angepassten, nachfolgenden Code nur bis zum Öffnen des Word-Dokuments geschafft,
jedoch fehlt die Verbindung zur Excel-Datei (Mitgliederdaten) und der Passwortabfrage.

Hier noch der Pfad für die Excel-Datei: C:\MEGA\Dokumente\Serienbriefe\Excel-Tabellen\Alle-Mitglieder.xlsx



Sub Serienbrief_starten()
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
AppWD.Documents.Open "C:\MEGA\Dokumente\Serienbriefe\Word-Vorlagen\Word-Vorlage.docx"
 
'hier deine Änderungen im Dokument
 
End Sub
 

Für Unterstützung wäre ich sehr dankbar !

MfG
Gerhard

[snb]

Verzichte auf 'Protection'.

[mdt8ws]

Hallo,

Danke erstmal für die Rückmeldung !
Ja, auf den Schutz verzichten wäre sicherlich der richtige Weg.
Es geht hier um eine Vereinsdatei (Mitglieder) und ich habe das Vergnügen
diese Datei neu zu bearbeiten und die Vorgabe ist leider mit Passwortschutz.

Gibt es denn eventuell eine Möglichkeit ?
Ich weiß, dass ist nicht einfach. Habe dazu auch schon einiges gelesen aber keine Lösung.

MfG
Gerhard

[WillWissen]

Hi,

[...] und ich habe das Vergnügen diese Datei neu zu bearbeiten und die Vorgabe ist leider mit Passwortschutz.

ich glaube, das hatten wir schon mal in einem anderen Thread? Passwortschutz in XL ist für die Katz'. Jeder halbwegs intelligente Mitteleuropäer, der in der Lage ist, Excel zu bedienen und der berühmten Tante G. eine Frage zu stellen, hebelt deinen "Schutz" binnen ein paar Sekunden aus!

[Glausius]

... und ich hatte schon in ähnlichen Tread darauf geantwortet, dass ich eine solche Lösung nicht bevorzuge, sondern den sogenannten Word-Serienbrief in einer Exceltabelle "nachempfinde" und damit direkt auf die Mitgliederdatei zugreifen kann, ohne den Umweg über Word zu gehen.
Ist m.E. viel einfach, sicherer und bei Änderungen oder Ergänzungen unproblematisch.

Ich rechne beispielsweise den Verbrauch einer Elektrogemeinschaft ab, wo es monatliche, halbjährliche und jähliche Zahler gibt und die dafür notwendigen Rechnungen und Briefe werden in Excel als Serienbriefe automatisch aus der Mitgliederliste erstellt. Geht wunderbar und schnell ohne den Umweg über Word.

[mdt8ws]

Hallo,

ok vielen Dank für die Info. Das Thema "Passwortschutz" haben wir (innerhalb unseres Vorstandes) nun abgehakt.
Das ist dann wirklich nicht sinnvoll.

Ich bin leider nicht fit im Thema VBA. Kann ich eventuell einen Vorschlag (Code) für die Umsetzung ohne Passwortschutz bekommen ?

MfG
Gerhard

[snb]

Wenn du eine Word Vorlage für Serienbrief hast, ist die Datei schon verlinkt mit eine Exceldatei; dann reicht die Worddatei zu öffnen und im Registerblatt Mailings, option Finish & Merg zu Klicken.
Man braucht dazu gar kein VBA.


Angehängte Datei:

Jede gezipte Datei auspacken im identische Folder.
Word-Datei öffnen, und dann mailing/ finish & Merge.

[mdt8ws]

Hallo,

ja diese Vorgehensweise kenne ich. Vielen Dank, auch für die Beispieldatei !

Ich habe halt vor die Serienbrieferstellung für meine Vorstandskollegen
möglichst automatisiert einzurichten, weil kaum Kenntnisse in Word und Excel bei den Kollegen vorhanden sind.

Vielleicht hat ja noch jemand einen Vorschlag.

MfG
Gerhard

[snb]

In Word:

PHP-Code:

Sub M_snb()
   activedocument.mailmerge.execute
End Sub 


[mdt8ws]

Hallo, 
ok Danke. Ich dachte an eine Erweiterung von meinem Code, so dass nach dem Öffnen der Word-Datei dann auch die Verbindung mit der Excel-Tabelle funktioniert, ohne Passwort.

MfG
Gerhard