Word VBA遍历ActiveDocument.InlineShapes遇100上限问题求助

原代码循环到第100个对象就终止，核心原因是第101个InlineShape不是OLE对象，直接访问它的OLEFormat.Object会触发运行时错误，导致循环中断。

修正后的遍历代码可以完整遍历所有InlineShapes，同时避免错误：

Dim x As Integer
Dim var_checkbox_obj As Object

For x = 1 To ActiveDocument.InlineShapes.Count
    ' 先过滤掉没有OLE格式的对象（比如图片、普通图形）
    If Not ActiveDocument.InlineShapes(x).OLEFormat Is Nothing Then
        ' 临时屏蔽错误，防止部分OLE对象访问属性出错
        On Error Resume Next
        If ActiveDocument.InlineShapes(x).OLEFormat.Object.Name = "chkbx_fc17" Then
            Set var_checkbox_obj = ActiveDocument.InlineShapes(x).OLEFormat.Object
            Exit For
        End If
        ' 恢复默认错误处理
        On Error GoTo 0
    End If
Next x

' 可选：验证是否找到目标对象
If Not var_checkbox_obj Is Nothing Then
    MsgBox "已找到目标复选框：" & var_checkbox_obj.Name
Else
    MsgBox "未找到指定名称的复选框"
End If

关键改进点： #

• 增加OLEFormat非空判断：跳过所有非OLE类型的InlineShape，避免无意义的错误触发
• 临时错误屏蔽：部分OLE对象可能存在初始化异常，用On Error Resume Next跳过这类错误，保证循环继续
• 遍历逻辑完整：基于ActiveDocument.InlineShapes.Count的真实数量遍历，没有100个的上限限制

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