Sub Test() With ActiveDocument.PDFSettings .Author = "Graphix Design, Inc" .Keywords = "Animals, Farm, Bulls" .Subject = "Animal Farms" End With ActiveDocument.PublishToPDF "C:\MyFarm.pdf"End Sub