ByteScout PDF SDK – VBScript and VB6 – Add Sound Annotation in PDF

Home
/
Articles
/
ByteScout PDF SDK – VBScript and VB6 – Add Sound Annotation in PDF

printable version:
ByteScout-PDF-SDK-VBScript-and-VB6-Add-Sound-Annotation-in-PDF.pdf

How to add sound annotation in PDF in VBScript and VB6 and ByteScout PDF SDK

How to code in VBScript and VB6 to add sound annotation in PDF with this step-by-step tutorial

Add sound annotation in PDF is easy to implement in VBScript and VB6 if you use these source codes below. What is ByteScout PDF SDK? It is the pdf library that can create, update and modify PDF files. Supports text with fonts and style selections, layers, form fields, drawing lines and objects, automatic tables, images. Can be used to create and fill pdf forms. It can help you to add sound annotation in PDF in your VBScript and VB6 application.

This rich sample source code in VBScript and VB6 for ByteScout PDF SDK includes the number of functions and options you should do calling the API to add sound annotation in PDF. Just copy and paste the code into your VBScript and VB6 application’s code and follow the instruction. Further enhancement of the code will make it more vigorous.

ByteScout PDF SDK free trial version is available on our website. VBScript and VB6 and other programming languages are supported.

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

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

AudioAnnotation.vbs

      ' This example demonstrates how to add an audio annotaion.

' 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 sound annotation
Set sound = comHelpers.CreateSound("sample.wav")
Set soundAnnotation = comHelpers.CreateSoundAnnotation((sound), 20, 20, 20, 20)
page1.Annotations.Add(soundAnnotation)

' 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