|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.11.2010, 14:15 | #1 |
Форумчанин
Регистрация: 27.09.2010
Сообщений: 376
|
RTF содержимое ячейки таблицы MS Word в Буфер обмена или в RichEdit
Здравствуйте.
У меня есть таблица в MS Word в которой в ячейках двух столбцов содержится отформатированный текст (индексы, курсив). Запустим следующих код: ... Table.Cell(jGridCols, iGridRows).Range.Copy; ... RichEdit1.PasteFromClipboard; Текст вставляется в RichEdit отформатированным, НО!!! вместе с рамкой (сеткой таблицы) ячейки. Для справки: =================================== == MSWord := CreateOleObject('Word.Application') ; Table := MSWord.ActiveDocument.Tables.Item(i TableChosen); =================================== ============= Пожалуйста, покажите кусочек кода или подскажите направление в котором искать, чтобы скопировать только отформатированный текст (содержимое) в ячейке таблицы Word. Возможно есть другой путь, не сразу из Word. Просто надо ввести очень много данных в БД с сохранением форматирования. Спасибо. P.S. Я задавал этот вопрос, но видимо не в нужном месте (http://programmersforum.ru/showthrea...65581&posted=1 ). |
24.11.2010, 15:18 | #2 |
Пользователь
Регистрация: 23.09.2010
Сообщений: 65
|
Код:
Код:
|
24.11.2010, 15:50 | #3 | |
Форумчанин
Регистрация: 27.09.2010
Сообщений: 376
|
Цитата:
Первая строчка записывает в буфер обмена содержимое ячейки + РАМКА. Со второй строчкой - я не понял. В Word это работает отлично, вставляется без рамки. Как это получить в Delphi? Вопрос даже не по Delphi: Как в буфер обмена получить содержимое ячейки без рамки? Неужели единственный путь создать ещё один документ, вставить из буфера содержимое, вырезать его и иметь только содержимое ячейки и делать так в цикле Может подскажете как выделить в MS Word всё, только что вставленное. Спасибо. P.S. Опять не туда попал... Не знаю уж где задать вопрос. P.P.S. Спасибо forumWord, для VBA ответ на отлично. Спасибо. P.P.S. !!! Проблема разрешена !!! См. "Из ячейки таблицы Microsoft Word в RichEdit" http://programmersforum.ru/showthrea...65581&posted=1 . В буфер обмена копируется то, что нужно. Всем спасибо. Последний раз редактировалось OlegVE; 24.11.2010 в 19:57. Причина: Добавка |
|
24.11.2010, 20:51 | #4 |
Форумчанин
Регистрация: 29.09.2008
Сообщений: 378
|
Код:
Макросы на заказ и готовый пакет - http://mtdmacro.ru/
|
25.11.2010, 12:54 | #5 | |
Форумчанин
Регистрация: 27.09.2010
Сообщений: 376
|
Цитата:
Проблема состояла в том, что при отсутствии содержимого в ячейке выскакивает ошибка (по крайней мере в Delphi). Надо просто проверить, например так: if not VarisEmpty(Table.Cell(jGridCols, iGridRows).Range.FormattedText) then begin ... прежде чем копировать Selection. Спасибо всем. |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Из ячейки таблицы Microsoft Word в RichEdit | OlegVE | Общие вопросы Delphi | 3 | 24.11.2010 13:54 |
Буфер обмена | dmitriegorovih | Общие вопросы Delphi | 13 | 09.09.2010 12:54 |
Буфер обмена | Dem6 | Общие вопросы Delphi | 0 | 14.12.2009 19:09 |
буфер обмена | olimpus | Microsoft Office Excel | 2 | 19.09.2009 08:52 |