VBScript Requires Chilkat v11.7.0+

Why a PDF Optimization Was Skipped

See more PDF Optimization Examples

Demonstrates the "skipped" array, which lists the options that were asked for but not applied, each with a reason and, where it is page-specific, the pages. An option is skipped when it is reserved for a later release (mergeFontSubsets, compactType1Fonts), when the rules of the file forbid it (objectStreams in a PDF/A-1 file), or when the content could not be parsed safely (tidyContent and coalesceContent on a page whose content stream the parser does not understand). Nothing is ever changed on a guess: an option that cannot be applied safely is skipped and reported. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

'  The PDF used in this example is available at grand_canyon_hiking_guide.pdf

set pdf = CreateObject("Chilkat.Pdf")
success = pdf.LoadFile("qa_data/pdf/grand_canyon_hiking_guide.pdf")
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

'  Ask for the two options that are reserved for a later release.
set json = CreateObject("Chilkat.JsonObject")
success = json.UpdateBool("mergeFontSubsets",1)
success = json.UpdateBool("compactType1Fonts",1)

set jsonOut = CreateObject("Chilkat.JsonObject")
success = pdf.Optimize("audit",json,jsonOut)
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

i = 0
numSkipped = jsonOut.SizeOfArray("skipped")
outFile.WriteLine("skipped: " & numSkipped)
Do While i < numSkipped
    jsonOut.I = i
    outFile.WriteLine("   " & jsonOut.StringOf("skipped[i].option") & " - " & jsonOut.StringOf("skipped[i].reason"))
    i = i + 1
Loop

'  A skipped option is not a failure: Optimize returns true, the other options are applied, and the
'  report says exactly what was left undone.

outFile.Close