MS Word: Remove watermark from all Word pages using VBA

By | March 28, 2008 | 11 Comments
Category: MS Word Tags: , ,

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

About Vishal Monpara

Vishal Monpara is a full stack Solution Developer/Architect with 13 years of experience primarily using Microsoft stack. He is currently working in Retail industry and moving 1's and 0's from geographically dispersed hard disks to geographically dispersed user leveraging geographically dispersed team members.

11 thoughts on “MS Word: Remove watermark from all Word pages using VBA

  1. Alana

    Wow and thanks Vishal; very much appreciated! I’m new to VBA in Word and Excel, and this was perfect in Word! Haven’t done macros in over 2 decades and needed to jump back on it.


Leave a Reply

Your email address will not be published. Required fields are marked *