Leta efter ett ord i ett word dokument?

Jag hittade denna lösning och det verkar fungera helt ok. Är det någon som vet en bättre lösning så hör gärna av dig. Kanske ska jag också nämna att lösningen måste fungera i en webmiljö.

    Private Function IndexWordFile(ByVal fullPath As String) As String
        Dim TextFileData As String = ""
        Dim App As Word.Application = New Word.ApplicationClass()
        Dim Nullobj As Object = System.Reflection.Missing.Value
        Dim Doc As Word.Document = App.Documents.Open(fullPath, Nullobj, Nullobj, Nullobj, Nullobj, Nullobj, _
        Nullobj, Nullobj, Nullobj, Nullobj, Nullobj, Nullobj, _
        Nullobj, Nullobj, Nullobj)
        Doc.ActiveWindow.Selection.WholeStory()
        Doc.ActiveWindow.Selection.Copy()
        TextFileData = Doc.ActiveWindow.Selection.Text
        Doc.Close(Nullobj, Nullobj, Nullobj)
        App.Quit(Nullobj, Nullobj, Nullobj)

        Return TextFileData
    End Function

Ctrl-H då?