Word Makro vor Ausdruck ausführen

Hallo Admins,

gibt es eine Möglichkeit ein Makro in einen Worddokument auszuführen bevor das Dokument ausgedruckt wird?

Unter Excel soll das anscheinend mit BeforePrint funktionieren. Doch bei Word klappt das bei mir nicht.

Bin für jeden Tipp dankbar.

Gruß Joni

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 151458

Url: https://administrator.de/forum/word-makro-vor-ausdruck-ausfuehren-151458.html

Ausgedruckt am: 23.12.2024 um 12:12 Uhr

3 Kommentare

Neuester Kommentar

Hallo Joni!

In Word funktioniert das auch, nur etwas anders als z.B. in Excel.

Führe folgende Schritte aus:

Schritt 1: VB-Editor öffnen und in <Project(Dateiname)><ThisDocument> diesen Code einfügen (Registrierung der Ereignisprozedur):

Dim RegistryEventHandler As New EventClassModule

Private Sub Document_Open()
    Set RegistryEventHandler.AppWord = Word.Application
End Sub

Schritt 2: <ThisDocument><Rechte Maustaste> <Einfügen Klassenmodul>

Schritt 3: <Klassenmodul (Name)> "Klasse1" ändern nach "EventClassModule"

Schritt 4: <Klassenmodul (EventClassModule) diesen Code einfügen:

Public WithEvents AppWord As Word.Application

Private Sub AppWord_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
    MsgBox "Der Druckvorgang für das Dokument " & Doc & " wird abgebrochen!"  
    Cancel = True
End Sub

Schritt 5: <Debug><kompiliern von Project><Speichern>

Schritt 6: Dokument schließen und wieder öffnen oder im Klassenmodul ThisDocument die Subroutine "Document_Open manuell starten (Event-Registrierung ausführen)

Nach Erledigung der einzelnen Schritte, sollte Dir beim starten eines Druckvorgangs zu Testzwecken eine Meldung ausgegeben werden, wobei der Druckvorgang per Cancel= True abgebrochen wird.

Gruß Dieter

Hallo Dieter,

hat funktioniert, danke!

Gruß Joni

Ich belebe diesen Beitrag mal.

Ich habe in meinem Word Dokument ein MAKRO dass mir fortlaufend eine Nummer generiert.

Private Sub Document_New()

End Sub

Private Sub Document_Open()
Order = System.PrivateProfileString("J:\Settings.txt", _  
        "MacroSettings", "Order")  
    If Order = "" Then  
        Order = 1
    Else
        Order = Order + 1
    End If
System.PrivateProfileString("J:\Settings.txt", "MacroSettings", _  
        "Order") = Order  
ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#")  
ActiveDocument.SaveAs FileName:="path" & Format(Order, "00#")  

End Sub

Wie kann ich erreichen dass diese Nummer auch beim Drucken fortlaufend generiert wird?

Sagen wir die Nummer steht aktuell bei 002.
Jetzt öffne ich das Dokument und möchte es 10mal ausdrucken.

Wie erreiche ich nun, dass die Nummer auf allen Ausdrucken sich ändert??

gelöst Frage VB for Applications Entwicklung

Mehr von joni2000de

Attachments aller eingehenden Mails in Logfile speichern (Exchange 2010)joni2000de - 3 Kommentare

Wie kann ich das Eventlog reparieren?joni2000de - 3 Kommentare

Eventlog Druckjobs mit VBS auslesenjoni2000de - 4 Kommentare

Outlook 2010 Marco Empfängermailadresse(n) auslesen - nicht Anzeigenamejoni2000de - 10 Kommentare

Heiß diskutiert