Excel VBA生成Word文档失败：进度至80%报错，InlineShapes循环异常

核心错误原因 #

你遇到的For i = 1 To .InlineShapes.Count报错，主要有两个关键诱因：

1. InlineShapes集合动态变更：在AddImage过程中，执行了.ConvertToShape将嵌入式形状转换为浮动形状，这会直接从InlineShapes集合中移除对应元素。当后续遍历该集合时，集合的元素数量在循环中发生变化，导致索引越界或遍历中断。
2. 文档对象引用不匹配：如果代码是在Excel VBA中运行（而非Word VBA），ThisDocument指向的是Word模板本身，而非你动态生成的目标文档，这会导致访问错误的InlineShapes集合。

修复步骤 #

1. 修正遍历逻辑（避免集合动态变更影响） #

如果需要遍历并修改InlineShapes，必须从后往前遍历，因为从前往后遍历时，删除/转换元素会导致后续元素索引前移，出现跳过或索引溢出问题。示例：

Sub rezie()
    Dim i As Long
    ' 确保引用的是你生成的目标Word文档对象，而非ThisDocument
    Dim targetDoc As Word.Document
    Set targetDoc = ' 这里替换为你生成的Word文档对象（比如通过CreateObject或GetObject获取）
    
    With targetDoc
        ' 从后往前遍历，避免集合变更导致的索引错误
        For i = .InlineShapes.Count To 1 Step -1
            ' 在这里添加你的处理逻辑，比如调整尺寸
            With .InlineShapes(i)
                .LockAspectRatio = msoTrue
                .Height = CentimetersToPoints(1.5)
                .Width = CentimetersToPoints(2.1)
            End With
        Next i
    End With
    Set targetDoc = Nothing
End Sub

2. 移除不必要的形状转换 #

如果不需要将嵌入式形状转为浮动形状，删除AddImage中的.ConvertToShape代码：

With oImage
    .LockAspectRatio = msoFalse
    .Height = CentimetersToPoints(1.5)
    .Width = CentimetersToPoints(2.1)
    ' 移除这行：Set oRng = .ConvertToShape
End With

这能保持InlineShapes集合的稳定性，避免遍历过程中集合元素丢失。

3. 统一文档对象引用 #

在Excel VBA操作Word时，必须明确引用目标文档对象，避免使用ActiveDocument或ThisDocument这类依赖上下文的对象。示例初始化Word文档的代码：

Dim wordApp As Word.Application
Dim targetDoc As Word.Document

Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True ' 调试时可见，发布时可设为False
Set targetDoc = wordApp.Documents.Add ' 或打开现有模板

' 后续所有操作都使用targetDoc而非ActiveDocument
' 比如FillABookmark过程修改为：
Sub FillABookmark(targetDoc As Word.Document, strBM As String, strText As String)
    Dim j As Long
    With targetDoc
        .Bookmarks(strBM).Range.InlineShapes.AddPicture FileName:=strText
        j = .InlineShapes.Count
        .InlineShapes(j).Select
        .Bookmarks.Add strBM, Range:=wordApp.Selection.Range
    End With
End Sub

额外优化建议 #

• 在PicWithCaption过程中，shape变量未声明类型，添加Dim shape As Word.InlineShape避免变体类型带来的潜在错误。
• 重复的图片格式设置逻辑（如尺寸、锁定比例）可以封装为单独的子过程，减少代码冗余。

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