< Windows samples

ContentReplacerTest - VB

This sample shows how to use pdftron.PDF.ContentReplacer to search and replace text strings and images in existing PDF (e.g. business cards and other PDF templates). Unlike PDF forms, the ContentReplacer works on actual PDF content and is not limited to static rectangular annotation regions.

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

Imports System

Imports pdftron
Imports pdftron.Common
Imports pdftron.Filters
Imports pdftron.SDF
Imports pdftron.PDF

Module ContentReplacerTestVB
	Dim pdfNetLoader As PDFNetLoader = pdftron.PDFNetLoader.Instance()

' The sample code illustrates how to use the ContentReplacer class to make using 
' 'template' pdf documents easier.

    Sub Main()


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

        ' Example 1) Update a business card template with personalized info
            Console.WriteLine("Opening the input file...")
			Using doc As PDFDoc = New PDFDoc(input_path + "BusinessCardTemplate.pdf")

				' first, replace the image on the first page
				Using replacer As ContentReplacer = New ContentReplacer()
					Dim page As Page = doc.GetPage(1)
					Dim img As Image = Image.Create(doc.GetSDFDoc(), input_path + "peppers.jpg")
					replacer.AddImage(page.GetMediaBox(), img.GetSDFObj())
					' next, replace the text place holders on the second page
					replacer.AddString("NAME", "John Smith")
					replacer.AddString("QUALIFICATIONS", "Philosophy Doctor")
					replacer.AddString("JOB_TITLE", "Software Developer")
					replacer.AddString("ADDRESS_LINE1", "#100 123 Software Rd")
					replacer.AddString("ADDRESS_LINE2", "Vancouver, BC")
					replacer.AddString("PHONE_OFFICE", "604-730-8989")
					replacer.AddString("PHONE_MOBILE", "604-765-4321")
					replacer.AddString("EMAIL", "info@pdftron.com")
					replacer.AddString("WEBSITE_URL", "http://www.pdftron.com")
					' finally, apply
				End Using

				doc.Save(output_path + "BusinessCard.pdf", 0)
			End Using
			Console.WriteLine("Done. Result saved in BusinessCard.pdf")
		Catch e As PDFNetException
		End Try

        ' Example 2) Replace text in a region with new text
			Using doc1 As PDFDoc = New PDFDoc(input_path + "newsletter.pdf")

				Dim replacer1 As ContentReplacer = New ContentReplacer()
				Dim page1 As Page = doc1.GetPage(1)
				replacer1.AddText(page1.GetMediaBox(), "hello hello hello hello hello hello hello hello hello hello")

				doc1.Save(output_path + "ContentReplaced.pdf", SDFDoc.SaveOptions.e_linearized)
			End Using
			Console.WriteLine("Done. Result saved in ContentReplaced.pdf")
		Catch e As PDFNetException
		End Try
    End Sub

End Module