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

Question

我有一个宏，当只有 one/first 个人访问时，它在共享驱动器中运行良好。当第二个人访问它而第一个人仍然打开它时，它说它已经打开了。当我单击 "create a local copy and merge changes later" 时，宏将运行直到它保存文件。

该宏主要调用用户窗体来收集信息、填写文档，然后将文档以 PDF 格式保存到桌面。由于某种原因，PDF 未保存在本地副本版本中。当 "Follow hyperlink" 出现时，它显示 "Error 4198, command failed"。我检查了我的桌面，但文件不在那里，让我相信这个错误与未创建的文件有关....

我只需要宏来允许文档以 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)，而不是文档。从模板创建新文档，这样就不会有文档"lock"。

此外，不要使用 ThisDocument，因为那表示 VBA 代码所在的文档，请改用 ActiveDocument。

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

Local copy of word document loaded from shared drive not working with VBA saveas PDF method. Doesn't save the document

vba

shared

ms-word

drive