КАК ВЫКОВЫРЯТЬ ТЕКСТ ИЗ WORD?

← →
Миша (2005-05-18 10:10) [0]

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

← →
evvcom © (2005-05-18 11:14) [1]

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

← →
Sha © (2005-05-18 11:18) [2]

Выковыривай все картинки - останется текст.

← →
Миша (2005-05-18 14:44) [3]

Да на хрена мне эти картинки. Надо чтобы вордовский текст появился в Label1!

← →
RaPToR_1 (2005-05-18 14:55) [4]

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

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

← →
Kray © (2005-05-18 14:59) [5]

Направление:
Если знаешь номер таблицы то через массив таблиц ворда обращаешься к нужной ячейке таблицы и считываешь из нее текст.

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

← →
Ega23 © (2005-05-18 15:02) [6]

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

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

← →
Миша (2005-05-18 15:09) [7]

Ну всё хоре от темы уходить.
Пробывал вот как:

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). ...! Почему?
Или у кого есть более лучше идеи?
Отвертку прошу не предлагать больше!

← →
mazter © (2005-05-18 15:20) [8]

Можно просто прыгать по таблицам вообще не касаясь прочего текста а оттуда уже дергать текст. Если что стучи в аську 4420585, Костя.

← →
$SerG$ © (2005-05-18 17:02) [9]

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

← →
Миша (2005-05-18 20:12) [10]

Удалено модератором
Примечание: Ты сюда за помощью пришел, или чтобы поязвить?

← →
uny © (2005-05-18 20:24) [11]

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

← →
KilkennyCat © (2005-05-18 20:48) [12]

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

← →
Andy BitOff © (2005-05-18 22:14) [13]

Посмотри это, может поможет.
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";

← →
Миша (2005-05-19 05:21) [14]

Извеняюсь...

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

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

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

Что за ошибка? Я же не телепат.

← →
Миша (2005-05-19 19:17) [16]

Тогда по другому.
Тут есть люди-ТЕЛЕПАТЫ?
Подскажите, пожалуйста(см. выше)!

Сначала выбираешь нужную область типа
WordApplication1.ActiveDocument.Range(номер первого символа,номер последнего символа).Select;
потом получаем строку
st:string;
st:=WordApplication1.Selection.Text;

Можно так
st:string;
st:=Doc1.Tables.Item(2).Cell(WhereTable1End,2).Range.Text;

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

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

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

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

я о

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

КАК ВЫКОВЫРЯТЬ ТЕКСТ ИЗ WORD? Найти похожие ветки