Find string in Excel sheet from Word doc

[gmayor]

If I understand the requirement correctly, you want to search column 2 of your worksheet for a term selected in a word document, and if that term is found, you want to copy the value from column 4 of the same row to column 2?
That being the case the following Word macro should do the job:

Sub Macro1()
Dim xlApp As Object
Dim xlWB As Object
Dim xlWS As Object
Dim idx As Long
Dim wdDoc As Document
Dim oRng As Range

    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    If Err Then
        MsgBox "Open Excel and the workbook first!", vbCritical
        GoTo lbl_Exit
    End If
    On Error GoTo 0
    Set xlWB = xlApp.activeworkbook
    Set wdDoc = ActiveDocument
    Set oRng = Selection.Range
    If Len(oRng) = 0 Then
        MsgBox "Nothing selected in the document!", vbCritical
        GoTo lbl_Exit
    End If

    Set xlWS = xlWB.Sheets("new_prices")
    With xlWS
        For idx = 1 To .UsedRange.Rows.Count
            Debug.Print .Cells(idx, 2) & vbTab & oRng.Text
            If .Cells(idx, 2) = oRng.Text Then .Cells(idx, 2) = .Cells(idx, 4)
        Next idx
    End With
lbl_Exit:
    Set wdDoc = Nothing
    Set oRng = Nothing
    Set xlApp = Nothing
    Set xlWB = Nothing
    Set xlWS = Nothing
    Exit Sub
End Sub