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