Добрый день!
Необходимо написать скрипт на VBScript, выполняющий следующую задачу:
По заданной пользователем строке текста(произвольной длины) определять, есть ли она в Word-документе.
Если есть, то извлекать либо абзац, либо предложения, содержащие указанную строку.
На данный момент я сделал самую простую для меня часть - поиск. Такой код получился:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
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
По поводу второго пункта есть только соображения: в результате поиска строки возвращать номер ее позиции в документе, а после искать ближайшие символы, например, точки. Даже если эта идея верна, я не знаю как ее реализовать.
Скажите, пожалуйста, как это можно решить?
Заранее благодарю за помощь.
