在 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