VBA Excel, запускающий Word Doc, не может создавать интерактивные флажки - PullRequest
Новая
       18

VBA Excel, запускающий Word Doc, не может создавать интерактивные флажки

0 голосов
/ 27 августа 2018

У меня есть документ Excel, где я перебираю ячейки для создания текстового документа с активируемыми флажками. Я принимаю значение 1 ячейки в качестве заголовка, значение ячейки следующего столбца в качестве значения, которое требует флажок рядом с ним. По сути, это список задач, которые я хочу вырезать и вставить в электронную почту, чтобы убедиться, что они выполнены. Я использую позднюю привязку, чтобы сгенерировать документ Word из Excel, и мне интересно, связано ли это с моими проблемами. Я пробовал все разные примеры создания флажков и обычно получаю сообщение об ошибке Object Required. 

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

Я получаю

Неверное количество аргументов или неверное присвоение свойства.

Любая помощь приветствуется. Спасибо!

...