如何修复Word VBA运行时错误'404'：Object required报错

错误根源 #

报错指向ActiveDocument.Paragraphs.Add行是因为代码执行时ActiveDocument对象不存在，系统无法找到对应的操作文档，触发「需要对象」报错。常见触发场景：

• 代码运行环境错误：该代码为Word VBA代码，放置在Excel、PPT等其他Office软件的VBA工程中运行时，不存在ActiveDocument对象
• Word环境下无有效激活文档：当前Word没有打开的文档，或激活对象为用户窗体、导航栏等非文档元素

修复步骤 #

• 第一步：确认代码运行在Word的VBA工程中，执行前保证Word处于打开状态
• 第二步：优化文档对象绑定逻辑，避免直接依赖不稳定的ActiveDocument，在代码开头增加文档对象判断绑定逻辑，所有操作直接绑定到有效文档对象
• 第三步：修正原有代码的语法疏漏：原代码中Text:="Sorted array: "行缺少操作对象，需要补全插入文本的所属文档

修复后完整代码 #

Private Sub CommandButton1_Click()
    Dim i As Integer, b(10) As Single
    Dim CurRange As Range
    Dim doc As Document

    ' 绑定有效文档，无打开文档时自动新建
    If Documents.Count = 0 Then
        Set doc = Documents.Add
    Else
        Set doc = ActiveDocument
    End If

    doc.Paragraphs.Add
    doc.Content.InsertAfter Text:="Random array:"
    doc.Paragraphs.Add
    For i = 1 To 10
        b(i) = Int(10 * Rnd + 10)
        doc.Content.InsertAfter Text:=Str(b(i)) + " "
    Next i
    
    doc.Paragraphs.Add
    ' 补全缺失的对象引用
    doc.Content.InsertAfter Text:="Sorted array: "
    Call SortMas(b(), 10, 2)
    doc.Paragraphs.Add
    For i = 1 To 10
        doc.Content.InsertAfter Text:=Str(b(i)) + " "
    Next i

    ' 释放对象资源
    Set doc = Nothing
End Sub

附加说明 #

如果调用SortMas模块时报错，需要确认该模块已经正确导入到当前VBA工程中，且参数定义与调用逻辑匹配。

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