Vba 如何在其原始路径文件夹中而不是“保存为”；“我的文件”；

因此，基本上，我使用下面的代码来保存一个默认名称为date的文件

Sub 巨集8()
'
    Dim xDlg As Dialog
    Dim xTitle As String
    On Error Resume Next
    xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
    xTitle = xTitle & "- " & Format((Year(Now() + 1) Mod 100), "20##") & "" & _
        Format((Month(Now() + 1) Mod 100), "0#") & "" & _
        Format((Day(Now()) Mod 100), "0#")
    Set xDlg = Dialogs(wdDialogFileSaveAs)
    xDlg.Name = xTitle
    xDlg.Show
End Sub

但是，路径在“我的文档”处设置为“另存为”，如何将其更改为保存在文档原始路径中，例如

XXXX=选项。默认文件路径（wdStartupPath）

这将起作用：

Sub 巨集8()

Dim xDlg As Dialog
Dim xTitle As String
On Error Resume Next
xTitle = ActiveDocument.BuiltinDocumentProperties("Title").Value
xTitle = xTitle & "- " & Format((Year(Now() + 1) Mod 100), "20##") & "" & _
    Format((Month(Now() + 1) Mod 100), "0#") & "" & _
    Format((Day(Now()) Mod 100), "0#")
Set xDlg = Dialogs(wdDialogFileSaveAs)
xDlg.Name = ActiveDocument.Path & "\" & xTitle
xDlg.Show

End Sub

---

我已使用Activedocument.Path属性查找当前路径。

尝试设置如下路径：

ThisDocument.Path

将向您返回文档的修补程序（包含代码的修补程序）。您能否提供有关具体操作的详细信息？谢谢你的工作，非常感谢。但是你能解释一下“\”的功能吗？是的，当我们调用

Activedocument.Path

时，它返回当前文件的路径，即当前文件所在的文件夹。但要在该文件夹中保存另一个文件，我们必须先放置“\”&然后是引用常用地址时使用的文件名。你能接受这个回答吗：）我可以问更多关于。。。为什么格式（（月（现在（）+1）Mod 100）和格式（（日（现在（））Mod 100），“0#”）不同，“+1”是什么意思，我试着在当天添加1，但实际上在我的当前日期上添加1天，但为什么月份和年份不会有相同的效果？我认为这是因为日期存储为数字。因此，如果将1添加到该日期，它只意味着第二天，下个月必须添加31或30天，下一年必须添加365天。