Скачать: CL | DM;

Как в Word создать таблицу?   Найти похожие ветки 

← →
Barloggg   (2006-10-23 17:02) [0]

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

макрос создания таблицы в ворде (укороченный) выглядит так:
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:=2

вроде все просто
Но как он должен выглядеть в тексте программы?

---

← →
Barloggg   (2006-10-23 17:07) [1]

А вот полный код создания
   ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=5, NumColumns:= _
       3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
       wdAutoFitFixed


логично предположить что код должен быть такой
 W.ObjName := "ActiveDocument.Tables";
 W.ObjInvoke("Add", [ sParam("Range:=ActiveDocument.Selection.Range, NumRows:=5, NumColumns:=3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed") ], nil );

но это не так...

где читать?

---

← →
Vladimir Kladov   (2006-10-23 17:44) [2]

:= ?

---

← →
Vedun   (2006-10-23 20:31) [3]

Проще конечно работать с оффисом через модуль ComObj. Но он, зараза, весит довольно много.

---

← →
Barloggg   (2006-10-24 10:28) [4]

хмм... без документации не проще.
сам comobj я нашел. но толку?

знает ли кто-нибудь конкретные книжки по работе с вордом из среды программирования? пусть на аглицком.

---

← →
Barloggg   (2006-10-24 10:51) [5]

ага... вкурил статью
http://www.delphimaster.ru/articles/dbtoword/index.html

Но это в VCl. ну и ладно. для начала сойдет.
но вопрос я не снимаю.

кто может объяснить принцип перевода этого под KOL? а то я пока еще обезьяна с гранатой...

---

← →
Vedun   (2006-10-24 17:07) [6]

Посмотри на delphiworld.narod.ru
Большое собрание статей. Смотри раздел "Технологии" --> "OLE Automation MSOffice". Там около сотни статей на тему, как из Делфи работать с оффисом: создавать документы, вносить в них данные и др. Все это применимо к KOL. Я тут недавно делал программу для некоторых расчетов (на KOL конечно). Она брала данные из Excel. Размер проги получился большой, 130 кб. Но это все равно меньше, чем VCL.

---

← →
Vedun   (2006-10-24 17:08) [7]

Посмотри на delphiworld.narod.ru
Большое собрание статей. Смотри раздел "Технологии" --> "OLE Automation MSOffice". Там около сотни статей на тему, как из Делфи работать с оффисом: создавать документы, вносить в них данные и др. Все это применимо к KOL. Я тут недавно делал программу для некоторых расчетов (на KOL конечно). Она брала данные из Excel. Размер проги получился большой, 130 кб. Но это все равно меньше, чем VCL.

---

← →
Аид   (2007-05-14 05:38) [8]

просмотрел уже кучу статей но везде под VCL формат т.е.
MsWord := CreateOleObject("Word.Application");
MsWord.Documents.Add(fileName, EmptyParam);
MsWord.Selection.goto(What, Which, Count, Name);
MsWord.Run("NextCell");

под КОЛ же работает только создание/открытие документа, запись текста и выполнение макроса. Кто разобрался в чем грабли?

на метку к примеру не переходит
program Base;

uses
 KOL,Windows,KOLword;
var W: PWordDocument;
begin
 W := NewWordDocument;
 W.ObjName := "Documents";
 W.ObjInvoke( "Open", [sParam("C:\1.doc")], nil );
 W.ObjName := "Application";
 W.ObjInvoke( "Run", [ sParam("s2") ], nil );
 W.ObjName := "Documents";
 W.ObjName := "Selection";
 W.ObjInvoke( "GoTo", [ sParam("wdGoToBookmark,0,"c1"") ], nil );
 W.ObjInvoke( "TypeText", [ sParam("xXx") ], nil );
 W.ObjName := "Application";
 W.ObjInvoke( "Run", [ sParam("s_exit") ], nil );
 W.Free;
end.

---

← →
max727   (2007-06-27 18:51) [9]

люди, а как сделать ворд видимым?

---

← →
max727   (2007-06-28 16:40) [10]


program HelloWorld;

uses
 KOL, KOLWord;

var W:PWordDocument;

begin
 W:=NewWordDocument;
 W.ObjInvoke( "Add", [], nil );
 W.ObjName := "Selection";
 W.ObjInvoke( "TypeText", [ sParam("Hello, Wor(L)d!") ], nil );
 W.ObjName := "Application";
 W.ObjPropBool["Visible"]:=True;
 MsgOK("По идее должен показаться ворд, но его нет!");
 W.Free;
end.


что неправильно?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.013 c