How do I delete a BLANK page in a word document using VBA?
23:41 13 Aug 2018 
Public Function DeleteBlankPages(wd As Word.Document)  
    Dim par As Paragraph
    For Each par In wd.Paragraphs
        If Len(par.Range.Text) <= 1 Then
            par.Range.Delete
        End If
    Next par       
End Function

I tried the above code segment but it doesn't delete the blank pages. Any help will be greatly appreciated.

vba ms-word