Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.28;
Скачать: CL | DM;

Вниз

Передача данных в Word   Найти похожие ветки 

 
vamp_avp   (2007-08-10 11:06) [0]

Есть шаблон в ворде
мне нужно из дельфи передать данные в шаблон ворда
может кто нить занимался подобной проблемой и подскажет мне где нибуть чего нибуть
ЗАРАНЕЕ БЛАГОДАРЕН!


 
Savek   (2007-08-10 18:52) [1]

Имеем шаблон документа "Целевой взнос", вот код для его заполнения и печати

waMoney:TWordApplication;

waMoney.Documents.OpenOld(Path,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Empty Param,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
{-----------------------------------------------------------Вставка первой даты}
  waMoney.Selection.SetRange(140,140);
  waMoney.Selection.InsertAfter(Copy(DateToStr(Date),1,2)+" "+
                                NameMonth(MonthOf(Date),15)+" "+
                                 IntToStr(YearOf(Date))+"г.");
{-----------------------------------------------------------Вставка второй даты}
  waMoney.Selection.SetRange(629,629);
  waMoney.Selection.InsertAfter(Copy(DateToStr(Date),1,2)+" "+
                                NameMonth(MonthOf(Date),15)+" "+
                                 IntToStr(YearOf(Date))+"г.");
{-----------------------------------------------------------Вставка третьей даты}
  waMoney.Selection.SetRange(1122,1122);
  waMoney.Selection.InsertAfter(Copy(DateToStr(Date),1,2)+" "+
                                NameMonth(MonthOf(Date),15)+" "+
                                 IntToStr(YearOf(Date))+"г.");
{--------------------------------------------------Вставка первой суммы цифрами}
p1:=5;
  waMoney.ActiveDocument.Shapes.Item(p1).Select(Emptyparam);
  waMoney.Selection.SetRange(30,30);
  waMoney.Selection.InsertAfter(IntToStr(Sum));
  wfMoney.ConnectTo(waMoney.Selection.Font);
  wfMoney.Name:="Arial";
  wfMoney.Bold:=1;
  wfMoney.Italic:=1;
  wfMoney.Size:=14;
{--------------------------------------------------Вставка второй суммы цифрами}
p1:=13;
  waMoney.ActiveDocument.Shapes.Item(p1).Select(Emptyparam);
  waMoney.Selection.SetRange(30,30);
  waMoney.Selection.InsertAfter(IntToStr(Sum));
  wfMoney.ConnectTo(waMoney.Selection.Font);
  wfMoney.Name:="Arial";
  wfMoney.Bold:=1;
  wfMoney.Italic:=1;
  wfMoney.Size:=14;
{--------------------------------------------------Вставка третьей суммы цифрами}
p1:=22;
  waMoney.ActiveDocument.Shapes.Item(p1).Select(Emptyparam);
  waMoney.Selection.SetRange(0,0);
  waMoney.Selection.InsertAfter(IntToStr(Sum));
  wfMoney.ConnectTo(waMoney.Selection.Font);
  wfMoney.Name:="Arial";
  wfMoney.Italic:=1;
  wfMoney.Size:=12;

{------------------------------------------------Вставка первой суммы прописью}
tSum:=CurrToText(sum,True,False,true) ;
p1:=6;
  waMoney.ActiveDocument.Shapes.Item(p1).Select(Emptyparam);
  waMoney.Selection.InsertAfter(tSum);
{------------------------------------------------Вставка второй суммы прописью}
p1:=14;
  waMoney.ActiveDocument.Shapes.Item(p1).Select(Emptyparam);
  waMoney.Selection.SetRange(0,0);
  waMoney.Selection.InsertAfter(tSum);

tW:=Length(tSum);
lL:=Round(tw*7.5);
LW:=330-lL;
p1:=1;
p2:=49;
  waMoney.ActiveDocument.Shapes.Item(p2).Select(Emptyparam);
  waMoney.Selection.ShapeRange.Item(p1).Left:=lL;
  waMoney.Selection.ShapeRange.Item(p1).Width:=lW;
p2:=50;
  waMoney.ActiveDocument.Shapes.Item(p2).Select(Emptyparam);
  waMoney.Selection.ShapeRange.Item(p1).Left:=lL;
  waMoney.Selection.ShapeRange.Item(p1).Width:=lW;
p2:=41;
  waMoney.ActiveDocument.Shapes.Item(p2).Select(Emptyparam);
  waMoney.Selection.ShapeRange.Item(p1).Left:=lL;
  waMoney.Selection.ShapeRange.Item(p1).Width:=lW;
p2:=42;
  waMoney.ActiveDocument.Shapes.Item(p2).Select(Emptyparam);
  waMoney.Selection.ShapeRange.Item(p1).Left:=lL;
  waMoney.Selection.ShapeRange.Item(p1).Width:=lW;

  waMoney.PrintOutOld;
p2:=false;  
  {waMoney.Visible:=true;}
  waMoney.ActiveDocument.Close(p2,EmptyParam,EmptyParam);



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

Текущий архив: 2007.10.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
2-1191864483
bagos
2007-10-08 21:28
2007.10.28
цветной текст в stringgrid


2-1191743251
мфтнф_й
2007-10-07 11:47
2007.10.28
TCustomListBox -- OnDblClick


2-1191312738
webpauk
2007-10-02 12:12
2007.10.28
PopupMenu.Items.Width


2-1191334493
alles
2007-10-02 18:14
2007.10.28
Вопрос по TForm


2-1191565058
vlad0
2007-10-05 10:17
2007.10.28
Счетчик ссылок.