Как найти содержимое файла Excel (в столбце A) в файле Word и добавить комментарий к этому слову с содержимым столбца B?

Question

Для начала я хотел бы сказать, что у меня есть базовые знания VBA.

В настоящее время я пытаюсь создать макрос в Word, который я хотел бы связать с открытым файлом Excel и выполнить поиск слова из столбца A в открытом файле Word. Затем я хотел бы, чтобы макрос поместил комментарий к этому слову в Word и вставил содержимое столбца B файла Excel.

Я пытался объединить разные строки кода из разных источников, но, похоже, у меня не получилось заставить это работать.

Есть ли здесь кто-нибудь, кто знает, как это сделать?

Спасибо заранее!

У меня есть следующий код для добавления комментария (но он не связан с файлом Excel):

Selection.Find.ClearFormatting

Dim range As range
Set range = ActiveDocument.Content

Do While range.Find.Execute("XXXXXX") = True
ActiveDocument.Comments.Add range, "YYYYYY"
Loop

и следующий фрагмент кода, который находит содержимое столбца A и в данный момент заменяет его содержимым столбца B.

Dim ws As Activesheet, msWord As Object, itm As range

Set ws = Activesheet
Set msWord = ActiveDocument.Content

With msWord ' cant figure out how to change this so it uses the currently open Word file.
    .Visible = True
    .Documents.Open "F:\Test folder\TestFolder\Test.docx"
    .Activate

    With .ActiveDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting

        For Each itm In ws.UsedRange.Columns("A").Cells

            .Text = itm.Value2                          'Find all strings in col A

            .Replacement.Text = itm.Offset(, 1).Value2  'Replacements from col B

            .MatchCase = False
            .MatchWholeWord = False

            .Execute Replace:=2     'I guess this should be replaced with the code that places the text YYYYYY as a comment on the text XXXXXX?
        Next
    End With
    .Quit SaveChanges:=True
End With