Форум: "Базы";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
ВнизВарианты передачи данных в Word Найти похожие ветки
← →
Ross (2002-02-23 15:32) [0]Какие есть варианты передачи данных в шаблон Ворда кроме использования Bookmark?
Спасибою
← →
gun19456 (2002-02-24 15:35) [1]Можно RTF сформировать, но мороки много.
Структура RTF смотри на сайте
http://blackman.km.ru
там же есть кое-что по COM об"ектам и работа с WORD unit в программах.
← →
MetallAdm (2002-02-24 15:41) [2]var MsWord:Variant;
i,gi:integer;
s,Lang,fname,st:string;
begin
MsWord:=Null;
try
if VarType(MsWord)<>varDispatch then
MsWord := CreateOleObject("Word.Basic");
end;
gi:=DBGrid.FieldCount;
for i:=0 to gi-1 do
begin
s:=s+g.Columns[i].Title.Caption+"|";
end;
s:=s+#13;
q.First;
While Not(q.Eof) do
begin
for i:=0 to gi-1 do
begin
fname:=g.Columns[i].FieldName;
st:=q.FieldByName(fname).AsString;
s:=s+st+"|";
end;
s:=s+#13;
q.Next;
end;
Application.Minimize;
MsWord.AppShow;
MSWord.FileNew;
MSWord.FontSize(8);
MSWord.Insert(S);
MSWord.FieldSeparator("|");
MSWord.EditSelectAll;
MSWord.TextToTable( ConvertFrom:= 3);
MSWord.TableSelectTable;
MSWord.TableAutoFormat( Format:=37, Borders:=1,Shading:=0, Font:=1,
Color:=0, AutoFit:=1, HeadingRows:=1,
FirstColumn:=1, LastRow:=0, LastColumn:=0);
MSWord.EditSelectAll;
MSWord.CenterPara;
MSWord.CharLeft(1);
MSWord.StartOfRow;
end;
Можно так !! в Ворде
А так в Екселе !!
В Екселе помоему проше :))
var
XL, XArr: Variant;
i : Integer;
j : Integer;
begin
XArr:=VarArrayCreate([1,10],varVariant);
XL:=CreateOLEObject("Excel.Application");
XL.WorkBooks.add;
XL.visible:=true;
Inc(j,2);
DM.QNarab.First;
while not DM.QNarab.Eof do
begin
for i:=0 to g.FieldCount-1 do {title from agents }
begin
XArr[1+i]:=g.Columns[i].Title.Caption;
st1:=DM.QNarab.FieldByName("nagent").AsString;
end;
XL.Range["C"+IntToStr(j),CHR(64+10)+IntToStrj)].Value := XArr;
XL.Range["B"+IntToStr(j),CHR(64+10)+IntToStr(j)].Select;
XL.Selection.Font.Bold := True;
XL.Selection.Interior.ColorIndex := 16;
xf:="B"+IntToStr(j);
Inc(j);
XL.cells.select;
XL.Selection.Font.Name:="Garamond";
XL.Selection.Font.Size:=10;
XL.selection.Columns.HorizontalAlignment:=xlCenter;
XL.selection.Columns.AutoFit;
XL.Columns["A:A"].ColumnWidth := 1.57;
XL.Range["C2:E2"].Select;
XL.Selection.Interior.ColorIndex := 39;
XL.Selection.Font.Bold := True;
XL.Selection.Font.Size:=12;
XL.Range["A1","A1"].Select;
end;
← →
MetallAdm (2002-02-24 15:44) [3]Будут вопросы пиши !!
вобшем хочу статью сюда бросить как
работать с Екселем !
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c