使用宏一键在 Mac OS X 上将 MS word (docx) 保存为 pdf

Question

我有一个关于如何编辑以下宏以在 macOS Sierra 上将 MS word (.docx) 文件另存为 PDF 的问题，而文件名中没有 .docx。也就是说，宏可以完美运行，但它总是将文件保存为例如 letter.docx.pdf。一键保存为pdf是一个非常简单的选择。

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

---

Sub SaveActiveDocAsPDF()

On Error Resume Next

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

---

非常感谢您。

Answer 1

您需要先删除现有的文件扩展名，然后再添加新的扩展名。像这样：

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