从共享驱动器加载的Word文档的本地副本不使用VBA saveas PDF方法。不保存文档

Question

我有一个宏在共享驱动器中工作正常，只有一个/第一个人访问。当第二个人仍然打开它时，第二个人访问它时，它表示它已经打开。当我单击“创建本地副本并稍后合并更改”时，宏将一直运行，直到它保存文件。

宏基本上调用userform来收集信息，填写文档，然后它应该将文档作为PDF保存到桌面。由于某种原因，PDF不会保存在本地副本中。当“跟随超链接”出现时，它显示“错误4198，命令失败”。我检查我的桌面，文件不在那里，让我相信这个错误与文件没有被创建有关....

我只需要宏来允许将文档作为pdf保存到他们的桌面，无论它们是正常版本，还是作为共享驱动器规则的副产品创建的本地副本。

Main_Form.hide
enviro = CStr(Environ("USERPROFILE"))
sName = Format(Date, "mm-dd-yyyy") & " Denial Letter - Invoice " & Invoice_Text.Value & ".pdf"
sPath = enviro & "\Desktop\"
ThisDocument.SaveAs2 FileName:=sPath & sName, fileformat:=wdFormatPDF
fullName = sPath & sName

ThisDocument.FollowHyperlink fullName
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

Answer 1

使用模板（dotm），而不是文档。从模板创建新文档，这样就没有文档“锁定”。

另外，不要使用ThisDocumentas，具体是指VBA代码所在的文档，而是使用ActiveDocument。