ByteScout PDF Suite – VBScript – Enable superscript or subscript for text in pdf with pdf sdk

Home
/
Articles
/
ByteScout PDF Suite – VBScript – Enable superscript or subscript for text in pdf with pdf sdk

printable version:
ByteScout-PDF-Suite-VBScript-Enable-superscript-or-subscript-for-text-in-pdf-with-pdf-sdk.pdf

enable superscript or subscript for text in pdf with pdf sdk in VBScript and ByteScout PDF Suite

Learn to code in VBScript to make enable superscript or subscript for text in pdf with pdf sdk with this simple How-To tutorial

ByteScout tutorials describe the stuff for programmers who use VBScript. ByteScout PDF Suite was created to assist enable superscript or subscript for text in pdf with pdf sdk in VBScript. ByteScout PDF Suite is the bundle that provides six different SDK libraries 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.

This rich and prolific sample source code in VBScript for ByteScout PDF Suite contains various functions and options you should do calling the API to implement enable superscript or subscript for text in pdf with pdf sdk. Follow the steps-by-step instructions from the scratch to work and copy and paste code for VBScript into your editor. Further improvement of the code will make it more robust.

Trial version can be downloaded from our website for free. It contains this and other source code samples for VBScript.

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

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

SuperscripAndSubscript.vbs

      ' This example demonstrates how to create a document and save it to file.

' 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)

Set font = comHelpers.CreateSystemFont("Arial", 16)
Set brush = comHelpers.CreateSolidBrush(comHelpers.CreateColorGray(0))
Set stringFormat = comHelpers.CreateStringFormat()
xPosition = 20

' Draw normal string
page1.Canvas.DrawString_4 "Normal text ", (font), (brush), xPosition, 50, (stringFormat)
xPosition = xPosition + font.GetTextWidth("Normal text ")

' Draw subscript string 
stringFormat.Rise = -5
page1.Canvas.DrawString_4 "Subscript", (font), (brush), xPosition, 50, (stringFormat)
xPosition = xPosition + font.GetTextWidth("Subscript")

' draw superscript string
stringFormat.Rise = +5
page1.Canvas.DrawString_4 "Superscript", (font), (brush), xPosition, 50, (stringFormat)
xPosition = xPosition + font.GetTextWidth("Superscript")

' Draw the baseline
Set pen = comHelpers.CreateSolidPen(comHelpers.CreateColorRGB(0, 0, 255), 1.0)
pen.Opacity = 50
page1.Canvas.DrawLine (pen), 20, 50 + font.Size, xPosition, 50 + font.Size

' 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