Снова Word (№ слова -> предложение) [D6, WinXP]
Pavelkq © (2004-07-29 15:09:00)
Имею программу, которая знает себе номер слова в ворде, типа
CreateOleObject('Word.Application').Documents.Open('имя
файла').Words.Item(№)
Вот этот № и есть номер слова в ворде. Мне нужно создать
новый документ, включающий в себя предложение, в которое входит
слово с номером №.
Я написал функцию, которая возвращает № первого и
последнего слова данного предложения. Пеперь, казалось бы, в цикле
собирай все это в String, но нет. В таком варианте в Stringe будет
набор слов, не разделенный пробелами. Вот бы все это
повыделять(тогда пробелы тоже выделяются) и уже присвоить Stringу
выделение? Или еще как?
Pavelkq (2004-07-29 15:48:00) [1]
На форуме по VBA не подсказали следующей код:
public function Sntnc()as string
Selection.Move wdSentence, -1
Selection.EndOf wdSentence, wdExtend
Sntnc = Selection.Text
End Sub
Как теперь это адаптировать в Дельфи?
Наверх 
ЧАТ |
Орешник |
|
