Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.08.15;
Скачать: [xml.tar.bz2];

Вниз

Снова Word (№ слова -> предложение)   Найти похожие ветки 

 
Pavelkq   (2004-07-29 15:09) [0]

Имею программу, которая знает себе номер слова в ворде, типа
CreateOleObject("Word.Application").Documents.Open("имя файла").Words.Item(№)
Вот этот № и есть номер слова в ворде. Мне нужно создать новый документ, включающий в себя предложение, в которое входит слово с номером №.
 Я написал функцию, которая возвращает № первого и последнего слова данного предложения. Пеперь, казалось бы, в цикле собирай все это в String, но нет. В таком варианте в Stringe будет набор слов, не разделенный пробелами. Вот бы все это повыделять(тогда пробелы тоже выделяются) и уже присвоить Stringу выделение? Или еще как?


 
Pavelkq   (2004-07-29 15:48) [1]

На форуме по VBA не подсказали следующей код:
public function Sntnc()as string
Selection.Move wdSentence, -1
Selection.EndOf wdSentence, wdExtend
Sntnc = Selection.Text
End Sub

 Как теперь это адаптировать в Дельфи?



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.08.15;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.037 c
14-1091173497
Layner
2004-07-30 11:44
2004.08.15
Мышь(оптическая) сама бегает в win2000 :)


14-1091175255
Knight
2004-07-30 12:14
2004.08.15
Кто знает как сделать, чтобы в контекстное меню системы...


14-1091016286
Vlad Oshin
2004-07-28 16:04
2004.08.15
Край березового ситца. Рассказ.


3-1090388023
Fynjy1984
2004-07-21 09:33
2004.08.15
Acces+ADOQuery


3-1089984099
Term
2004-07-16 17:21
2004.08.15
DBGrid





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский