title: Deleting Blank Pages in Word Doc with VBA
body: <p>Trying to write a function to delete blank pages in a Word doc. Nothing gets deleted. I appreciate it if somebody can take a look. </p>
  
  <pre><code>Public Function DeleteBlankPages(wd As Word.Document, wdApp As Word.Application)  
      Dim par As Paragraph
      For Each par In wd.Paragraphs
          If IsEmpty(par.Range.Text) Then
              par.Range.Select
              wdApp.Selection.Delete
          End If
      Next par       
  End Function
  </code></pre>