VBA打开文档后执行docWord.Activate报4248运行时错误求助

关键问题点 #

1. 变量名混用：代码中docword/docWord、ObjWord/objWord大小写不一致，虽VBA不区分大小写，但易引发对象引用逻辑混乱；
2. 依赖ActiveDocument不可靠：激活操作可能存在延迟或焦点偏移，ActiveDocument未必指向刚打开的目标文档；
3. 冗余激活操作：直接操作已赋值的文档对象即可，无需强制调用Activate。

修正后的代码 #

' 先确保Word实例已正确创建（补充你缺失的实例初始化代码）
Set ObjWord = New Word.Application ' 也可使用 CreateObject("Word.Application")
ObjWord.Visible = True

Dim docWord As Object
Dim oCC As ContentControl

' 直接打开文档并赋值给对象，无需先激活Word窗口
Set docWord = ObjWord.Documents.Open(Filename)

' 用已赋值的docWord对象替代ActiveDocument，避免激活依赖
For Each oCC In docWord.ContentControls
    Select Case oCC.Title
        Case "abc" ' 字符串需加引号，否则会被识别为变量
            oCC.Range.Text = "目标填充文本" ' 补充你的赋值逻辑
    End Select
Next oCC

额外检查项 #

• 确认Filename是完整文件路径（如"C:\Files\example.docx"），路径含空格时必须用引号包裹；
• 若仍报错，检查文档是否被其他程序锁定，或添加延迟加载逻辑：

  Set docWord = ObjWord.Documents.Open(Filename)
  DoEvents ' 等待文档完全加载
  

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