VBScript Requires Chilkat v11.7.0+

Replace Text in a Signed PDF (PreserveSignatures)

See more PDF Text Replacement Examples

Applying a text replacement rewrites the page content, which invalidates any digital signature on the PDF. While the PreserveSignatures property is true (the default), "apply" is refused on a signed PDF; "check" only reads and is always allowed. Setting PreserveSignatures to false allows the replacement; the signature field stays in the written PDF but no longer verifies, so the document should be signed again afterwards if a signature is wanted. 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 invoice_signed.pdf

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

outFile.WriteLine("Signatures: " & pdf.NumSignatures)

set json = CreateObject("Chilkat.JsonObject")
success = json.UpdateString("labels[0].label","Invoice Number:")
success = json.UpdateString("labels[0].value","INV-2026-0500")

'  "check" reads only, so it works on a signed PDF.
set jsonOut = CreateObject("Chilkat.JsonObject")
success = pdf.TextReplace("check",json,jsonOut)
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("check: ok = " & jsonOut.BoolOf("ok"))

'  "apply" is refused while PreserveSignatures is true (the default).
success = pdf.TextReplace("apply",json,jsonOut)
If (success = 0) Then
    outFile.WriteLine("apply refused: " & pdf.LastErrorText)
End If

'  Allowing the signature to be broken:
pdf.PreserveSignatures = 0
success = pdf.TextReplace("apply",json,jsonOut)
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("applied: " & jsonOut.BoolOf("applied"))

'  The written PDF is a full rewrite with the replacement.  The signature field is still in the document,
'  but the bytes it signed are gone, so it no longer verifies.
success = pdf.WriteFile("qa_output/invoice_reissued_broken_signature.pdf")
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Signatures after writing: " & pdf.NumSignatures)
set sigInfo = CreateObject("Chilkat.JsonObject")
validated = pdf.VerifySignature(0,sigInfo)
outFile.WriteLine("Signature 0 verifies: " & validated)

'  Sample output:

'  Signatures: 1
'  check: ok = true
'  apply refused: ChilkatLog:
'    TextReplace:
'      DllDate: Nov  7 2026
'      ChilkatVersion: 11.7.0
'      UnlockPrefix: CHLKAT
'      UnlockStatus: 2
'      Architecture: Little Endian; 64-bit
'      Language: Visual C++ 11.0 / x64
'      VerboseLogging: 0
'      replaceTextOp:
'        op: apply
'        The PDF is signed: replacing text rewrites the content and invalidates the signatures (set PreserveSignatures = false to allow it).
'      --replaceTextOp
'      Failed.
'    --TextReplace
'  --ChilkatLog
'  
'  applied: true
'  Signatures after writing: 1
'  Signature 0 verifies: false

outFile.Close