vba将word文件保存到已创建的文件夹

我已经写了下面的代码，目前它创建了一个文件夹。但是，我想将相同的word文档保存到该文件夹中。有没有关于我哪里出了问题的建议

谢谢

Sub newfold()
    Dim strNewFolderName As String
    strNewFolderName = "New Folder " & (Month(Now())) & " " & Year(Now)
    If Len(Dir("c:\Users\Jabaar\Documents\" & strNewFolderName, vbDirectory)) = 0 Then
        MkDir ("c:\Users\Jabaar\Documents\" & strNewFolderName)
    End If 
    Dim PathName As String
    PathName = ("New Folder " & MonthName(Month(Now())) & " " & Year(Now))
    ActiveDocument.SaveAs "c:\Users\Jabaar\Documents\" & "(strNewFolderName)" + ".doc"
End Sub

替换

ActiveDocument.SaveAs "c:\Users\Jabaar\Documents\" & "(strNewFolderName)" + ".doc"

与

其中，

Split（ActiveDocument.Name，“.”（0）

采用文件的当前名称，不带扩展名。您可以将其替换为所需的名称：

ActiveDocument.SaveAs FileName:="c:\Users\Jabaar\Documents\" & strNewFolderName & "\" & "newFile.doc", _
    FileFormat:=wdFormatDocument

---

这就是我们所做的，而且似乎很有效

ActiveDocument.SaveAs "c:\Users\Jabaar\Documents\" & strNewFolderName & "\" & "test" + ".doc

---

@simoco提供的解决方案正是我所需要的，因此感谢您确认@simoco的格式，该文件目前以新文件夹2 2014的名称保存在我的文档文件夹中。我现在明白问题了。你似乎一针见血。我一直拿着这个到处玩。”ActiveDocument.SaveAs“c:\Users\Jabaar\Documents\”&strNewFolderName&“\”&test“+”.doc”

ActiveDocument.SaveAs "c:\Users\Jabaar\Documents\" & strNewFolderName & "\" & "test" + ".doc