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