MS Word: Remove watermark from all Word pages using VBA
You can create watermark in MS Word document by going to Format Menu > Background > Printed Watermarks… Here you will be able to set Text Watermark in each page. Now if you want to remove the watermark from all pages, use the following VBA script.
Dim section As Word.section
Dim pheadertype As Long
Dim hdr As Range
Dim sp As Shape
Dim str As String
For Each section In ActiveDocument.Sections
With section
Set hdr = .Headers(wdHeaderFooterFirstPage).Range
For Each sp In hdr.ShapeRange
str = sp.Name
If InStr(str, "PowerPlusWaterMarkObject") > 0 Then
sp.Visible = msoFalse
End If
Next
Set hdr = .Headers(wdHeaderFooterPrimary).Range
For Each sp In hdr.ShapeRange
str = sp.Name
If InStr(str, "PowerPlusWaterMarkObject") > 0 Then
sp.Visible = msoFalse
End If
Next
End With
Next

Thanks
Worked like a charm…
dm
Good work Vishal. you have done a great job and your invention become useful to people who use Microsoft word
Good work Vishal. you have done a great job and your invention become useful to people who use Microsoft word.
_________________________________________________________________________
Alex
Good work Vishal. You have created watermark in Microsoft word that benefit many people. Well done!!
__________________________________________________________________________
Micheal Smith
hi Vishal
how to do this in word 2007.
This if for a MS Word document. I have WordPerfect.