编写Excel转Word数据传输宏遇编译错误：Expected End Sub，求指导

你遇到的这个编译错误，核心问题是VBA不允许在一个过程（Sub）内部嵌套定义另一个过程。看你的代码，你把CopyToWord这个Sub直接写在了CommandButton1_Click的Sub里面，这就违反了语法规则，编译器会因为无法正确解析过程结构而报错。

下面给你两种修正方案，选一种适合你的就行：

方案一：拆分独立过程（推荐，更易维护） #

把CopyToWord作为独立的过程，在按钮点击事件里调用它：

Private Sub CommandButton1_Click()
    ' 调用复制到Word的逻辑
    CopyToWord
End Sub

Sub CopyToWord()
    Dim objWord As New Word.Application
    Range("A1:B10").Copy
    With objWord
        .Documents.Add
        .Selection.Paste
        .Visible = True
    End With
End Sub

方案二：合并逻辑到按钮事件 #

如果不需要复用CopyToWord的逻辑，直接把代码合并到按钮点击事件里也可以：

Private Sub CommandButton1_Click()
    Dim objWord As New Word.Application
    Range("A1:B10").Copy
    With objWord
        .Documents.Add
        .Selection.Paste
        .Visible = True
    End With
End Sub

额外提醒 #

运行代码前，记得在VBA编辑器里引用Word对象库：

• 打开VBA编辑器（按Alt+F11）
• 点击顶部菜单的「工具」→「引用」
• 在弹出的窗口里勾选「Microsoft Word xx.x Object Library」（xx.x对应你安装的Office版本）

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