Word-VBA-如何将宏按钮窗体字段插入表格单元格？

我正在尝试将宏按钮表单字段插入单元格2中，但我不断收到运行时错误“4605”：此方法或属性不可用，因为绘图操作无法应用于当前选择

Dim oTable As Table
Dim ocell As Cell
Dim oCC As ContentControl
Dim oForm As Fields

Dim oNewRow As Row
    Set oTable = ActiveDocument.Tables(1)
    Set oNewRow = oTable.Rows.Add
    Set ocell = oNewRow.Cells(1)
    Set oCC = ActiveDocument.ContentControls.Add(wdContentControlRichText, oCell.Range)
    
    Set oCell = oNewRow.Cells(2)
    Set oForm = ActiveDocument.Fields.Add(oCell.Range, Type:=wdFieldEmpty, Text:= _
        "MACROBUTTON  test1 - ", PreserveFormatting:=False)
lbl_Exit:
    Exit Sub

调试器突出显示以下内容：

Set oForm = ActiveDocument.Fields.Add(oCell.Range, Type:=wdFieldEmpty, Text:= _
        "MACROBUTTON  test1 - ", PreserveFormatting:=False)

这是根据下面记录的宏改编的，该宏通过手动选择所需单元格并运行宏成功插入表单字段

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "MACROBUTTON  test1 - ", PreserveFormatting:=False

我正在查看，但不知道如何适应我的代码

您的代码有两个问题。 您已经将表单声明为字段，它应该是字段。您插入的是单个字段，而不是集合。 不能将字段插入单元格区域，首先必须将区域折叠到单个插入点

Dim oTable As Table
Dim ocell As Cell
Dim oCC As ContentControl
Dim oForm As Field
Dim oRange as Range

Dim oNewRow As Row
    Set oTable = ActiveDocument.Tables(1)
    Set oNewRow = oTable.Rows.Add
    Set ocell = oNewRow.Cells(1)
    Set oCC = ActiveDocument.ContentControls.Add(wdContentControlRichText, oCell.Range)
    
    Set oRange = oNewRow.Cells(2).Range
    oRange.Collapse Direction:=wdCollapseStart
    Set oForm = ActiveDocument.Fields.Add(oRange, Type:=wdFieldEmpty, Text:= _
        "MACROBUTTON  test1 - ", PreserveFormatting:=False)
lbl_Exit:
    Exit Sub

---

尝试将oForm声明更改为单数：负数。还是得到同样的错误：-（谢谢你善良的先生！