Word VBA宏选中多列表格单元格时无法遍历全部单元格插入图片

核心问题是For Each遍历Cells集合时，修改文档结构的操作会破坏枚举器的遍历指针：

• 你测试用的弹框遍历代码仅读取单元格文本，没有改动文档内容和表格结构，集合枚举状态不会被破坏，因此可以正常遍历所有选中单元格。
• 当你执行清空单元格文本、插入内嵌图片的操作时，Word会自动重排表格对应的文档Range。跨列选中时，Cells集合的枚举顺序会被打乱，直接跳过非最左列的单元格；仅选中单列时，单元格纵向连续，重排不会打断纵向的枚举顺序，因此看起来运行正常。

不要用For Each枚举会被动态修改的集合，改为从后往前按索引遍历，从根本上规避结构重排对遍历顺序的影响，修复后代码如下：

Sub InsertPathPic()
    Dim photoCells As Cells
    Set photoCells = Selection.Cells
    Dim i As Long
    Dim photoCell As Cell
    Dim filePath As String
    Dim shape As InlineShape
    
    ' 倒序遍历单元格
    For i = photoCells.Count To 1 Step -1
        Set photoCell = photoCells(i)
        ' 读取路径，去除单元格末尾默认的2个特殊控制字符
        filePath = photoCell.Range.Text
        filePath = Left(filePath, Len(filePath) - 2)
        ' 清空单元格内容
        photoCell.Range.Text = ""
        ' 插入图片
        Set shape = photoCell.Range.InlineShapes.AddPicture(filePath)
        ' 按单元格宽度等比缩放图片
        With shape
            .LockAspectRatio = msoTrue
            .Width = photoCell.PreferredWidth
        End With
    Next
    
    MsgBox "Completed."
End Sub

编码建议：所有变量提前显式声明类型，不要依赖默认的变体型（Variant），可以减少很多COM调用时的隐式错误。

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