ByteScout PDF Suite – VBScript – Create uri (link) action in pdf with pdf sdk

Home
/
Articles
/
ByteScout PDF Suite – VBScript – Create uri (link) action in pdf with pdf sdk

printable version:
ByteScout-PDF-Suite-VBScript-Create-uri-(link)-action-in-pdf-with-pdf-sdk.pdf

How to create uri (link) action in pdf with pdf sdk in VBScript using ByteScout PDF Suite

How to write a robust code in VBScript to create uri (link) action in pdf with pdf sdk with this step-by-step tutorial

The coding instructions are formulated to help you to try-out the features without the requirement to write your own code. ByteScout PDF Suite is the set that includes 6 SDK products to work with PDF from generating rich PDF reports to extracting data from PDF documents and converting them to HTML. This bundle includes PDF (Generator) SDK, PDF Renderer SDK, PDF Extractor SDK, PDF to HTML SDK, PDF Viewer SDK and PDF Generator SDK for Javascript. It can be applied to create uri (link) action in pdf with pdf sdk using VBScript.

The SDK samples given below describe how to quickly make your application do create uri (link) action in pdf with pdf sdk in VBScript with the help of ByteScout PDF Suite. IF you want to implement the functionality, just copy and paste this code for VBScript below into your code editor with your app, compile and run your application. Complete and detailed tutorials and documentation are available along with installed ByteScout PDF Suite if you’d like to learn more about the topic and the details of the API.

Trial version of ByteScout PDF Suite is available for free. Source code samples are included to help you with your VBScript app.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

UriAction.vbs

      ' This example demonstrates how to create URI (link) action.

' Create Bytescout.PDF.Document object
Set pdfDocument = CreateObject("Bytescout.PDF.Document")
pdfDocument.RegistrationName = "demo"
pdfDocument.RegistrationKey = "demo"

Set comHelpers = pdfDocument.ComHelpers

' Add page
Set page1 = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4)
pdfDocument.Pages.Add(page1)

' Add button
Set button1 = comHelpers.CreatePushButton(20, 20, 150, 25, "button1")
button1.Caption = "BYTESCOUT.COM"
' Add URI action
Set uriAction = comHelpers.CreateURIAction("https://bytescout.com/")
button1.OnActivated = uriAction
page1.Annotations.Add(button1)

' Save document to file
pdfDocument.Save("result.pdf")

' Open document in default PDF viewer app
Set shell = CreateObject("WScript.Shell")
shell.Run "result.pdf", 1, false