Dim objPDF, strInputDir, strFilename
Set objPDF = Watch.GetPDFEditObject
strInputDir = "C:/in/" 'Watch.GetVariable("InputDir")
strFilename = "example.pdf" 'Watch.GetVariable("Filename")
objPDF.Open Watch.GetJobFileName, False
objPDF.Pages.InsertFrom strInputDir & strFilename, 0, -1, objPDF.Pages.Count
objPDF.Save False
objPDF.Close
Set objPDF = Nothing