MS WORLD

← →
GGREED (2004-05-22 21:16) [0]

Добрый вечер, есть у меня еще один вопросик
Как можно создать отчет в MS World, например как бланк приказа, и вывести туда данные.
Спасибо.

← →
Inspired © (2004-05-23 01:53) [1]

Лучше берите Excel, там расчертите бланк и оставьте место куда чего-то нужно вписать, потом через OLE его откройте и по нужным ячейкам (их номера вам конечно известны) разложите все необходимое. потом делаете visible = true и пользователь может давить на принтер. проверено

← →
Alexandr (2004-05-23 11:47) [2]

можно и в word нарисовать заранее.
А потом по определенным закладкам определенными данными заполнять.

← →
Sergey Masloff (2004-05-23 12:24) [3]

Alexandr (23.05.04 11:47) [2]
>можно и в word нарисовать заранее.
Можно но Excel работает значительно быстрее. Мне вообще кажется что Excel и Word делали разные команды программистов и в той что занималась Excel было очень мало индийских программистов.

← →
Гаврила © (2004-05-23 12:27) [4]

>>Sergey Masloff (23.05.04 12:24) [3]
Разные и делали. И тех, которые делали Wor(l)d (:-)) потом расформировали

← →
GGREED (2004-05-23 13:01) [5]

>Лучше берите Excel, там расчертите бланк и оставьте место куда >
>чего-то нужно вписать, потом через OLE его откройте и по нужным
>ячейкам (их номера вам конечно известны) разложите все
>необходимое. потом делаете visible = true и пользователь может
>давить на принтер. проверено

Примерчик можно, если можно, то подробнее
Спасибо

← →
Dumnok (2004-05-24 00:42) [6]

Klndr : array[1..12] of string = ("Января", "Февраля", "Марта", "Апреля", "Мая", "Июня","Июля", "Августа", "Сентября", "Октября", "Ноября", "Декабря"); ...................................... procedure TF1.Word; var MW: Variant; S,r1,r2,r3,r4,r5: string; B: Boolean; i,k: Integer; Y,M,D: WORD; begin B:=false; S:=ExtractFilePath(Application.ExeName); if not IsOLEObjectInstalled("Word.Application") then begin ShowMessage("Word не установлен"); Exit; end; try MW:=GetActiveOleObject("Word.Application"); except B:=true; end; if B then MW:=CreateOleObject("Word.Application"); MW.Documents.Add(S+"Text\Doc.dot"); MW.Visible:=true; DecodeDate(Date,Y,M,D); r5:="""+IntToStr(D)+"""+" "+Klndr[M]+" "+IntToStr(Y); MW.Selection.GoTo(-1,0,0,"Dat2"); MW.selection.TypeText(r5); MW:=Unassigned; end;

← →
Dumnok (2004-05-24 00:46) [7]

Только предварительно сделай закладку "Dat2" в шаблоне своего документа.

MS WORLD Найти похожие ветки