如何在VB.NET中向Word添加多张图片？添加第二张图触发COMException(E_FAIL)错误求助

我来帮你搞定这个E_FAIL的问题——这个COM异常通常和Word对象的引用管理、操作顺序有关，结合你的代码来看，主要有几个核心问题需要修正：

问题根源分析 #

1. InlineShape转Shape的集合引用问题：你一开始就把objShapes赋值为objDoc.InlineShapes，但每次调用ConvertToShape()后，对应的InlineShape会从这个集合中移除，循环中复用旧的集合引用可能导致后续操作找不到正确的对象。
2. COM对象未正确释放：循环中创建的oShape等对象如果没有及时清理，会导致COM引用泄漏，触发不可预期的错误。
3. 冗余对象与未更新的位置参数：你的代码里objSelection没有实际用途，而且TopValue和LeftValue如果在循环中不更新，所有图片会重叠在一起，也可能间接引发问题。

修正后的代码 #

Imports System.Runtime.InteropServices ' 需要引入这个命名空间来释放COM对象

Sub LoadPics()
    Dim wdWrapFront As Integer = 3
    Dim wdRelativeVerticalPositionPage As Integer = 1
    Dim objWordApp As Word.Application = Nothing
    Dim objDoc As Word.Document = Nothing
    Dim oShape As Word.Shape = Nothing
    Dim inlineShape As Word.InlineShape = Nothing ' 新增InlineShape变量，方便释放

    Try
        objWordApp = New Word.Application
        objWordApp.Visible = False
        objDoc = objWordApp.Documents.Open("Document.doc")

        For c As Integer = 0 To 10
            ' 这里建议根据循环变量生成不同的图片路径，比如"file" & c & ".png"
            Dim FL As String = "file.png" 
            If IO.File.Exists(FL) Then
                ' 每次直接访问最新的InlineShapes集合，避免复用旧引用
                inlineShape = objDoc.InlineShapes.AddPicture(FL)
                oShape = inlineShape.ConvertToShape()

                With oShape
                    .WrapFormat.Type = wdWrapFront
                    .LockAspectRatio = False
                    .Height = objWordApp.CentimetersToPoints(5.08)
                    .Width = objWordApp.CentimetersToPoints(10.16)
                    .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                    ' 建议根据循环变量更新位置，避免图片重叠
                    .Top = objWordApp.CentimetersToPoints(2 + c * 5.5) ' 示例：每次向下偏移5.5厘米
                    .Left = objWordApp.CentimetersToPoints(2)
                End With

                ' 及时释放不再使用的COM对象
                Marshal.ReleaseComObject(inlineShape)
                inlineShape = Nothing
                Marshal.ReleaseComObject(oShape)
                oShape = Nothing
            Else
                MsgBox("File doesn't exist" & vbCrLf & FL)
            End If
        Next

        objWordApp.Visible = True
    Catch ex As Exception
        MsgBox("出错了：" & ex.Message)
        ' 出错时确保Word进程关闭
        If objWordApp IsNot Nothing Then
            objWordApp.Quit(SaveChanges:=False)
            Marshal.ReleaseComObject(objWordApp)
        End If
    Finally
        ' 释放所有剩余的COM对象
        If oShape IsNot Nothing Then Marshal.ReleaseComObject(oShape)
        If inlineShape IsNot Nothing Then Marshal.ReleaseComObject(inlineShape)
        If objDoc IsNot Nothing Then Marshal.ReleaseComObject(objDoc)
        If objWordApp IsNot Nothing Then Marshal.ReleaseComObject(objWordApp)
    End Try
End Sub

关键修改点说明 #

• 新增COM对象释放逻辑：使用Marshal.ReleaseComObject在每次循环后和程序结束时清理不再使用的Word对象，避免引用泄漏。
• 避免复用InlineShapes集合引用：每次添加图片时直接调用objDoc.InlineShapes.AddPicture，确保访问的是最新的集合状态。
• 添加错误处理与进程清理：通过Try-Catch-Finally确保即使出错，Word进程也能正常关闭，不会残留后台进程。
• 优化位置参数：示例中根据循环变量更新图片的Top位置，避免所有图片重叠。

额外建议 #

如果你不需要先添加嵌入式图片再转浮动，也可以直接使用Shapes.AddPicture方法创建浮动图片，这样可以跳过InlineShape转Shape的步骤，代码更简洁也更稳定：

oShape = objDoc.Shapes.AddPicture( _
    FileName:=FL, _
    LinkToFile:=False, _
    SaveWithDocument:=True, _
    Left:=objWordApp.CentimetersToPoints(2), _
    Top:=objWordApp.CentimetersToPoints(2 + c * 5.5), _
    Width:=objWordApp.CentimetersToPoints(10.16), _
    Height:=objWordApp.CentimetersToPoints(5.08) _
)
oShape.WrapFormat.Type = wdWrapFront
oShape.RelativeVerticalPosition = wdRelativeVerticalPositionPage

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