docInfo.Lock(LockType.Exclusive)
            If docInfo.EntryType = EntryType.Document Then
                If docInfo.Extension.Trim = "" Then

                    Using ocrEngine As OcrEngine = ocrEngine.LoadEngine()
                        ocrEngine.AutoOrient = True
                        ocrEngine.Decolumnize = True
                        ocrEngine.OptimizationMode = OcrOptimizationMode.Accuracy
                        ocrEngine.Run(docInfo)
                    End Using
                Else

                    Using objExtraerTexto As TextExtractor = TextExtractor.LoadExtractor
                        objExtraerTexto.ExtractFrom(docInfo)
                    End Using
                End If
            End If
            docInfo.Unlock()