通过excel保存打开的PDF

Question

我正在尝试编写VBA脚本以通过VBA保存打开的PDF。我曾尝试使用adobe adk中提到的脚本，但是没有声明变量是否有保存pdf文件的通用脚本？

Set AcroApp = CreateObject("AcroExch.App")  
Set avdoc = AcroApp.GetActiveDoc  
If Not (avdoc Is Nothing) Then  
    Set PdDoc = avdoc.GetPDDoc  
    WasSaved = PdDoc.Save(PDSaveFull, "C:\")  
End If