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