如何将.docm另存为无宏、无自定义功能区及签名的.docx？

• 日常使用带宏和自定义功能区的.docm报价文档，每次新项目复制最新版本使用
• 给客户发送文件时，部分客户需要无宏、无自定义功能区的干净.docx文件，同时需移除文档中的手写签名PNG图片
• 现有宏可生成干净.docx，但无法自动移除指定PNG，且路径硬编码、弹窗提示影响效率

Sub ExportCleanDocxWithoutSignature()
    Dim sourceDoc As Document
    Dim targetDoc As Document
    Dim docPath As String
    Dim docName As String
    Dim shp As Shape
    Dim inlineShp As InlineShape
    
    ' 禁用所有弹窗提示
    Application.DisplayAlerts = wdAlertsNone
    
    ' 绑定当前活动的源文档
    Set sourceDoc = ActiveDocument
    ' 提取原文档的路径和文件名（不含扩展名）
    docPath = Left(sourceDoc.FullName, InStrRev(sourceDoc.FullName, "\"))
    docName = Left(sourceDoc.Name, InStrRev(sourceDoc.Name, ".") - 1)
    
    ' 创建无宏的空白文档（基于Normal模板，自带干净功能区）
    Set targetDoc = Documents.Add(Template:="Normal", NewTemplate:=False, DocumentType:=0)
    
    ' 复制源文档内容并粘贴到新文档（保留目标格式）
    sourceDoc.Content.Copy
    targetDoc.Content.PasteAndFormat (wdUseDestinationStylesRecovery)
    
    ' 移除所有PNG格式图片（若需指定特定签名，可按图片名称/位置细化判断）
    ' 处理浮动式图片
    For Each shp In targetDoc.Shapes
        If shp.Type = msoPicture And shp.PictureFormat.Type = msoPictureTypePNG Then
            shp.Delete
        End If
    Next shp
    ' 处理嵌入式图片
    For Each inlineShp In targetDoc.InlineShapes
        If inlineShp.Type = wdInlineShapePicture And inlineShp.PictureFormat.Type = msoPictureTypePNG Then
            inlineShp.Delete
        End If
    Next inlineShp
    
    ' 在原路径保存为同名docx文件
    targetDoc.SaveAs2 FileName:=docPath & docName & ".docx", _
        FileFormat:=wdFormatXMLDocument, _
        AddToRecentFiles:=True, _
        CompatibilityMode:=15
    
    ' 关闭新文档，无需保存临时更改
    targetDoc.Close SaveChanges:=wdDoNotSaveChanges
    
    ' 恢复弹窗提示
    Application.DisplayAlerts = wdAlertsAll
    
    MsgBox "干净的docx文件已生成：" & docPath & docName & ".docx"
End Sub

• 自动适配路径：从源文档提取路径和文件名，无需硬编码，适配所有项目文件
• 静默处理：通过Application.DisplayAlerts = wdAlertsNone跳过保存、格式匹配等弹窗
• 精准删除图片：覆盖浮动式和嵌入式两种PNG图片类型；若需指定特定签名，可修改判断条件（例如If shp.Name = "签名图片名称"）
• 稳定复制逻辑：直接操作文档Content对象，替代Selection操作，避免光标位置异常导致的错误
• 无冗余残留：关闭新文档时不保存临时状态，避免生成无用文件

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