vba word另存为PDF

 

Sub 另存为PDF()
s = ActiveDocument.Name
i = InStrRev(s, ".") - 1
ActiveDocument.SaveAs2 filename:=ActiveDocument.Path & "\" & Left(s, i) & ".PDF", FileFormat:=17
End Sub

  

posted @ 2023-01-27 22:12  沭水之虾  阅读(475)  评论(0编辑  收藏  举报