''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System.IO
Imports System.Drawing
Imports System.Linq
Imports GrapeCity.Documents.Word

'' This sample shows how to find all occurrences of a string
'' in a DOCX document (see JsFrameworkExcerpt) using the
'' RangeBase.Find extension method provided by the
'' RangeBaseFindReplaceExtensions class.
Public Class FindAll
    Public Function CreateDocx() As GcWordDocument
        '' The string to find. Note that we use all lowercase,
        '' as we specify the ignore case option in the find call
        Const findPattern = "javascript framework"

        '' Load the document:
        Dim doc = New GcWordDocument()
        doc.Load(Path.Combine("Resources", "WordDocs", "JsFrameworkExcerpt.docx"))

        '' Find all occurrences of the search string, ignoring the case:
        Dim finds = doc.Body.Find(findPattern, New FindOptions(doc) With {.IgnoreCase = True})

        '' Print the number of found occurrences at the top of the document
        doc.Body.Paragraphs.Insert($"Found {finds.Count()} occurrences of '{findPattern}' in the document." + vbCrLf + vbCrLf, InsertLocation.Start)

        '' Done
        Return doc
    End Function
End Class