你的问题核心出在对象引用的赋值逻辑上——当你执行Set child_document = parent_document时，并没有创建原文档的独立副本，只是让child_document变量和parent_document指向了同一个Word文档对象。所以后续调用SaveAs2时，实际上是修改了原文档的存储路径和名称，而非生成新文档。

正确的实现代码 #

下面是两种可靠的方案，你可以根据需求选择：

方案一：基于原文档创建新副本（推荐）

这种方法直接以原文档为模板生成全新的独立文档，完全不会影响原文档：

Dim parentDoc As Word.Document
Dim childDoc As Word.Document
Dim savePath As String

' 绑定到当前活动的父文档（模板.docm）
Set parentDoc = ActiveDocument

' 定义子文档的完整保存路径
savePath = doc_path & "\" & item & ".docx"

' 基于父文档创建新的独立文档
Set childDoc = Documents.Add( _
    Template:=parentDoc.FullName, _
    NewTemplate:=False, _
    DocumentType:=wdNewBlankDocument _
)

' 保存子文档为docx格式（自动移除宏）
childDoc.SaveAs2 _
    Filename:=savePath, _
    FileFormat:=wdFormatXMLDocument

' 可选：如果不需要保留子文档打开状态，可关闭它
' childDoc.Close SaveChanges:=wdDoNotSaveChanges

方案二：复制原文档内容到新文档

如果需要更精细地控制内容复制（比如排除某些部分），可以用这种方法：

Dim parentDoc As Word.Document
Dim childDoc As Word.Document
Dim savePath As String

Set parentDoc = ActiveDocument
savePath = doc_path & "\" & item & ".docx"

' 创建空白新文档
Set childDoc = New Word.Document

' 复制原文档的全部内容到新文档
parentDoc.Content.Copy
childDoc.Content.Paste

' 保存子文档
childDoc.SaveAs2 Filename:=savePath, FileFormat:=wdFormatXMLDocument

关键知识点解释 #

• Set child_document = parent_document是对象引用赋值，不是复制对象本身，两个变量共享同一个文档实例；
• Documents.Add(Template:=...)会创建一个基于指定模板的全新文档，与原文档完全独立；
• 保存为.docx格式时，Word会自动移除原.docm文档中的宏代码，符合子文档的格式需求。

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