I think this macro would replace the fill-in fields with the text that shows up as the result after the field is filled in:

Sub UnlinkFillInFields()

Dim myField As Field

For Each myField In ActiveDocument.Fields
If myField.Type = wdFieldFillIn Then
myField.Unlink
End If
Next myField

End Sub