Главная страница
    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.034 c
1-1091364760
oleg_SYS
2004-08-01 16:52
2004.08.15
Создание файла компонентом в Design-тайме


14-1090995611
menart
2004-07-28 10:20
2004.08.15
Олимпиада 2004


1-1091504016
Eagle8
2004-08-03 07:33
2004.08.15
Icon


11-1078777135
Phantomaz
2004-03-08 23:18
2004.08.15
Что такое - Symbol RaiseList is deprecated ?


14-1090568050
Pr0GrAmmer32WinAPI
2004-07-23 11:34
2004.08.15
IE, POST запрос на чистом API





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский