如何将Word文档按模板名保存至指定位置且不覆盖旧文件

问题核心 #

原代码因固定文件名导致重复保存时覆盖旧文件，需改为基于模板文件名生成保存路径，同时避免重复覆盖。

修改后的VBA代码 #

Sub SaveFromTemplate()
    Dim savePath As String
    Dim templateName As String
    Dim fullFileName As String
    Dim fileCounter As Integer
    
    ' 指定保存的目标文件夹（可根据需要修改）
    savePath = "C:\Users\jhumphries1\Documents\General\Macro testing\"
    
    ' 获取模板的文件名（不含路径和扩展名）
    templateName = Left(ActiveDocument.AttachedTemplate.Name, InStrRev(ActiveDocument.AttachedTemplate.Name, ".") - 1)
    
    ' 初始化文件名，先尝试用模板名直接保存
    fullFileName = savePath & templateName & ".docm"
    fileCounter = 1
    
    ' 检查文件是否已存在，若存在则添加序号后缀
    Do While Dir(fullFileName) <> ""
        fullFileName = savePath & templateName & "_" & fileCounter & ".docm"
        fileCounter = fileCounter + 1
    Loop
    
    ' 保存文档
    ActiveDocument.SaveAs FileName:=fullFileName, FileFormat:=wdFormatXMLDocumentMacroEnabled
End Sub

代码说明 #

• 指定保存路径：savePath变量设置目标文件夹，可自行修改路径。
• 提取模板文件名：通过AttachedTemplate.Name获取模板文件名，再用Left和InStrRev去掉扩展名，只保留模板名称。
• 避免文件覆盖：使用Do While循环检查文件是否存在，若存在则自动在模板名后添加_1、_2这类序号，直到找到未被使用的文件名。
• 指定保存格式：FileFormat:=wdFormatXMLDocumentMacroEnabled确保保存为带宏的docm格式，和原代码格式一致。

使用注意事项 #

• 确保文档是通过模板打开的（这类文档会自动关联对应模板）。
• 若需保存为无宏格式（如docx），可将FileFormat参数改为wdFormatXMLDocument。

内容的提问来源于stack exchange，提问作者JackHys