Based on your example file, the following macro will extract the data. Change strPath to wherever you require the text file to be saved.
Sub Macro1()
Dim oPara As Paragraph
Dim vLink As Variant
Dim fso As Object
Dim oFile As Object
Const strPath As String = "C:\Path\Results.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.CreateTextFile(strPath)
For Each oPara In ActiveDocument.Paragraphs
If Len(oPara.Range) > 5 Then
vLink = Split(oPara.Range.Text, "%")
oFile.WriteLine Replace(vLink(UBound(vLink) - 5), "2F", "")
End If
Next oPara
oFile.Close
MsgBox "Data extracted"
lbl_Exit:
Set fso = Nothing
Set oFile = Nothing
Set oPara = Nothing
Exit Sub
End Sub