''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System.IO
Imports System.Linq
Imports GrapeCity.Documents.Word

Public Class RemoveEmptyPages
    Function CreateDocx() As GcWordDocument
        Dim doc = New GcWordDocument()
        doc.Load(Path.Combine("Resources", "WordDocs", "empty-pages.docx"))
        doc.Body.Replace("&m&m", "")
        doc.Body.Replace("&b&p&b", "")
        doc.Body.Replace("&m&p&p&b", "&p")
        doc.Body.Replace("&b&m", "")
        Return doc
    End Function
End Class