Want to save time? You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout PDF Suite for find keyword in pdf and extract page with pdf extractor sdk below and use it in your application. This VB.NET sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Use of ByteScout PDF Suite in VB.NET is also described in the documentation included along with the product.
If you want to try other source code samples then the free trial version of ByteScout PDF Suite is available for download from our website. Just try other source code samples for VB.NET.
' This example page extraction by found keyword. Imports Bytescout.PDFExtractor Class Program Friend Shared Sub Main(args As String()) Dim inputFile As String = ".\sample2.pdf" ' Create Bytescout.PDFExtractor.TextExtractor instance Dim extractor As New TextExtractor() extractor.RegistrationName = "demo" extractor.RegistrationKey = "demo" ' Load sample PDF document extractor.LoadDocumentFromFile(inputFile) Dim pageCount As Integer = extractor.GetPageCount() ' Search each page for a keyword For i As Integer = 0 To pageCount - 1 If extractor.Find(i, "bombardment", False) Then ' Extract page Using splitter As New DocumentSplitter("demo", "demo") splitter.OptimizeSplittedDocuments = True Dim pageNumber As Integer = i + 1 ' (!) page number in ExtractPage() is 1-based Dim outputFile As String = ".\page" & pageNumber.ToString() & ".pdf" splitter.ExtractPage(inputFile, outputFile, pageNumber) Console.WriteLine("Extracted page " & pageNumber.ToString() & " to file """ & outputFile & """") End Using End If Next ' Cleanup extractor.Dispose() Console.WriteLine() Console.WriteLine("Press any key...") Console.ReadKey() End Sub End Class