Some test text!

Loading...
Guides

Office template generation in VB

More languages

More languages
C++
C#
C# (.NET Core)
Go
Java
Obj-C
JS (Node.js)
PHP
Python
Ruby
Swift
VB

Sample VB code for using PDFTron SDK to generate a PDF from an Office document template and a JSON string. Does not require any external dependencies or MS Office licenses. Learn more about our VB PDF Library and Office Template Generation.

Get Started Samples Download

To run this sample, get started with a free trial of PDFTron SDK.

'
' Copyright (c) 2001-2021 by PDFTron Systems Inc. All Rights Reserved.
'

Imports pdftron
Imports pdftron.Common
Imports System.Text
Imports pdftron.SDF
Imports pdftron.PDF


' The following sample illustrates how to use the PDF::Convert utility class to convert 
' .docx files to PDF and replace templated tags present in the document with content supplied via json
'
' For a detailed specification of the template format and supported features,
' see: https://www.pdftron.com/documentation/core/guides/generate-via-template/data-model/
'
' This conversion is performed entirely within the PDFNet and has *no* external or
' system dependencies dependencies 
'
' Please contact us if you have any questions.	
Module OfficeToPDFTestVB
    Dim pdfNetLoader As PDFNetLoader
    Sub New()
        pdfNetLoader = pdftron.PDFNetLoader.Instance()
    End Sub

    ' Relative path to the folder containing test files.
    Dim input_path As String = "../../../../TestFiles/"
    Dim output_path As String = "../../../../TestFiles/Output/"
    Dim input_filename As String = "SYH_Letter.docx"
    Dim output_filename As String = "SYH_Letter.pdf"

    Sub Main()

        PDFNet.Initialize(PDFTronLicense.Key)

        Try
            Using pdfdoc As PDFDoc = New PDFDoc
                Dim builder As New StringBuilder()
                builder.Append("{""dest_given_name"": ""Janice N."", ""dest_street_address"": ""187 Duizelstraat"", ""dest_surname"": ""Symonds"", ""dest_title"": ""Ms."", ""land_location"": ""225 Parc St., Rochelle, QC "",")
                builder.Append("""lease_problem"":""According To the city records, the lease was initiated In September 2010 And never terminated"", ""logo"": {""image_url"": """ + input_path + "logo_red.png"", ""width"" : 64, ""height"" : 64},")
                builder.Append("""sender_name"": ""Arnold Smith""}")
                Dim json As String = builder.ToString()
                Dim options As OfficeToPDFOptions = New OfficeToPDFOptions()
                options.SetTemplateParamsJson(json)

                ' perform the conversion with template delimiters and content dictionary
                pdftron.PDF.Convert.OfficeToPDF(pdfdoc, input_path + input_filename, options)

                ' save the result
                pdfdoc.Save(output_path + output_filename, SDFDoc.SaveOptions.e_linearized)

                ' And we're done!
                Console.WriteLine("Saved " + (output_path + output_filename))
            End Using

        Catch ex As PDFNetException

            Console.WriteLine(ex.Message)

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        PDFNet.Terminate()

    End Sub

End Module

Upcoming Webinar: How Developers Add Office Viewing Without Downloading | June 9th at 11 am PT

PDFTron SDK

The Platform

NEW

© 2022 PDFTron Systems Inc. All rights reserved.

Privacy

Terms of Use