Insert a watermark

[newcodeboy]

Hi good morning, i am new user and I'm starting in the world of VBA programming, I am currently trying to insert a watermark with the current date, my question is: how do I delete the watermark and date without erasing all the header? because when I use the Luke code headers of the document is deleted.




Thanks in advance for your help and discuple the google translator xD


Attachment 14631


this is the date code that I want to delete

Sub Fecha()
    ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes.AddTextEffect( _
    PowerPlusWaterMarkObject244368608, "              " & _
    Format(Now(), "dd/mm/yyyy"), "Arial", 1, False, False, 0, 0).Select
    Selection.ShapeRange.TextEffect.NormalizedHeight = False
    Selection.ShapeRange.Line.Visible = False
    Selection.ShapeRange.Fill.Visible = True
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192)
    Selection.ShapeRange.Fill.Transparency = 0.4
    Selection.ShapeRange.Rotation = 315
    Selection.ShapeRange.LockAspectRatio = True
    Selection.ShapeRange.Height = CentimetersToPoints(6.1)
    Selection.ShapeRange.Width = CentimetersToPoints(4.34)
    Selection.ShapeRange.WrapFormat.AllowOverlap = True
    Selection.ShapeRange.WrapFormat.Side = wdWrapNone
    Selection.ShapeRange.WrapFormat.Type = 6
    Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeVerticalPositionMargin
    Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
    Selection.ShapeRange.Left = wdShapeCenter
    Selection.ShapeRange.Top = wdShapeCenter
    Selection.ShapeRange.IncrementTop 55
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

In short I want to delete the date and watermark without deleting the logo that is in the header, there is a parameter?

[newcodeboy]

fu8h8g.jpg