把当前Wordw文档，一键另存为PDF，且另存到指定的位置。另存为PDF后，打开PDF；

Sub savetoPDF()

ActiveDocument.ExportAsFixedFormat Split(ActiveDocument.Path, "F")(0) & "_Onsite_Photos.pdf", wdExportFormatPDF, True


End Sub

　　把当前Wordw文档，一键另存为PDF，且另存到指定的位置。另存为PDF后，打开PDF；