Word VBA условный выпадающий список Comdobox заполнены из Excel

Question

Проект состоит в том, чтобы повторно использовать текст, ранее написанный в отчетах, где это применимо для использования в подобных ситуациях для будущих отчетов.Они, конечно, должны быть отредактированы подробно.

Непосредственная задача состоит в том, чтобы использовать условный комбинированный список в ms_word vba для получения данных из ms-excel, поиска в одном столбце, возврата ответа в следующем столбце.

Приведенный ниже код взят из: shorturl.at/rwMW3 Сбой при первом операторе Set.Ошибка компиляции: синтаксическая ошибка.

Это единственный код, который я нашел для этого приложения.

Вылетает при первом операторе Set.Ошибка компиляции: синтаксическая ошибка.Любая помощь приветствуется.Я, конечно, ввел фактический полный путь и имя листа.

Sub FillCCLsitWithExcelData()
Dim xlapp As Object
Dim xlbook As Object    
Dim xlsheet As Object
Dim i As Long
Dim subject As String  
Dim bStart As Boolean
Dim ffield As FormField
Dim oCC As ContentControl
On Error Resume Next 
Set xlapp = GetObject(, "Excel.Application")
If Err Then bStart = True
Set xlapp = CreateObject("Excel.Application")
End If 
On Error GoTo 0
Set xlbook = xlapp.Workbooks.Open("D:\Data Stores\Data Source.xlsx")
        Set xlsheet = xlbook.Worksheets(1)
With xlsheet.Range("A1")
Set oCC = 
ActiveDocument.SelectContentControlsByTitle("Names").Item(1)
    For i = 2 To .CurrentRegion.Rows.Count
        Debug.Print .Offset(i - 1, 0)
        oCC.DropdownListEntries.Add Text:=.Offset(i - 1, 0), 
    Value:=.Offset(i - 1, 0)
Next i 
End With
xlbook.Close
If bStart = True Then xlapp.Quit
    End If
End Sub