如何在我当前的工作目录VBA MSWord中添加文档

Question

以下是我一直在尝试做的事情：

Set myCopy = Documents.Add(ActiveDocument.FullName) ActiveDocument.Path
And...
Set myCopy = Documents.Add(ActiveDocument.FullName) & ActiveDocument.Path

它不起作用，因为我搞不懂语法。有人能帮我吗？

此外，我无法访问Windows上的"默认文档"文件夹。因此，如果我创建了一个复制的文档，默认情况下，它会在Documents文件夹中创建它。

我用来确定这一点的证据是：

Set myCopy = Documents.Add(ActiveDocument.FullName)
myCopy.SaveAs2 (ActiveDocument.Path & docName)

这表明它被填充在我无法访问的默认文件夹中，因此，我无法调用以下命令：

myCopy.SaveAs2 (".Payload" & docName)

如有任何帮助，我们将不胜感激。

Answer 1

Documents.Add不接受路径变量-您只能在保存时添加路径。因此，例如：

Set DocSrc = ActiveDocument
Set DocTgt = Documents.Add(DocSrc.Fullname)
DocTgt.SaveAs FileName:=DocSrc.Path & "" & DocName & ".docx", FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False