Dim oRng As Range
Dim strText As String
Dim oFld As FormField
    Set oRng = ActiveDocument.Range
    With oRng.Find
        .ClearFormatting
        .Font.Color = wdColorRed
        .Replacement.ClearFormatting
        Do While .Execute(Forward:=True) = True
            strText = oRng.Text
            oRng.Text = vbNullString
            Set oFld = ActiveDocument.FormFields.Add(oRng, wdFieldFormTextInput)
            oFld.Result = strText
        Loop
    End With
    ActiveDocument.Protect _
     Type:=wdAllowOnlyFormFields, _
     NoReset:=True, _
     Password:=""