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