Доступ к объектам MS Word из Delphi :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Доступ к объектам MS Word из Delphi

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки

DmitryKz

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Подскажите, как можно узнать стиль выделенного участка текста. Что-то никак не доходит. Например, нужно узнать, имеет ли участок стиль "Заголовок 1". Пока решил так:

Код:

CurStyle := PWordApp.Selection.Get_Style;
NameStyle := CurStyle.NameLocal;
if (NameStyle = 'Heading 1') or (NameStyle = 'Заголовок 1') then
...

Но мне не хотелось бы завязываться на локализованных версиях имен заголовков. В Ворде есть константа - wdStyleHeading1 и т.д. для остальных заголовков. Можно ли как-то узнать ее наличие у искомого текста, точнее говоря, данного объекта Selection?

Всего записей: 3147 | Зарегистр. 29-09-2005 | Отправлено: 02:49 06-09-2008

Pawo Advanced Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору http://forum.ru-board.com/topic.cgi?forum=33&topic=9383&start=620#lt
	Всего записей: 1105 \| Зарегистр. 05-05-2007 \| Отправлено: 23:59 06-09-2008

DmitryKz Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Pawo Угу... Вообще-то я по просьбе модератора открыл новую тему, посвященную Ворду. Ведь это вопрос не чисто дельфийский.
	Всего записей: 3147 \| Зарегистр. 29-09-2005 \| Отправлено: 00:50 07-09-2008

Kins

Junior Member

Существует книга "Программирование документов и приложений MS Office в Delphi" автор, Корняков В.
Думаю она тебе поможет.
_http://www.knigka.info/2007/10/01/programmirovanie_dokumentov_i_prilozhenijj_ms_office_v_delphi.html

Всего записей: 132 | Зарегистр. 30-10-2003 | Отправлено: 07:54 10-09-2008

DmitryKz Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Kins Есть у меня такая книга. Увы, там ничего подходящего нет. Макросы тоже орудуют локазилованными "Заголовок 1" и т.д.
	Всего записей: 3147 \| Зарегистр. 29-09-2005 \| Отправлено: 13:01 10-09-2008

Kins

Junior Member

Почитав это:
_http://msdn.microsoft.com/de-de/library/microsoft.office.interop.word.style.basestyle(VS.80).aspx
и это
_http://www.transcriber.ru/etudesrus/hlp_objstyle.htm ,
покопавшись в Object Browser в VBA имхуется мне что через Selection достучаться не получится

попробуй обратиться сюда http://forum.ru-board.com/topic.cgi?forum=33&topic=5312#1

из чисто спортивного интереса

для чего такое условие?

Всего записей: 132 | Зарегистр. 30-10-2003 | Отправлено: 15:39 11-09-2008 | Исправлено: Kins, 15:49 11-09-2008

DmitryKz

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Ну, в принципе я разобрался

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

Всего записей: 3147 | Зарегистр. 29-09-2005 | Отправлено: 17:14 16-09-2008

Alexslv

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Доброго времени суток. Я долго бьюсь над решением одного вопроса, может быть кто-нибудь подскажет.
Суть вот в чем. Каким образом можно выделить, скажем 10-е слово в 3-м абзаце документа, к примеру?
Или по другому, есть документ, нужно в поле Memo вынести с каждого абзаца перове слово?
Все что мне известно о чтении текста из документа, так это через процедуру Range(first, last) и при помощи коллекции Words. По-моему этого мало для реализации моей задачи.
Заранее благодарен

Всего записей: 15 | Зарегистр. 11-12-2007 | Отправлено: 18:09 13-01-2009

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Доступ к объектам MS Word из Delphi

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC