Форум: "Основная";
Текущий архив: 2007.10.28;
Скачать: [xml.tar.bz2];

Вниз

Передача данных в 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.045 c