title: How do I delete a BLANK page in a word document using VBA?
body: <pre><code>Public Function DeleteBlankPages(wd As Word.Document)  
      Dim par As Paragraph
      For Each par In wd.Paragraphs
          If Len(par.Range.Text) &lt;= 1 Then
              par.Range.Delete
          End If
      Next par       
  End Function
  </code></pre>
  
  <p>I tried the above code segment but it doesn't delete the blank pages. 
  Any help will be greatly appreciated.</p>