Excel VBA无法激活Word文档以使用SendKeys问题求助

一、别用SendKeys了，直接用Word对象模型搞定（最靠谱） #

SendKeys太依赖窗口焦点，稳定性极差，直接用Word的VBA语法定位删除空行才是稳妥方案。给你改好的代码：

' 早期绑定：先在VBA编辑器「工具」→「引用」中勾选Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Set WordApp = New Word.Application
WordApp.Visible = True

Dim WordDoc As Word.Document
Set WordDoc = WordApp.Documents.Open(Filename:=word_template_path, ReadOnly:=False)

With WordDoc.Content.Find
    .Text = "<<new page>>"
    .Execute
    If .Found Then
        ' 选中并删除目标文本
        .Parent.Select
        Selection.Delete
        ' 定位到上一行，清空空白内容
        Selection.MoveUp Unit:=wdLine, Count:=1
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.Text = ""
        ' 插入分页符
        Selection.InsertBreak Type:=wdPageBreak
    End If
End With

' 按需添加保存关闭逻辑
' WordDoc.Save
' WordDoc.Close
' WordApp.Quit
Set WordDoc = Nothing
Set WordApp = Nothing

或者更简洁的替换+空行删除写法：

With WordDoc.Content.Find
    .Text = "<<new page>>"
    .Replacement.Text = "^m" ' ^m是Word中分页符的代码
    .Execute Replace:=wdReplaceOne
    ' 替换后定位到分页符上方，删除空行
    Selection.MoveUp Unit:=wdParagraph, Count:=1
    If Trim(Selection.Text) = "" Then Selection.Delete
End With

二、非要用SendKeys？那得这么激活Word窗口 #

之前激活失败是因为找错了窗口集合，且AppActivate需要精准的窗口标题。修改后的代码：

' EARLY BINDING
Dim WordApp As Word.Application
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True

Dim WordDoc As Word.Document
Set WordDoc = WordApp.Documents.Open(Filename:=word_template_path, ReadOnly:=False)

With WordDoc.Application.Selection
    .Find.Text = "<<new page>>"
    .Find.Execute
    .InsertBreak
End With

' 用Word文档的真实标题激活窗口，避免手动输入出错
AppActivate WordDoc.Windows(1).Caption
' 加1秒延迟，确保系统完成窗口焦点切换
Application.Wait Now + TimeValue("00:00:01")

' 执行按键操作
SendKeys "{UP}", True
SendKeys "{BACKSPACE}", True

WordDoc.Application.Selection.EndOf

为啥之前的激活代码没用？ #

• Application.Windows是Excel的窗口集合，只会遍历当前Excel的文件，根本看不到Word窗口。
• WordDoc.Activate这类方法只是激活Word内部的文档对象，但系统级的窗口焦点仍停留在Excel，必须用AppActivate切换系统层面的窗口焦点。

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