Как создать код VBA для генерации чистого формата XML

Question

У меня есть макрос документа VBA, который создает шаблоны таблиц. После того, как эти таблицы обновлены пользователем, endgoal должен создать чистый XML-файл. Ниже приведен пример кода для создания шаблонов таблиц. Я называю ячейки с помощью cell.ID, чтобы имена отображались в виде тегов в XML. Однако этого не происходит. Пожалуйста помоги. Я хочу видеть имена ячеек в виде тегов xml, чтобы сделать их более читабельными.

Вот код макроса.

Sub create_table()

Dim oTbl As Table

With ActiveDocument
  Set oTbl = .Tables.Add(Range:=Selection.Range, NumRows:=3, _
    NumColumns:=3, DefaultTableBehavior:=wdWord8TableBehavior)

    With oTbl.Borders
     .InsideLineStyle = wdLineStyleSingle
     .OutsideLineStyle = wdLineStyleDouble
    End With

    oTbl.Cell(1, 1).Range.Text = "Question 1"
    oTbl.Cell(2, 1).Range.Text = "Answer 1"
    oTbl.Cell(3, 1).Range.Text = "Hint 1"

    oTbl.Cell(1, 1).ID = "Question"
    oTbl.Cell(1, 2).ID = "Answer"
    oTbl.Cell(1, 3).ID = "Hint"

End With

End Sub

XML-файл выглядит примерно так:

-<w:tblGrid>

<w:gridCol w:w="3192"/>

<w:gridCol w:w="3192"/>

<w:gridCol w:w="3192"/>

</w:tblGrid>


-<w:tr w:rsidTr="007A68D5" w:rsidR="007A68D5">


-<w:tblPrEx>


-<w:tblCellMar>

<w:top w:w="0" w:type="dxa"/>

<w:bottom w:w="0" w:type="dxa"/>

</w:tblCellMar>

</w:tblPrEx>


-<w:tc>


-<w:tcPr>

<w:tcW w:w="3192" w:type="dxa"/>

<w:shd w:color="auto" w:val="clear" w:fill="auto"/>

</w:tcPr>


-<w:p w:rsidR="007A68D5" w:rsidRDefault="007A68D5">


-<w:r>

<w:t>Question 1</w:t>