'''' 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 SaveAsPdfUA    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,            .MarkAsPdfUa = True,            .MissingDocumentTitle = "<document title placeholder>",            .MissingShapeAlternativeText = "<alternative text placeholder>",            .MissingHyperlinkScreenTip = "<hyperlink screen tip placeholder>"        }        Return settings    End FunctionEnd Class