Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Makro ausführen bei Seriendruck in neues Dokument
zurück: doppelte Parameter abfrage bei Word Vorlage weiter: Mehrere Etiketten pro Seite Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
websven
Standard-Anwender, der lernen will :-)


Verfasst am:
02. Feb 2009, 20:19
Rufname:

Makro ausführen bei Seriendruck in neues Dokument - Makro ausführen bei Seriendruck in neues Dokument

Nach oben
       Version: Office 2003

Hallo Forum,

ich such mir hier schon einen Wolf find aber nix zu dem Thema (oder bin mal wieder zu blöd für die richtigen Suchbegriffe).

Ich habe eine Seriendruckvorlage. Nun möchte ich per Makro ein paar Feldinhalte vor der Erzeugung "Seriendruck in neues Dokument" ändern. Die Datenquelle ist eine TXT-Datei, welche von einem Programm mit Datenbank generiert wird - also kann ich da direkt leider nix ändern.

Es muss doch möglich sein ein Makro beim bzw. vorm Druck in ein neues Dokument auszuführen ? Confused Confused

Gruß Sven

_________________
Danke für jede Hilfe, und Bitte, falls ich jemanden Helfen konnte Smile
UND - wer Tippfehler findet kann sie behalten.
klein-artur
Gast


Verfasst am:
09. Okt 2009, 09:51
Rufname:


AW: Makro ausführen bei Seriendruck in neues Dokument - AW: Makro ausführen bei Seriendruck in neues Dokument

Nach oben
       Version: Office 2003

Das ist kein leichtes Ding:

du musst erstmal eine Klasse erstellen. Sagen wir die Klasse Class_Events.

Hier musst du folgenden Quellcode schreiben

Code:
Public WithEvents App as Word.Application


Danach kannst du unter den beiden Dropdownfelder links den Deklarationsnamen auswählen und rechts die dazugehörigen Events. Da gibt es dann die MailMerge... Events, musst das richtige rausfinden. Z. B:

Code:

Private Sub App_MailMergeAfterRecordMerge(ByVal Doc As Document)
    MsgBox ("Hallo Welt!")
End Sub


In diesem Fall gibt er bei jedem Merge eines Datensatzes die MsgBox aus.

In einem anderen Modul oder von mir aus unter "ThisDocument" musst du dann folgendes Sub eingeben und ausführen:

Code:
Dim X As New Class_Events
Sub Register_Event_Handler()
    Set X.App = Word.Application
End Sub


Mit dem Dim befehl erstellst du eine Referenz der Klasse Class_Events, ich hoffe Klassenprogrammierung ist dir schon bekannt?
Damit hast du deine Word.Application Referenz mit dem EventHandler verbunden.

Nun wird dein Sub ausgeführt wenn das Event eintritt.

Artur
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: !DIRGEND! Seriendruck 3 red-uja 984 16. Apr 2007, 12:31
Angel1069 !DIRGEND! Seriendruck
Keine neuen Beiträge Word Serienbriefe: Seriendruck, Textfelder und Fabren ändern 1 Unbreakable 1505 05. Apr 2007, 14:33
Unbreakable Seriendruck, Textfelder und Fabren ändern
Keine neuen Beiträge Word Serienbriefe: Dokument aus Kopfzeile verschwindet bei Zusammenführung 7 Gast 2011 15. März 2007, 11:04
Gast Dokument aus Kopfzeile verschwindet bei Zusammenführung
Keine neuen Beiträge Word Serienbriefe: Seriendruck soll aus Excel 1 von 2 Adressen eintragen 1 ichivonnche 1117 21. Feb 2007, 14:33
ichivonnche Seriendruck soll aus Excel 1 von 2 Adressen eintragen
Keine neuen Beiträge Word Serienbriefe: Seriendruck: Druckdatei vergisst Datenquelle 8 trudel 3633 19. Jan 2007, 15:37
trudel Seriendruck: Druckdatei vergisst Datenquelle
Keine neuen Beiträge Word Serienbriefe: Seriendruck - aber wie ??? 3 Bommer 2924 29. Nov 2006, 17:38
Betty2004 Seriendruck - aber wie ???
Keine neuen Beiträge Word Serienbriefe: Seriendruck - Fehler beim Öffnen einer Datenquelle 3 SuchenderKäfer 6492 12. Okt 2006, 08:51
SuchenderKäfer Seriendruck - Fehler beim Öffnen einer Datenquelle
Keine neuen Beiträge Word Serienbriefe: Word dokument direkt in DB speichern 0 jonnyatnet 1112 31. Aug 2006, 14:23
jonnyatnet Word dokument direkt in DB speichern
Keine neuen Beiträge Word Serienbriefe: Fenster öffnet sich im Seriendruck mit word2002 0 08151418 791 12. Aug 2006, 10:56
08151418 Fenster öffnet sich im Seriendruck mit word2002
Keine neuen Beiträge Word Serienbriefe: Seriendruck mir Word und Excel 2000 0 lofodan 2022 19. Jun 2006, 17:08
lofodan Seriendruck mir Word und Excel 2000
Keine neuen Beiträge Word Serienbriefe: Seriendruck mit vorgefertigten Absätzen 2 kraemer 1088 18. Mai 2006, 09:07
kraemer Seriendruck mit vorgefertigten Absätzen
Keine neuen Beiträge Word Serienbriefe: Word 2003; Beim Seriendruck werden Felder gelöscht ???? 4 boris2307 2092 30. Apr 2006, 22:19
boris2307 Word 2003; Beim Seriendruck werden Felder gelöscht ????
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum