Hallo allle zusammen,
ich brauche ein kleinen Denkanstoß oder eine Idee. Also ich will folgendes bauen:
1. Eine Word-Vorlage
2. Diese Vorlage ist mit Eingabefelder gefüllt die der Bearbeiter auszufüllen hat - egal
3. An der linken Seite des Dokuments ist ein Textfeld wo drin steht "Ausfertigung für den blabla" (Das soll einmal gedruckt werden)
4. Jetzt soll direkt nachdem Drucken das Textfeld automatisch geändert werden in "Ausfertigung für blabla2" und dann muss wieder ausgedruckt werden.
5. Und das ganze nocheinmal. Und dann Fertig.
Zum Schlüss möchte ich dann gerne 3 Ausfertigungen haben mit unterschiedlichen Seitenbeschriftungen.
Ich habe schon mal ein bisschen per VBA rum probiert aber so wirklich will es noch nicht klappen. Die erste Seite kommt richtig raus, die zweite Seite ist dann gleich der ersten Seite. Und die letzte Seite ist dann wieder richtig.
Hier mal mein Quellcode:
ThisDocument:
Code:
Option Explicit
Dim oAppClass As New ThisApplication
Private Sub Document_New()
Set oAppClass.oApp = Word.Application
End Sub
ThisApplication:
Code:
Option Explicit
Public WithEvents oApp As Word.Application
Public Function fnWait(intNrOfSeconds As Integer)
Dim varStart As Variant
varStart = Timer
Do While Timer < varStart + intNrOfSeconds
Loop
End Function
Private Sub oApp_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
ActiveDocument.Shapes(1).Select
Selection.TypeText ("Ausfertigung für 1234 ")
ThisDocument.PrintOut Background:=False, Copies:=1
fnWait (3)
ActiveDocument.Shapes(1).Select
Selection.TypeText ("Ausfertigung für 1234567 ")
ThisDocument.PrintOut Background:=False, Copies:=1
End Sub
Irgendjemand eine Idee?
Vielen Dank für eure Hilfe.
Gruss
Osiris1337