Word 2016-如何在表格的所有單元格中插入帶有內容控件的行-VBA？

Question

我有一個 1 行 5 列（單元格）的表格。

下面的代碼成功地在下面插入了一行 5 列但只有一個內容控件到第一個單元格中。

Dim oTable As table
Dim oCell As Cell
Dim oNewRow As Row
    Set oTable = ActiveDocument.Tables(1)
    Set oNewRow = oTable.Rows.Add
    Set oCell = oNewRow.Cells(1)
    ActiveDocument.ContentControls.Add wdContentControlRichText, oCell.Range
lbl_Exit:
    Exit Sub

如何在行中的所有 5 個單元格中輸入內容控件？

Answer 1

根據蒂姆·威廉姆斯的建議：

Dim oTable As table
Dim oCell As Cell
Dim oNewRow As Row
    Set oTable = ActiveDocument.Tables(1)
    Set oNewRow = oTable.Rows.Add
    Set oCell = oNewRow.Cells(1)
    ActiveDocument.ContentControls.Add wdContentControlRichText, oCell.Range
    Set oCell = oNewRow.Cells(2)
    ActiveDocument.ContentControls.Add wdContentControlRichText, oCell.Range
    Set oCell = oNewRow.Cells(3)
    ActiveDocument.ContentControls.Add wdContentControlRichText, oCell.Range
    Set oCell = oNewRow.Cells(4)
    ActiveDocument.ContentControls.Add wdContentControlRichText, oCell.Range
    Set oCell = oNewRow.Cells(5)
    ActiveDocument.ContentControls.Add wdContentControlRichText, oCell.Range
lbl_Exit:
    Exit Sub