Word VBA快捷键生成文档副本问题：副本无内容标题异常

原代码问题分析 #

• 使用Documents.Add(ActiveDocument.FullName)创建新文档时，Word会将原文档当作模板生成新文档，而非直接复制原内容，导致新文档结构和内容异常。
• 手动复制粘贴的逻辑不仅多余，还可能因焦点切换不及时导致粘贴失效，最终生成空文档。

修正方案一：直接另存为副本（最简洁高效） #

无需新建文档再复制，直接对原文档创建副本并保存，彻底避免内容丢失：

Sub Checkpoint()
    Dim ThisFullName As String
    Dim CopyFileName As String
    Dim DateTimeString As String
    
    ThisFullName = ActiveDocument.FullName
    ' 拆分文件名与扩展名
    Dim fileNamePart As String, extPart As String
    fileNamePart = Left(ThisFullName, InStrRev(ThisFullName, ".") - 1)
    extPart = Mid(ThisFullName, InStrRev(ThisFullName, "."))
    
    DateTimeString = Format(Now(), "yymmddhhmmss")
    CopyFileName = fileNamePart & " " & DateTimeString & extPart
    
    ' 直接生成原文档副本，不影响原文档状态
    ActiveDocument.SaveCopyAs CopyFileName
End Sub

修正方案二：复制完整文档后保存 #

如果需要先打开副本再操作（比如额外编辑），用以下代码确保完整复制所有内容和格式：

Sub Checkpoint()
    Dim ThisFullName As String
    Dim CopyFileName As String
    Dim DateTimeString As String
    Dim CopyDoc As Document
    
    ThisFullName = ActiveDocument.FullName
    Dim fileNamePart As String, extPart As String
    fileNamePart = Left(ThisFullName, InStrRev(ThisFullName, ".") - 1)
    extPart = Mid(ThisFullName, InStrRev(ThisFullName, "."))
    
    DateTimeString = Format(Now(), "yymmddhhmmss")
    CopyFileName = fileNamePart & " " & DateTimeString & extPart
    
    ' 生成原文档的精确副本
    Set CopyDoc = ActiveDocument.Duplicate
    ' 保存副本
    CopyDoc.SaveAs2 CopyFileName
    ' 关闭副本（可选，不需要保留打开状态则启用）
    CopyDoc.Close
End Sub

补充说明 #

• SaveCopyAs方法是最推荐的方式：直接生成副本，原文档保持打开且不受任何影响。
• Duplicate方法会完整复制原文档的所有内容、格式和设置，适合需要对副本做后续编辑的场景。

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