Пример для KOLWord

← →
Лёля (2005-02-09 20:43) [0]

Пожалуйста, киньте убедительныйпример использования KOLWord!

← →
z007 (2005-02-10 00:48) [1]

Кидаю...

← →
Solik (2005-02-10 08:10) [2]

и мне!

← →
ser_ker (2005-02-10 10:33) [3]

И мне

← →
z007 (2005-02-10 23:40) [4]

Отправил.

← →
hotes © (2005-02-11 06:26) [5]

И мне тоже. А еще лучше скинь на какой либо сайт.

← →
z007 (2005-02-12 00:29) [6]

http://z007temp.narod.ru/upkstd.zip
Пример-то хоть достаточно убедительный?

← →
Halfback (2005-02-21 14:52) [7]

Люди, помогите разобраться с компонентом KOLWord.
Мне нужно знать как реализовать следующее:
1. Выдрать нужную строку из определенной страници документа Word, например типа вот такой мной придуманной функцией:
GetWFString(FileName: string, Stranica: byte, NumberStr: byte): string;
Документ *.doc можно вообще не открывать. Нужны ТОЛЬКО содержимое его строк.

Вообще говоря у передо мной задача такая: перенести все строки документа Word в текстовой файл.

← →
Halfback (2005-02-22 00:45) [8]

Народ!!! Ну напишите хоть пару процедур/функций из того что мне надо(см. выше). Примеры и демки я уже просмотрел - там нет того что мне надо.

← →
Solik (2005-02-22 07:32) [9]

После такого текст будет в буфере обмена:
var W: Variant; begin if Form1.OpenSaveDialog1.Execute then begin kol.OleInit; try W:=CreateOleObject("Word.Basic"); W.FileOpen(Form1.OpenSaveDialog1.Filename); W.EditSelectAll; W.EditCopy; finally W.FileExit; W:=0; end; kol.oleuninit; end; end;
только минус - uses ComObj :(
exe сильно увеличивается

← →
Halfback (2005-02-22 14:41) [10]

>> Solik
Сенкс. От диалога я избавлюсь т.к. он мне не нужен. А размер файла у меня 19кБ. Не так уж и много прибавилось :)
Есть еще один глупый вопрос: как создать текстовой файл (имя текстовика: Cat.txt, место - там где экзешник) и вставить в него содержимое из буфера, а потом его (текстовик) сохранить?

← →
z007 (2005-02-23 21:39) [11]

StrSaveToFile(GetStartDir + "Cat.txt",Clipboard2Text);

← →
Solik (2005-02-24 12:04) [12]

при использовании ComObj 19kb?
как это? у меня все 100

← →
thaddy (2005-02-24 12:28) [13]

Use D4 or D5, not D6 or higher:variants unit adds 70 K. And use system replcacements. 19 K seems a little exagerated (but possible! I didn't check) but under 30 K should be possible easily.
The case of variants.pas is a well known issue and has been on this forum many times. There are not many drawbacks in using an earlier version of Delphi with KOL I recommend using D5 (or D4:the compiler didn't change much from D 5 and even the system replacements for D4 are almost exactly the same as D5!)

А не подскажете ли, как работать с вордом из своего приложения (мне нужно создать подобие отчета). Например, установить жирный шрифт, применить стиль оформления или вставить таблицу, а то что- то все мои попытки неудачны :(.

← →
z007 (2005-04-03 00:34) [15]

См. http://z007temp.narod.ru/upkstd.zip и справку к WordVBA или WordBasic

Самое интересное, что все это я уже изучил перед тем, как задавать вопрос :).
Допустим тестовый макрос на VBA выглядит так:
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:=2 Selection.TypeText "col1, cell1" Selection.MoveRight Unit:=wdCell Selection.TypeText "col1, cell2" Selection.MoveRight Unit:=wdCell Selection.TypeText "col2, cell1"
Все параметры передать через KOLWord.ObjInvoke можно, кроме Range:=Selection.Range (или я просто не знаю, как). Вот и интересно, как с этим работать?
С выделением разнообразного шрифта я разобрался и делаю, например, так:
WordDoc.ObjName := "Selection.Font"; WordDoc.ObjPropBool["Bold"] := true; WordDoc.ObjPropBool["Italic"] := true;

Пример для KOLWord Найти похожие ветки