Извлечение участка текста из Word-документа, содержащего заданную подстроку. - VB

Формулировка задачи:

Добрый день!
Необходимо написать скрипт на VBScript, выполняющий следующую задачу:

По заданной пользователем строке текста(произвольной длины) определять, есть ли она в Word-документе.

Если есть, то извлекать либо абзац, либо предложения, содержащие указанную строку.
На данный момент я сделал самую простую для меня часть - поиск. Такой код получился:

Option Explicit

Dim Content, stringForSearch
Dim objWord, objFSO, objDoc, objSelection
Dim folderPath, fileName, filePath

folderPath = WScript.Arguments.Item(0)
fileName = WScript.Arguments.Item(1)
stringForSearch = WScript.Arguments.Item(2)

filePath = folderPath & "\" & fileName

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWord = CreateObject("Word.Application") 

objWord.DisplayAlerts = 0
Set objDoc = objWord.Documents.Open(filePath)
Set objSelection = objWord.Selection

objSelection.Find.Text = stringForSearch
objSelection.Find.Forward = TRUE
objSelection.Find.MatchWholeWord = TRUE

If objSelection.Find.Execute Then
	Wscript.Echo "Found"
Else
	Wscript.Echo "Didn't find"
End If

objDoc.Close
Set objDoc = Nothing

Set objSelection = Nothing
Set objFSO = Nothing

objWord.Quit
Set objWord = Nothing

По поводу второго пункта есть только соображения: в результате поиска строки возвращать номер ее позиции в документе, а после искать ближайшие символы, например, точки. Даже если эта идея верна, я не знаю как ее реализовать.
Скажите, пожалуйста, как это можно решить?
Заранее благодарю за помощь.

Решение задачи: «Извлечение участка текста из Word-документа, содержащего заданную подстроку.»

textual
                            Листинг программы 
                        
                            .Expand(wdParagraph)