Function ExtractTextENV(oDoc As Document) As Boolean
Dim oNewDoc As Document
Dim strNewName As String
Dim oFld As Field
Const strStart As String = "The information received does not support the service requested:"
Const strEnd As String = "The above actions are supported by the following:"
    On Error GoTo Err_Handler
    If InStr(1, oDoc.Range, strStart) > 0 And oDoc.Range.Fields.Count > 2 Then
        Set oNewDoc = Documents.Add(Visible:=False)
        oNewDoc.Range.Text = strStart & vbCr & oDoc.Range.Fields(2).Result & vbCr & strEnd
        oNewDoc.Range.Font.Reset
        strNewName = oDoc.FullName
        strNewName = Left(strNewName, InStrRev(strNewName, Chr(46)) - 1)
        strNewName = strNewName & "EN"
        strNewName = strNewName & Right(oDoc.Name, Len(oDoc.Name) - InStrRev(oDoc.Name, Chr(46)) + 1)
        oNewDoc.SaveAs strNewName, addtorecentfiles:=False
        oNewDoc.Close 0
    Else
        GoTo Err_Handler:
    End If
    ExtractTextENV = True
lbl_Exit:
    Exit Function
Err_Handler:
    ExtractTextENV = False
End Function