'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.LinqImports 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 FunctionEnd Class