VBA运行时错误91：对象变量或With块变量未设置解决求助

报错Runtime Error 91: Object variable or with block variable not set出现在objWord.Selection.Paste行，核心原因是Word对象或Selection对象未正确初始化，以下是具体修复方案：

问题分析 #

1. 依赖已打开的Word实例：原代码用GetObject(, "Word.Application")获取Word对象，但如果当前没有运行的Word程序，objWord会变成Nothing，后续调用其属性/方法必然报错。
2. 缺少对Word文档的检查：即使Word实例存在，若没有打开的文档，objWord.Selection也会是无效对象。
3. 变量声明不严谨：Dim objWord, objDoc As Object中objWord实际是Variant类型，不是Object类型，可能导致类型匹配问题。
4. 冗余的Select操作：依赖Select和Selection的代码稳定性差，容易因焦点变化出错。

修复后的完整代码 #

Sub CopyALLtoWord()
    ' 修正变量声明，明确两个变量都是Object类型
    Dim objWord As Object, objDoc As Object
    Dim i As Integer
    Dim ws As Worksheet
    Dim targetRange As Range
    
    ' 提前获取工作表对象，避免重复调用
    Set ws = ThisWorkbook.Worksheets("worksheet1")
    ActiveWindow.View = xlNormalView
    
    ' 先尝试获取现有Word实例，获取不到则新建
    On Error Resume Next
    Set objWord = GetObject(, "Word.Application")
    On Error GoTo 0
    
    ' 如果没有Word实例，新建一个并创建空白文档
    If objWord Is Nothing Then
        Set objWord = CreateObject("Word.Application")
        Set objDoc = objWord.Documents.Add
        objWord.Visible = True ' 可选：让Word窗口可见，方便调试
    Else
        ' 如果已有Word实例，确保至少有一个打开的文档
        If objWord.Documents.Count = 0 Then
            Set objDoc = objWord.Documents.Add
        End If
    End If
    
    For i = 1 To ws.Cells(3, 3).Value
        ' 直接赋值，无需Select
        ws.Range("N5").Value = i
        Calculate
        
        Application.Wait (Now + TimeValue("0:00:05"))
        
        ' 直接操作区域，无需Select
        Set targetRange = ws.Range("L12:AK85")
        targetRange.CopyPicture Appearance:=xlScreen, Format:=xlPicture
        
        ' 粘贴到Word文档
        objWord.Selection.Paste
        objWord.Selection.TypeParagraph
        
        Application.CutCopyMode = False
    Next i
    
    ' 释放对象（可选，好习惯）
    Set targetRange = Nothing
    Set ws = Nothing
    Set objDoc = Nothing
    Set objWord = Nothing
End Sub

关键修改说明 #

• 健壮获取Word对象：通过On Error Resume Next捕获获取失败的情况，自动新建Word实例和文档，确保objWord始终有效。
• 移除Select操作：直接引用工作表和区域对象，避免因焦点切换导致的选择失效。
• 修正变量声明：明确objWord的Object类型，避免隐式类型转换问题。
• 增加文档检查：确保Word实例中有可用的文档，保证Selection对象存在。

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