Watermark
Represents background text that is helpful to mark any document as confidential or copyright etc. In this blog we will generate a watermark using VBA which will result like below:

Code example
Sub AddWatermark() Dim currentDocument As Document Set currentDocument = ActiveDocument currentDocument.Sections(1).Range.Select ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject, "TEST WATER MARK", "Arial", 1, False, False, 0, 0).Select With Selection.ShapeRange .TextEffect.NormalizedHeight = False .Line.Visible = False .Fill.Visible = True .Fill.Solid .Fill.ForeColor.RGB = RGB(192, 192, 192) .Fill.Transparency = 0.5 .Rotation = 315 .LockAspectRatio = True .Height = CentimetersToPoints(6.41) .Width = CentimetersToPoints(16.03) .WrapFormat.AllowOverlap = True .WrapFormat.Side = wdWrapNone .WrapFormat.Type = 3 .RelativeHorizontalPosition = _ wdRelativeVerticalPositionMargin .RelativeVerticalPosition = _ wdRelativeVerticalPositionMargin .Left = wdShapeCenter .Top = wdShapeCenter End With ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub
Please leave your comments or queries under comment section also please do subscribe to our blogs to keep your self upto date.