在Mac OS X上将MS word（docx）保存为pdf，只需单击一下即可使用宏

Posted 2021-03-31

我有一个关于如何编辑以下宏的问题，以便在文件名中没有.docx的macOS Sierra上将MS word（.docx）文件保存为PDF。也就是说，宏完美地工作，但它总是保存文件，例如letter.docx.pdf。这是一个非常简单的选项，只需点击一下即可保存为pdf。

如果有人可以帮我修改下面的宏，以便文件名中没有.docx，我将不胜感激。我试图在Finder中隐藏扩展，但这似乎没有帮助：

---

Sub SaveActiveDocAsPDF()

On Error Resume Next

ActiveDocument.SaveAs _
fileName:=ActiveDocument.FullName & ".pdf", _
FileFormat:=wdFormatPDF
End Sub

---

非常感谢你提前。

答案

您需要在添加新文件扩展名之前删除现有文件扩展名。像这样：

Sub SaveActiveDocAsPDF()

On Error Resume Next

Dim saveName As String
saveName = ActiveDocument.FullName
saveName = Left(saveName, Len(saveName) - 5) & ".pdf"

ActiveDocument.SaveAs fileName:=saveName, _
FileFormat:=wdFormatPDF
End Sub