Code: Select all
Private Sub changedocinfo_Click()
Dim pdfdoc As New CDIntfEx.Document
pdfdoc.Open ("C:\Temp\Test.pdf")
pdfdoc.Title = "Some Title"
pdfdoc.Author = "Some Author"
pdfdoc.Creator = "Some Creator"
pdfdoc.Subject = "Some Subject"
pdfdoc.Keywords = "Some Keywords"
pdfdoc.Save ("C:\Temp\NewTest.pdf")
Set pdfdoc = Nothing
End Sub