Automatisches Datum und Speicherort beim Drucken

[Nimbin]

Hi,

ich hatte mal ein ähnliches Problem und mich mit diesem Makro beholfen.
Es erzeugt dir automatisch auf jeder Seite des aktiven Dokuments einen Pfad- und einen Datumsstempel.

Mit 'Undo' kannst du die Aktion komplett rückgängig machen.
Also:
Schriftgrad und Größe in der Leiste einstellen -> Makro starten -> Drucken -> Undo

Gruß,
Nimbin


Sub PfadZeitStempel()

Dim i As Long
Dim doc As Document
Dim p As Page
Dim s As Shape

Set doc = ActiveDocument
doc.Unit = cdrMillimeter

doc.BeginCommandGroup "Pfad und Zeit Stempel"
For i = 1 To doc.Pages.Count
Set p = doc.Pages(i)

'*** 20 und 5 sind die Koordinaten in Millimeter gemessen von links unten ***
Set s = p.ActiveLayer.CreateArtisticText(20, 5, doc.FullFileName)
Set s = p.ActiveLayer.CreateArtisticText(190, 5, Date)

Next i
doc.EndCommandGroup
End Sub