Как удалить строку в Word-таблице XML-средствами?

[Скрипт]

Sub Procedure_1()
    
    'Нужно подключить библиотеку: Tools - References.. - Microsoft XML версия.
    Dim myTable As Word.Table
    Dim myXMLDocument As New MSXML2.DOMDocument
    Dim myRow As MSXML2.IXMLDOMElement
    
    '1. Даю таблице VBA-имя "myTable". Через это имя
        'буду обращаться к таблице.
    Set myTable = ActiveDocument.Tables(1)
    
    '2. Формирую XML-объект для работы с Word-документом.
    myXMLDocument.LoadXML myTable.Range.XML
    
    '3. Проходимся по всем строкам таблицы.
    For Each myRow In myXMLDocument.getElementsByTagName("w:tr")
        '4. Как удалить строку?
    Next myRow
        
End Sub

[Скрипт]

Вот так можно удалить. Но я пока наобум делаю.

Sub Procedure_1()
    
    'Нужно подключить библиотеку: Tools - References.. - Microsoft XML версия.
    Dim myXMLDocument As New MSXML2.DOMDocument
    Dim myXMLSelection_1 As MSXML2.IXMLDOMSelection
    Dim myXMLSelection_2 As MSXML2.IXMLDOMSelection
    Dim myXMLTable As MSXML2.IXMLDOMElement
    Dim myRow As MSXML2.IXMLDOMElement
    Dim myTable As Word.Table
    Dim myRange As Word.Range
    
    '1. Даю таблице VBA-имя "myTable". Через это имя
        'буду обращаться к таблице.
    Set myTable = ActiveDocument.Tables(1)
    
    '2. Формирую XML-объект для работы с Word-документом.
    myXMLDocument.LoadXML myTable.Range.XML
    
    '3. Получаем коллекцию всех таблиц, которые мы взяли в объект "myXMLDocument".
    Set myXMLSelection_1 = myXMLDocument.getElementsByTagName("w:tbl")
    
    '4. Получаем доступ к первой таблице (порядковый номер первой таблицы ноль).
    Set myXMLTable = myXMLSelection_1.Item(0)
    
    '5. Получаем коллекцию всех строк в таблице.
    Set myXMLSelection_2 = myXMLTable.getElementsByTagName("w:tr")
    
    '6. Получаем доступ к первой строке.
    Set myRow = myXMLSelection_2.Item(0)
    
    '7. Удаляем строку.
    myXMLTable.RemoveChild childNode:=myRow
    
    '4. Вставка изменённой таблицы в конце документа.
     Set myRange = _
        ActiveDocument.Range(Start:=ActiveDocument.Range.End - 1, End:=ActiveDocument.Range.End - 1)
     
     myRange.InsertXML myXMLDocument.XML
    
End Sub