マクロを使ってワンクリックでMS Word（docx）をPDF形式で保存する

Question

次のマクロを編集してMS Word（.docx）ファイルをPDF形式でPDFとして保存するにはどうすればよいですか？ファイル名。つまり、マクロは完全に機能しますが、ファイルは常に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