VBA:无法在代码中将.doc保存到.dotm

Sub SaveAsDotm()
    Dim doc As Document
    Set doc = ActiveDocument
    
    ' 检查当前文档是否为.doc格式
    If doc.FileFormat = wdFormatDocument Then
        ' 构建目标文件路径和名称
        Dim filePath As String
        filePath = Replace(doc.FullName, ".doc", ".dotm")
        
        ' 保存为.dotm格式
        doc.SaveAs2 filePath, wdFormatXMLTemplateMacroEnabled
        
        ' 关闭原始文档
        doc.Close
    Else
        MsgBox "当前文档不是.doc格式"
    End If
End Sub