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

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

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

Пример для KOLWord [Delphi]

Лёля © (2005-02-09 20:43:00)
Пожалуйста, киньте убедительныйпример использования KOLWord!

frozzzen (2005-04-03 11:15:00) [1]
Самое интересное, что все это я уже изучил перед тем, как задавать вопрос :).
Допустим тестовый макрос на 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;

z007 (2005-04-03 00:34:00) [2]
См. http://z007temp.narod.ru/upkstd.zipи справку к WordVBA или WordBasic

frozzzen (2005-04-01 11:49:00) [3]
А не подскажете ли, как работать с вордом из своего приложения (мне нужно создать подобие отчета). Например, установить жирный шрифт, применить стиль оформления или вставить таблицу, а то что- то все мои попытки неудачны :(.

thaddy (2005-02-24 12:28:00) [4]
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!)

Solik (2005-02-24 12:04:00) [5]
при использовании ComObj 19kb?
как это? у меня все 100

z007 (2005-02-23 21:39:00) [6]
StrSaveToFile(GetStartDir + 'Cat.txt',Clipboard2Text);

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

Solik (2005-02-22 07:32:00) [8]
После такого текст будет в буфере обмена:
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 00:45:00) [9]
Народ!!! Ну напишите хоть пару процедур/функций из того что мне надо(см. выше). Примеры и демки я уже просмотрел - там нет того что мне надо.

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

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

z007 (2005-02-12 00:29:00) [11]
http://z007temp.narod.ru/upkstd.zip
Пример-то хоть достаточно убедительный?

hotes (2005-02-11 06:26:00) [12]
И мне тоже. А еще лучше скинь на какой либо сайт.

z007 (2005-02-10 23:40:00) [13]
Отправил.

ser_ker (2005-02-10 10:33:00) [14]
И мне

Solik (2005-02-10 08:10:00) [15]
и мне!

z007 (2005-02-10 00:48:00) [16]
Кидаю...

Наверх

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