Hallo,
ich versuche in Word 2003 per Makro ein Wasserzeichen in ein Dokument einzufügen. Manuell über Format / Hintergrund / Gedrucktes Wasserzeichen funktioniert das. Wenn ich die selbe Aktion als Makro aufzeichne und ausführe, überdeckt das
Wasserzeichen meine Kopf- und Fußzeile im Dokument. Sobald ich das Wasserzeichen lösche ist meine Kopf- und Fußzeile wieder sichtbar. Hat irgendjemand Erfahrung damit und vielleicht einen Tipp für mich?
Vielen Dank im Voraus!
Hier ist noch das aufgezeichnete Makro:
ActiveDocument.Sections(1).Range.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddPicture(FileName:= _
"P:\Documents\Wasserzeichen.bmp", LinkToFile:=False, _
SaveWithDocument:=True).Select
Selection.ShapeRange.Name = "WordPictureWatermark1"
Selection.ShapeRange.PictureFormat.Brightness = 0.5
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.LockAspectRatio = True
Selection.ShapeRange.Height = CentimetersToPoints(27.3)
Selection.ShapeRange.Width = CentimetersToPoints(19.66)
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapNone
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
