Code: Select all
Set pdfDoc = CreateObject("CDIntf.Document")
pdfDoc.Open ("c:\scripts\test.pdf")
pdfDoc.Linearized = True
pdfDoc.Title = "Some Title"
pdfDoc.Author = "Some Author"
pdfDoc.Creator = "Some Creator"
pdfDoc.Subject = "Some Subject"
pdfDoc.Keywords = "Some Keywords"
pdfDoc.Save ("c:\scripts\test_new.pdf")