var
wordApp, WordDoc, WrdSelection, wrdtable: variant;
strAdd: string;
wdPar,wdRange:OleVariant;
iCol, iRow, I, J: Integer;
begin
try
wordApp := CreateOleObject('Word.Application');
except
Application.MessageBox('Word沒有安裝', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
Exit;
end;
Self.Chart_Edit.CopyToClipboardBitmap;
wordApp.Visible := true;
wordDoc:=WordApp.Documents.Add();
wordDoc.select;
wrdSelection := WordApp.selection;
strAdd:='XXX分析報告';
//strAdd:= Format(strAdd, [FormatDateTime('YYYY', Date), WeekofYear(Date)]);
wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;
// wrdSelection.Font.bold := true;
// wrdSelection.Font.Size := 15;
// wrdSelection.TypeText(strAdd);
// wordApp.selection.TypeParagraph;//換行
// wrdSelection.Font.bold := false;
// wrdSelection.Font.Size := 10;
// wrdSelection.Font.bold := false;
// wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphLeft;
// wrdSelection.TypeText('打印時間：' + FormatDateTime('yyyy年hh月dd日 hh時MM分ss秒', Now));
// strAdd := '進樣時間：' + FormatDateTime('yyyy年hh月dd日 hh時MM分ss秒', Now) + ' ， 操作人：unknown';
// wrdSelection.TypeText(stradd);
// wordApp.selection.TypeParagraph;//換行
// strAdd := '質檢（E）字第（）號';
// wrdSelection.TypeText(stradd);
// wordApp.selection.TypeParagraph;//換行
// strAdd := '進樣單位： ' + ' 儀器型號：SC-1001-09A';
// wrdSelection.TypeText(stradd);
// wordApp.selection.TypeParagraph;//換行
// strAdd := '取樣日期：' + FormatDateTime('yyyy年hh月dd日 ', Now) + ' 取樣日期：' + FormatDateTime('yyyy年hh月dd日 ', Now);
// wrdSelection.TypeText(stradd);
// wordApp.selection.TypeParagraph;//換行
// strAdd := '樣品批號： ' + ' 樣品名稱：固液' ;
// wrdSelection.TypeText(stradd);
// wordApp.selection.TypeParagraph;//換行
// strAdd := '樣品罐號： ' ;
// wrdSelection.TypeText(stradd);
wordApp.selection.TypeParagraph;//換行
wordApp.selection.paste;
wordApp.selection.TypeParagraph;//換行
wordApp.selection.TypeParagraph;//換行
wordApp.selection.TypeParagraph;//換行
wdPar:=WordApp.ActiveDocument.Paragraphs.Add;
wdRange:=wdPar.Range;
wdRange := wordApp.ActiveDocument.Content;
wdRange.Collapse(wdCollapseEnd);
iRow := SGrid_PeakResult.RowCount;
iCol := SGrid_PeakResult.ColCount;
wrdtable := wordDoc.Tables.Add(wdRange,iRow, iCol);
for I := 0 to SGrid_PeakResult.RowCount -1 do
begin
for J := 0 to SGrid_PeakResult.ColCount -1 do
begin
wrdtable.Cell(I,J).Range.Text:= SGrid_PeakResult.Cells[J, I];
end;
end;
wrdtable.Borders.Item(wdBorderLeft).LineStyle:=wdLineStyleSingle;
wrdtable.Borders.Item(wdBorderRight).LineStyle:=wdLineStyleSingle;
wrdtable.Borders.Item(wdBorderTop).LineStyle:=wdLineStyleSingle;
wrdtable.Borders.Item(wdBorderBottom).LineStyle:=wdLineStyleSingle;
wrdtable.Borders.Item(wdBorderHorizontal).LineStyle:=wdLineStyleSingle;
wrdtable.Borders.Item(wdBorderVertical).LineStyle:=wdLineStyleSingle;
wrdtable.Borders.Item(wdBorderVertical).LineWidth:= wdLineWidth150pt; //
end;