Kopie mit eingedrucktem Dateinnamen

Möchten Sie, dass der Eindruck des Dateinamens nur auf der Kopie des Dokuments erscheint, die bei Ihnen bleibt? Dann hilft folgendes Makro:

Sub KopieMitDateiname()

Dim myRange As Range

Set myDoc = ActiveDocument

myDoc.PrintOut Background:=False

Set myRange = myDoc.Sections(1).Footers(1).Range

myRange.Fields.Add Range:=myRange, Type:=wdFieldFileName, Text:="\p"

myDoc.PrintOut

myRange.Delete

End Sub