从Excel调用Word文档VBA代码失败：Application.Run无法执行

问题核心 #

你当前代码的问题出在调用Word宏的方式错误，以及Word里的目标过程是私有（Private）无法被外部访问，导致Application.Run执行失败。

修正步骤 #

1. 修改Word文档中的VBA过程权限 #

打开你的Word文档Coding of Survey Answers.docm，找到CommandButton1_Click过程，把Private改成Public，让外部程序能访问该过程：

' 将原Private改为Public
Public Sub CommandButton1_Click()
    ' 你的原有代码逻辑（请求文件名对话框、数据处理等）
End Sub

2. 修正Excel中的宏调用代码 #

原代码里的Application.Run是调用Excel自身的宏，要改成调用Word应用对象的宏，同时指定文档名避免同名宏冲突，还要补全异常处理逻辑。修正后的Excel VBA代码如下：

Option Explicit

Private Sub CommandButton1_Click()
    
    Dim strFile As String
    Dim oWORD As Object
    Dim chooseColumn As Variant
    Dim targetDoc As Object

    ' 创建Word应用实例
    Set oWORD = CreateObject(Class:="Word.Application")
    oWORD.Visible = True
    strFile = "Coding of Survey Answers.docm"
    
    MsgBox "请选择文件：" & strFile
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Word宏文档", "*.docm", 1 ' 优先筛选带宏的docm文件
        .Filters.Add "Word文档", "*.docx; *.doc", 2
        
        If .Show <> -1 Then
            MsgBox "错误：未找到目标文件，请重试"
            oWORD.Quit ' 关闭Word实例，避免残留进程
            Set oWORD = Nothing
            Exit Sub ' 终止后续代码执行
        End If
         
        strFile = .SelectedItems.Item(1)
        ' 打开文档并赋值给变量，方便后续操作
        Set targetDoc = oWORD.Documents.Open(Filename:=strFile)
  
        ' 关键：调用Word应用的Run方法，格式为「文档名!过程名」
        oWORD.Run targetDoc.Name & "!CommandButton1_Click"
        
        ' 以下是你的Excel后续处理逻辑
        chooseColumn = InputBox("请选择要粘贴数据的列？")
        MsgBox chooseColumn
        
        ' 按需关闭文档并清理资源
        targetDoc.Close SaveChanges:=0 ' 0=不保存，1=保存，2=提示保存
        oWORD.Quit
        Set targetDoc = Nothing
        Set oWORD = Nothing
    End With
End Sub

额外注意事项 #

• 确保Word文档启用宏：打开时必须启用宏内容，否则无法执行代码。
• 避免宏名冲突：如果存在多个同名宏的Word文档，必须指定文档名!过程名的完整格式来区分。
• 清理后台进程：操作完成后务必关闭Word实例并释放对象，防止后台残留无用的Word进程。

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