Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

КАК ВЫКОВЫРЯТЬ ТЕКСТ ИЗ WORD? [D6, WinXP]

Миша © (2005-05-18 10:10:00)
Здравствуйте, Мастера.
У меня такой вопрос:
Как мне из Word-овского файла выковырять текст, находящийся в таблице и помимо этого всего там ещё есть картинки.
Видел как выковыревают картинки, а как ТЕКСТ нет!
Поделитесь своими извилинами! Буду очень РАД!

YurikGL (2005-05-19 21:57:00) [1]

> Какой буфер? Ты о чем?

я о

> Скопировать в буфер и вставить
> (ctrl+C/ctrl+V)

Andy BitOff (2005-05-19 20:34:00) [2]
YurikGL © (19.05.05 20:04) [18]
st:=Doc1.Tables.Item(2).Cell(WhereTable1End,2).Range.Text;
а буфер использовать не советую... у пользователя там могло что-нибудь лежать.

Какой буфер? Ты о чем?

YurikGL (2005-05-19 20:04:00) [3]
Можно так
st:string;
st:=Doc1.Tables.Item(2).Cell(WhereTable1End,2).Range.Text;

а буфер использовать не советую... у пользователя там могло что-нибудь лежать.

YurikGL (2005-05-19 20:03:00) [4]
Сначала выбираешь нужную область типа
WordApplication1.ActiveDocument.Range(номер первого символа,номер последнего символа).Select;
потом получаем строку
st:string;
st:=WordApplication1.Selection.Text;

Миша (2005-05-19 19:17:00) [5]
Тогда по другому.
Тут есть люди-ТЕЛЕПАТЫ?
Подскажите, пожалуйста(см. выше)!

Andy BitOff (2005-05-19 12:57:00) [6]
Что за ошибка? Я же не телепат.

Миша (2005-05-19 05:21:00) [7]
Извеняюсь...

Здесь ошибка
WhereTable1End:=WordApp.ActiveDocument.Tables.Item(1).Range. End;
Andy BitOff, помоги разобраться!

> Использовать конвертацию. Соответсвующие длл лежат в коммонфайлах, TEXTCONV

KilkennyCat, не понял тебя. Поясни, пожалуйста.

Andy BitOff (2005-05-18 22:14:00) [8]
Посмотри это, может поможет.
var WordApp:Variant; Doc1,WhereTable1End:OleVariant; ... WordApp := CreateOleObject('Word.Application'); WordApp.Documents.Open(DocFileName); Doc1 := WordApp.ActiveDocument; WhereTable1End:=WordApp.ActiveDocument.Tables.Item(1).Range.End; try Doc1.Tables.Item(2).Cell(WhereTable1End,2).Range.Text:='aaaaa'; Doc1.Tables.Item(2).Cell(WhereTable1End,4).Range.Text:='bbbbb'; Doc1.Tables.Item(2).Cell(WhereTable1End,5).Range.Text:='ccccc';

KilkennyCat (2005-05-18 20:48:00) [9]
Использовать конвертацию. Соответсвующие длл лежат в коммонфайлах, TEXTCONV

uny (2005-05-18 20:24:00) [10]
Миша, Вам советовали отвёртку, а я думал - нет, нет!
после поста [10] я понял в чём дело!
лучше делайте как привычнее.
:)

Миша (2005-05-18 20:12:00) [11]
Удалено модератором
Примечание: Ты сюда за помощью пришел, или чтобы поязвить?

$SerG$ (2005-05-18 17:02:00) [12]
Скопировать в буфер и вставить
(ctrl+C/ctrl+V)

mazter (2005-05-18 15:20:00) [13]
Можно просто прыгать по таблицам вообще не касаясь прочего текста а оттуда уже дергать текст. Если что стучи в аську 4420585, Костя.

Миша (2005-05-18 15:09:00) [14]
Ну всё хоре от темы уходить.
Пробывал вот как:

WordApplication1.ActiveDocument.Shapes.Item(shape).TextFrame.TextRange.Select; WordApplication1.Selection.Copy; ClipBoard.Open; if (Clipboard.HasFormat(CF_text))then label1.Assign(Clipboard); ClipBoard.Clear; Clipboard.Close;

Не прокатывает вот где ... .Item(shape). ...! Почему?
Или у кого есть более лучше идеи?
Отвертку прошу не предлагать больше!

Ega23 (2005-05-18 15:02:00) [15]
2 RaPToR_1 (18.05.05 14:55) [4]
обычно такие ответы нужно давать тогда когда можешь человеку помочь а не умничать!
ту миша, ищи компоненты работающие с вордом....

Хто бы говорил....

Kray (2005-05-18 14:59:00) [16]
Направление:
Если знаешь номер таблицы то через массив таблиц ворда обращаешься к нужной ячейке таблицы и считываешь из нее текст.

можно экспериментировать с считыванием в вариантный массив всей таблицы - с вордом не пробовал.

RaPToR_1 (2005-05-18 14:55:00) [17]

> Обычно что-нибудь выковыривают отверткой. В магазин надо
> сходить, если свой еще нет

обычно такие ответы нужно давать тогда когда можешь человеку помочь а не умничать!
ту миша, ищи компоненты работающие с вордом....

Миша (2005-05-18 14:44:00) [18]
Да на хрена мне эти картинки. Надо чтобы вордовский текст появился в Label1!

Sha (2005-05-18 11:18:00) [19]
Выковыривай все картинки - останется текст.

evvcom (2005-05-18 11:14:00) [20]
Обычно что-нибудь выковыривают отверткой. В магазин надо сходить, если свой еще нет.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »