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