VBComponent.SaveAs报错：对象不支持该属性或方法求助

• 报错原因：你混淆了两种不同对象模型的VBComponent。本地CHM文档中提到的SaveAs方法属于VBA Add-In对象模型，而Word文档里的VBComponent属于Office宿主对象模型，这个对象并不支持SaveAs方法。

• 解决方案：要导出Word中的标准模块代码，使用Export方法替代SaveAs，这是Office宿主VBComponent的正确方法。

修改后的代码示例：

For Each Componente In ThisDocument.VBProject.VBComponents
    If StrComp(Componente.Name, Modulo1Nombre) = 0 Then
        MsgBox "Encontrado módulo. Salvando en: " & PATH_BACKUP & Modulo1Nombre & EXTENSION_DE_MODULO
        ' 使用Export方法替代SaveAs
        Componente.Export PATH_BACKUP & Modulo1Nombre & EXTENSION_DE_MODULO
        Exit For ' Una vez encontrado salimos
    End If
Next Componente

额外提示：字符串拼接建议用&而非+，+在遇到非字符串类型时容易触发类型错误，&会自动转换为字符串类型，更稳定。

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