Sub Test() With ActiveDocument.PDFSettings Bookmarks = True Hyperlinks = True Thumbnails = True End With ActiveDocument.PublishToPDF "C:\MyDocument.pdf"End Sub