如何删除表格内的行？

Question

我正在尝试删除文档中多个表格中一行内的一些图像之前的一行或多行。

表格的部分如下所示，图像上方的线由黑色箭头显示。

这是我当前的代码，但没有删除任何内容

Sub RemoveLine()
Dim oTable As Table
Dim oRng As Range
Dim oFind As Range
   
Application.ScreenUpdating = False
    For Each oTable In ActiveDocument.Tables
    
        Set oRng = oTable.Range
        Set oFind = oTable.Range
        
        With oRng.Find
            Do While .Execute(FindText:="[^13^l]{1,}", MatchWildcards:=True)
                If oFind.InRange(oRng) Then
                    oFind.Text = ""
                End If
            Loop
        End With

    Next oTable

Application.ScreenUpdating = True
Set oTable = Nothing
Set oRng = Nothing

End Sub

Answer 1

子RemoveNestedTable() Dim mainTable 作为表格，oCell 作为单元格 Dim cellRange 作为范围，sText 作为字符串，i 作为 Long 如果 ActiveDocument.Tables.Count > 0 那么 ' 循环遍历表 对于 ActiveDocument.Tables 中的每个 mainTable ' 循环遍历单元格 对于 mainTable.Range.Cells 中的每个 oCell 设置 cellRange = oCell.Range sText = cellRange.Text 如果 Left(sText, 5) = Chr(13) & Chr(7) & Chr(13) & Chr(7) & Chr(47) 那么 cellRange.Collapse 方向:=wdCollapseStart ' 嵌套表 如果 cellRange.Tables.Count > 0 那么 cellRange.Tables(1).删除 万一 万一 下一个 下一个 万一 结束子