Как в 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]

← →
Аид (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.

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

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