'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports GrapeCity.Documents.WordImports GrapeCity.Documents.Word.Layout
Public Class SaveAsPdfA    Function CreateDocx() As GcWordDocument        Dim doc As GcWordDocument = New GcWordDocument()        doc.Load(Path.Combine("Resources", "WordDocs", "JsFrameworkExcerpt.docx"))        Return doc    End Function
    Public Shared Function GetPdfOutputSettings() As PdfOutputSettings        Dim settings = New PdfOutputSettings() With {            .ExportStructureTags = True,            .MissingDocumentTitle = "<document title placeholder>"        }        Return settings    End FunctionEnd Class