你遇到的这个报错，主要是Range索引计算偏差、代码笔误以及插入位置与现有表格范围冲突导致的。我帮你梳理下问题根源和修正方案：

问题根源拆解 #

• 用oDoc.Range.Text配合正则匹配的索引不可靠：Word的Range包含段落标记、隐藏字符等非文本内容，但Text属性会丢弃这些，导致你计算的pos和文档实际Range位置不匹配，书签可能被设到了现有表格的单元格内部或无效范围，插入表格时就会触发“无法删除该范围”的错误。
• 明显笔误：Dim oTable As Word.Tablespoons是拼写错误，应该是Word.Table。
• 插入逻辑冲突：你先插入段落再用书签Range插入表格，若书签位置在现有表格内，Word不允许这种嵌套操作。
• 无效单位转换：wd(4.3F)是错误写法，直接传入厘米数值即可。

修正后的完整代码 #

下面是调整后的代码，优化了定位逻辑、修正了错误，同时避免了Clipboard依赖：

Public Sub invoicePrinting1(ByVal strBasePath As String, ByVal userid As String)
    Dim oWord = New Word.Application With {.Visible = False}
    Dim oDoc As Word.Document = oWord.Documents.Open(strBasePath)
    Dim bookmarkName As String = "MyBookmarkName"
    Dim searchText As String = "@@Item_List1@@"
    Dim dgv As DataGridView = printbox.DGVacct
    
    ' 用Word自带Find定位目标文本，避免正则匹配的索引偏差
    Dim findRange As Word.Range = oDoc.Content
    With findRange.Find
        .Text = searchText
        .MatchWholeWord = True
        .MatchCase = False
        If Not .Execute() Then
            MessageBox.Show("未找到目标占位符：" & searchText)
            oWord.Quit()
            oDoc = Nothing
            oWord = Nothing
            Return
        End If
        ' 为找到的范围添加书签并删除占位文本
        oDoc.Bookmarks.Add(bookmarkName, findRange)
        findRange.Delete()
    End With
    
    ' 定位到书签末尾，确保插入位置在空白处
    Dim insertRange As Word.Range = oDoc.Bookmarks(bookmarkName).Range
    insertRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
    insertRange.InsertParagraphAfter()
    insertRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
    
    ' 创建新表格（表头+数据行）
    Dim headerCount As Integer = dgv.Columns.Count
    Dim rowCount As Integer = dgv.Rows.Cast(Of DataGridViewRow).Where(Function(r) Not r.IsNewRow).Count() + 1
    Dim oTable As Word.Table = oDoc.Tables.Add(insertRange, rowCount, headerCount)
    
    ' 填充表头
    For col As Integer = 0 To headerCount - 1
        oTable.Cell(1, col + 1).Range.Text = dgv.Columns(col).HeaderText
    Next
    
    ' 填充数据行
    Dim rowIndex As Integer = 2
    For Each row As DataGridViewRow In dgv.Rows
        If Not row.IsNewRow Then
            For col As Integer = 0 To headerCount - 1
                oTable.Cell(rowIndex, col + 1).Range.Text = If(row.Cells(col).Value IsNot Nothing, row.Cells(col).Value.ToString(), "")
            Next
            rowIndex += 1
        End If
    Next
    
    ' 设置表头样式
    With oTable.Rows(1).Range
        .Font.Bold = True
        .Font.Size = 10
        .Height = 20
        .Font.Color = Word.WdColor.wdColorWhite
        .Shading.BackgroundPatternColor = Word.WdColor.wdColorGray25
        .Shading.ForegroundPatternColor = Word.WdColor.wdColorAutomatic
        .Shading.Texture = Word.WdTextureIndex.wdTextureNone
    End With
    
    oTable.Range.Font.Size = 9
    
    ' 设置列宽（修正单位转换错误）
    With oTable
        .Columns(1).SetWidth(oWord.CentimetersToPoints(4.3F), Word.WdRulerStyle.wdAdjustProportional)
        .Columns(2).SetWidth(oWord.CentimetersToPoints(10.5F), Word.WdRulerStyle.wdAdjustProportional)
        .Columns(3).SetWidth(oWord.CentimetersToPoints(4.8F), Word.WdRulerStyle.wdAdjustProportional)
        .Columns(4).SetWidth(oWord.CentimetersToPoints(5.0F), Word.WdRulerStyle.wdAdjustProportional)
    End With
    
    ' 设置表格边框
    With oTable.Range.Tables(1).Borders
        .LineStyle = Word.WdLineStyle.wdLineStyleSingle
        .LineWidth = Word.WdLineWidth.wdLineWidth025pt
        .Color = Word.WdColor.wdColorAutomatic
        .Shadow = False
        .Item(Word.WdBorderType.wdBorderDiagonalDown).LineStyle = Word.WdLineStyle.wdLineStyleNone
        .Item(Word.WdBorderType.wdBorderDiagonalUp).LineStyle = Word.WdLineStyle.wdLineStyleNone
    End With
    
    oTable.Rows.Height = 7
    
    ' 清理无用书签
    If oDoc.Bookmarks.Exists(bookmarkName) Then
        oDoc.Bookmarks(bookmarkName).Delete()
    End If
    
    ' 保存并释放COM对象，避免内存泄漏
    oDoc.Save()
    oWord.Quit(SaveChanges:=Word.WdSaveOptions.wdSaveChanges)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(oTable)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(oWord)
    oTable = Nothing
    oDoc = Nothing
    oWord = Nothing
End Sub

额外注意事项 #

• 确保@@Item_List1@@占位符放在两个表格之间的空白段落中，不能在现有表格的单元格内部，否则插入操作仍会失败。
• 操作Word COM对象后一定要手动释放，避免内存泄漏（代码中已添加Marshal.ReleaseComObject）。

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