¿Cómo buscar el contenido de un archivo de Excel (en la columna A) en un archivo de Word y agregar un comentario sobre esa palabra con el contenido de la columna B?

Question

Primero me gustaría decir que tengo conocimientos básicos de VBA.

Actualmente estoy intentando crear una macro en Word que me gustaría vincular a un archivo de Excel abierto y buscar una palabra de la columna A en el archivo de Word abierto. Luego me gustaría hacer que la macro coloque un comentario sobre esa palabra en Word e inserte el contenido de la columna B del archivo de Excel.

Intenté combinar diferentes líneas de código de diferentes fuentes, pero parece que no puedo hacerlo funcionar.

¿Hay alguien aquí que sepa cómo hacer esto?

¡Muchas gracias de antemano!

Tengo el siguiente código para agregar el comentario (pero no está vinculado al archivo de 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

y el siguiente fragmento de código que encuentra el contenido de la columna A y actualmente lo reemplaza con el contenido de la columna 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