VBA Excel启动Word Doc无法创建可单击的复选框

Question

我有一个Excel文档，在其中循环遍历单元格以生成带有可单击复选框的Word文档。我将1单元格值作为标题，将下一列单元格值作为需要在其旁边的复选框的值。基本上，这是我要剪切并粘贴到电子邮件以确保已完成的任务的列表。我正在使用后期绑定从Excel生成Word文档，并且想知道这是否与我的问题有关。我尝试了创建复选框的所有不同示例，并且通常会收到“对象必需”错误消息。

Dim wrdApp As Object 

Set wrdApp = CreateObject("Word.Application")

Set wrdDoc = wrdApp.Documents.Add

Set objSelection = wrdApp.Selection

    For Row = 2 to lRow

       objSelection.TypeText Chr(13) & Cells(Row, 1).Value & Chr(13)

       'Here is where I would like to write a checkbox so it is to the left of the column 2 value

       objSelection.TypeText Cells(Row, 2).Value)

    Next Row

我以前从未从Excel到Word编写过，看来我应该能够编写一行简单的代码来编写复选框，但也许我错了。

我记录了添加复选框的宏，当我尝试此代码时：

 Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormCheckBox  

我知道

  

参数数量错误或属性分配无效。

当我尝试遵循这些原则时：

   wrdDoc.Selection.FormFields.Add Range:=InsertAfter, Type:=wdFieldFormCheckBox   

我知道

  

对象不支持此属性或方法。

尝试这样的事情

Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormCheckBox    

我知道

  

错误的参数数或无效的属性分配。

感谢您的帮助。谢谢！