Isso funciona se todo o seu texto for como a amostra que você forneceu. Basta abrir seu arquivo de texto no Excel e adicionar uma nova planilha para criar sua tabela de termos de substituição (com cabeçalhos). Eu configurei para ler a primeira coluna como os termos "antes" e a segunda coluna como os termos "depois". Depois disso, pressione Alt + F11 para abrir o painel do editor do VBA. Insira um novo módulo e cole o código a seguir.
Option Explicit
Sub cleanupText()
Dim allTxt() As Variant, sublist() As Variant
Dim i As Long, j As Long, k As Long, tdots As Integer
'Store data from sheets in arrays.
allTxt = Sheets(1).UsedRange.Value
sublist = Sheets(2).UsedRange.Offset(1, 0).Resize(Sheets(2).UsedRange.Rows.Count - 1, Sheets(2).UsedRange.Columns.Count).Value
For i = 1 To UBound(allTxt, 1)
For j = 1 To UBound(allTxt, 2)
'Loop through replacement terms and make replacements to data in array.
For k = 1 To UBound(sublist, 1)
allTxt(i, j) = Replace(allTxt(i, j), sublist(k, 1), sublist(k, 2))
Next k
allTxt(i, j) = Trim(allTxt(i, j))
'Remove series of trailing periods.
If Right(allTxt(i, j), 1) = "." Then
tdots = 1
Else
tdots = 0
End If
Do While tdots = 1
allTxt(i, j) = Left(allTxt(i, j), Len(allTxt(i, j)) - 1)
If Right(allTxt(i, j), 1) = "." Then
tdots = 1
Else
tdots = 0
End If
Loop
allTxt(i, j) = Trim(allTxt(i, j))
Next j
Next i
'Print cleaned up results in array onto sheet.
ActiveSheet.UsedRange.Value = allTxt
End Sub
Execute o código e salve seu arquivo como texto.