Sub ReplaceFromTextFile()
Dim oRng As Range
Dim sFindText As String, sReplacement As String
Dim iNum As Integer
Dim sData As String
Dim vData As Variant
Const sName As String = "C:\Path\Forums\list.txt"

    iNum = FreeFile()
    Open sName For Input As #iNum

    While Not EOF(iNum)
        Line Input #iNum, sData
        vData = Split(sData, Chr(9))
        Set oRng = ActiveDocument.Range
        sFindText = vData(0)
        sReplacement = vData(1)
        With oRng.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            Do While .Execute(FindText:=sFindText, _
                              MatchWholeWord:=True, _
                              MatchWildcards:=False, _
                              Forward:=True, _
                              Wrap:=wdFindStop) = True
                oRng.Text = sReplacement
                oRng.Collapse wdCollapseEnd
            Loop
        End With
    Wend
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub