Чтение определенного столбца из таблицы Excel на основе макроса MS-word VBA

Question

Я хотел бы выделить конкретные слова, данные в определенном столбце листа Excel, в текстовом документе.

У меня есть рабочее решение (см. Ниже), которое читает слова из файла слов, но я не могу запустить его, чтобы сделать то же самое, используя определенный столбец из файла Excel. По сути, я хочу сделать то, что делает следующий код Python (но для VBA):

import pandas as pd
all = pd.read_excel("list.xlsx")
docRef = all(all["MY COLUMN NAME"])

... и docRef следует использовать в приведенном ниже коде. Я просто не могу запустить его ...

Sub highlightWords()

Dim sCheckDoc As String
Dim docRef As Document
Dim docCurrent As Document
Dim wrdRef As Object

sCheckDoc = "list.docx"
Set docCurrent = Selection.Document
Set docRef = Documents.Open(sCheckDoc)
docCurrent.Activate

Options.DefaultHighlightColorIndex = wdRed
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Highlight = True
    .Replacement.Text = "^&"
    .Forward = True
    .Format = True
    .MatchWholeWord = True
    .MatchCase = False
    .MatchWildcards = False
End With

For Each wrdRef In docRef.Words
    If Asc(Left(wrdRef, 1)) > 32 Then
        With Selection.Find
            .Wrap = wdFindContinue
            .Text = wrdRef
            .Execute Replace:=wdReplaceAll
        End With
    End If
Next wrdRef

docRef.Close
docCurrent.Activate
End Sub

Код изменен с здесь .

Answer 1

Чтобы управлять Excel из Word, вам нужно установить ссылку на библиотеку Excel в редакторе Word VBA: Инструменты, Ссылки, прокрутить вниз до Microsoft Excel и поставить галочку.

Затем вам нужно открыть Excel и загрузить рабочую книгу

   Dim XL as new Excel.Application
   Dim wb as Excel.Workbook
   Set wb = xl.Workbooks.open("path and name of file list.xlsx")
   For Each wordref in wb.Sheets(1).Range("a1:A" & wb.Sheets(1).usedrange.rows.count)