получение текстового диапазона программым путем - Microsoft Office Word - Страница 2

Lisi4ka · 10.04.2009, 18:48

viter.alex, спасибо! ваша идея мне очень помогла!

viter.alex · 10.04.2009, 21:41

Пожалуйста.
Какой жуткий код получился на Delphi. Куча просто ненужных переменных. А еще ООП

Sasha_Smirnov · 11.04.2009, 00:58

Вдогонку замечу, что, окажись вопрос нестандартным (с примечанием там или, допустим, в два абзаца), — и всё летит к чёрту. Но всё-таки здорово, что это можно сделать и в Delphi! Точнее — что в Delphi! можно сделать и это!

В реальных текстах тестов нередко встречаются вместо символов абзаца (код 13) — переводы строк (код 11), и (для унификации) я применяю

Код:

With Selection.Find
    .Text = "^l"                          'ищем разрывы строк символом ^11'
    .Replacement.Text = "^p"    'заменяем их на "нормальный" абзац ^13'
    .Wrap = wdFindContinue    'переход (после замены) к дальнейшему поиску'
    .Execute Replace:=wdReplaceAll  'выполнение замены'
    
    .Text = ""                               'очистка поля Найти:'
    .Replacement.Text = ""          'очистка поля Заменить на:'
    .Execute                                  'выполнение очистки'
End With

А чтобы, для обработки последних записей, ваш код сильно не менять, просто добавьте (программно) в конец обрабатываемого текста ещё один абзац. Всё.

Lisi4ka · 11.04.2009, 08:27

Согласна, на VBA все выглядит намного проще, но, как сказал Sasha_Smirnov, хорошо, что это все-таки можно сделать в Дельфи

. А что касается символов перевода строки, тут уж не до жиру, я сама буду списки вопросов составлять! Позже разберусь с последним вопросом, если в конце дока не будет двух Ентеров) Как сделаю, выложу код

10.04.2009, 21:41	#12
viter.alex Балуюсь кодами Участник клуба Регистрация: 09.01.2009 Сообщений: 1,837	Пожалуйста. Какой жуткий код получился на Delphi. Куча просто ненужных переменных. А еще ООП Лучше день потерять — потом за пять минут долететь!©

11.04.2009, 00:58	#13
Sasha_Smirnov Особый статус Участник клуба Регистрация: 24.11.2008 Сообщений: 1,535	Вдогонку замечу, что, окажись вопрос нестандартным (с примечанием там или, допустим, в два абзаца), — и всё летит к чёрту. Но всё-таки здорово, что это можно сделать и в Delphi! Точнее — что в Delphi! можно сделать и это! В реальных текстах тестов нередко встречаются вместо символов абзаца (код 13) — переводы строк (код 11), и (для унификации) я применяю Код: With Selection.Find .Text = "^l" 'ищем разрывы строк символом ^11' .Replacement.Text = "^p" 'заменяем их на "нормальный" абзац ^13' .Wrap = wdFindContinue 'переход (после замены) к дальнейшему поиску' .Execute Replace:=wdReplaceAll 'выполнение замены' .Text = "" 'очистка поля Найти:' .Replacement.Text = "" 'очистка поля Заменить на:' .Execute 'выполнение очистки' End With А чтобы, для обработки последних записей, ваш код сильно не менять, просто добавьте (программно) в конец обрабатываемого текста ещё один абзац. Всё. Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html Последний раз редактировалось Sasha_Smirnov; 11.04.2009 в 13:33.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Создание билетов путем импорта из таблицы	mistx	Microsoft Office Excel	2	25.02.2009 09:02
Эллипс путем перемещения точки вокруг отрезка	Dublin	Мультимедиа в Delphi	4	22.10.2008 21:30
Как вставить имя файла с путем в combobox	Andreych74	Win Api	0	08.10.2008 10:30
Имя диапазона	CAMyM	Microsoft Office Excel	8	09.11.2007 10:16
Как ввести пароль для БД Paradox программным путем ?	zetrix	БД в Delphi	2	07.04.2007 21:50

10.04.2009, 18:48	#11
Lisi4ka Пользователь Регистрация: 28.09.2008 Сообщений: 31	viter.alex, спасибо! ваша идея мне очень помогла!

11.04.2009, 08:27	#14
Lisi4ka Пользователь Регистрация: 28.09.2008 Сообщений: 31	Согласна, на VBA все выглядит намного проще, но, как сказал Sasha_Smirnov, хорошо, что это все-таки можно сделать в Дельфи . А что касается символов перевода строки, тут уж не до жиру, я сама буду списки вопросов составлять! Позже разберусь с последним вопросом, если в конце дока не будет двух Ентеров) Как сделаю, выложу код