I used Steve's original code (not as complex as I expected) and modified it to get this working version with the posted Word document. I put the code in Sheet2 module.
Code:
Sub Macro1()
Dim i As Integer, oString As String, oSearch As String, oStartPosition As Integer
Range("A1").Value = "Chain:"
Range("A2").Value = "BIN:"
Range("A3").Value = "MCC/SIC:"
Range("A4").Value = "City:"
Range("A5").Value = "Country:"
Range("A6").Value = "Currency Code:"
Range("A7").Value = "Merchant Number:"
Range("A8").Value = "Location Number:"
Range("A9").Value = "Merchant Name:"
Range("A10").Value = "State:"
Range("A11").Value = "Store Number:"
Range("A12").Value = "Phone Number:"
Range("A13").Value = "V Number:"
Range("A14").Value = "Postal Code:"
Range("A15").Value = "Terminal#:"
For i = 1 To 15
oSearch = Range("A" & i).Value
oString = Sheet1.Range("A1:A1000").Find(oSearch, lookat:=xlPart)
oStartPosition = InStr(oString, oSearch) + Len(oSearch)
oString = Trim(Mid(oString, oStartPosition))
oString = Trim(Left(oString, IIf(InStr(oString, " ") = 0, Len(oString), InStr(oString, " "))))
Range("B" & i).Value = oString
Next
Columns("A:B").EntireColumn.AutoFit
Columns("C:B").HorizontalAlignment = xlRight
End Sub