请问如何象WORD一样画表格和在表内填文字,并能保存和调用。(能否留个QQ交流一个) 请问如何象WORD一样画表格和在表内填文字,并能保存和调用。(能否留个QQ交流一个) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你可以用OLE嵌入WORD,然后将你设计好的格式用流的形式保存到数据库,需要的时候在载入就可以解决了 没人回答我顶:::procedure TForm1.BitBtn1Click(Sender: TObject);var NewTable,myRange,Word, Doc:OleVariant; //, Fields i:integer; Align,ShowFirst:olevariant;begin try Word:=CreateOleObject('Word.Application'); except application.MessageBox('Çë°²×°Microsoft Word 2000 »ò¸ü¸ß°æ±¾£¡','¾¯¸æ£¡',mb_ok+mb_iconwarning); abort; end; Word.Visible:=True; //´´½¨¿ÕÎĵµ£» Word.Documents.Add(); //½«Ò³Ãæ¸ÄΪ¡°ºáÏò¡±£» Word.ActiveDocument.PageSetup.Orientation := wdOrientLandscape; Word.ActiveDocument.PageSetup.LineNumbering.Active:=False; Word.ActiveDocument.PageSetup.Orientation := wdOrientLandscape; Word.ActiveDocument.PageSetup.TopMargin := 2/0.035; Word.ActiveDocument.PageSetup.BottomMargin := 2/0.035; Word.ActiveDocument.PageSetup.LeftMargin := 2/0.035; Word.ActiveDocument.PageSetup.RightMargin := 2/0.035; Word.ActiveDocument.PageSetup.Gutter := 0; Word.ActiveDocument.PageSetup.HeaderDistance := 1.2/0.035; Word.ActiveDocument.PageSetup.FooterDistance := 1.5/0.035; Word.ActiveDocument.PageSetup.PageWidth := 29.7/0.035; Word.ActiveDocument.PageSetup.PageHeight := 21/0.035; Word.ActiveDocument.PageSetup.FirstPageTray := wdPrinterDefaultBin; Word.ActiveDocument.PageSetup.OtherPagesTray := wdPrinterDefaultBin; Word.ActiveDocument.PageSetup.SectionStart := wdSectionNewPage; Word.ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter := False; Word.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter := False; Word.ActiveDocument.PageSetup.VerticalAlignment := wdAlignVerticalTop; Word.ActiveDocument.PageSetup.SuppressEndnotes := False; Word.ActiveDocument.PageSetup.MirrorMargins := False; Word.ActiveDocument.PageSetup.TwoPagesOnOne := False; Word.ActiveDocument.PageSetup.GutterPos := wdGutterPosLeft; Word.ActiveDocument.PageSetup.LayoutMode := wdLayoutModeLineGrid; Doc := Word.ActiveDocument; //дÈëҳüҳ½Å //дÈëҳüҳ½Å If word.ActiveWindow.View.SplitSpecial <> wdPaneNone Then begin word.ActiveWindow.Panes(2).Close; End; If (word.ActiveWindow.ActivePane.View.Type=wdNormalView) Or (word.ActiveWindow.ActivePane.View.Type=wdOutlineView) Then begin word.ActiveWindow.ActivePane.View.Type:=wdPrintView; End; word.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader; Word.Selection.Font.NameFarEast:='ËÎÌå'; Word.Selection.Font.NameAscii:='Times New Roman'; Word.Selection.Font.NameOther:='Times New Roman'; Word.Selection.Font.Name:='Times New Roman'; Word.Selection.Font.Size:=9; Word.Selection.Font.Bold:=false; Word.Selection.Font.Italic:=wdToggle; Word.Selection.TypeText(Text:='<< Ç¿ÄÔ¹¤³ÌÒµÎñѵÁ·ÏµÍ³ >>'); word.Application.Selection.ParagraphFormat.Alignment := wdAlignParagraphRight; Align:=wdAlignPageNumberCenter; ShowFirst:=True; Word.ActiveDocument.Sections.Item(1).Footers.Item(1).PageNumbers.Add(Align,ShowFirst); Word.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument; //дÈë±êÌ⣻ Word.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter; Word.Selection.Font.NameFarEast:='ËÎÌå'; Word.Selection.Font.NameAscii:='Times New Roman'; Word.Selection.Font.NameOther:='Times New Roman'; Word.Selection.Font.Name:='Times New Roman'; Word.Selection.Font.Size:=22; Word.Selection.Font.Bold := true; Word.Selection.TypeText(Text:='ѵÁ·¼Æ»®'); Word.Selection.TypeParagraph; Word.Selection.ParagraphFormat.Alignment:= wdAlignParagraphJustify; Word.Selection.Font.NameFarEast:='ËÎÌå'; Word.Selection.Font.NameAscii:='Times New Roman'; Word.Selection.Font.NameOther:='Times New Roman'; Word.Selection.Font.Name:='Times New Roman'; Word.Selection.Font.Size:=9; Word.Selection.Font.Bold := false; //Word.Selection.Font.Bold:=wdToggle; Word.Selection.TypeParagraph; //»­³ö¿Õ±í¸ñ£» Word.ActiveDocument.Tables.Add(Range:=Word.Selection.Range, NumRows:=10, //ClientDataSet_tmp.RecordCount+1, NumColumns:=10, DefaultTableBehavior:=0, AutoFitBehavior:=0); //ºÏ²¢±í¸ñ word.Selection.MoveDown(wdLine,1,wdExtend); word.Selection.Cells.Merge; word.Selection.MoveRight(1,1,wdMove); word.Selection.MoveRight(1,5,wdExtend); word.Selection.Cells.Merge; word.Selection.MoveRight(2,1,wdMove); word.Selection.MoveDown(wdLine,1,wdExtend); word.Selection.Cells.Merge; word.Selection.MoveRight(3,1,wdMove); word.Selection.MoveDown(wdLine,1,wdExtend); word.Selection.Cells.Merge; word.Selection.MoveRight(3,1,wdMove); word.Selection.MoveDown(wdLine,1,wdExtend); word.Selection.Cells.Merge; word.Selection.MoveRight(3,1,wdMove); word.Selection.MoveDown(wdLine,1,wdExtend); word.Selection.Cells.Merge;end; 關於一個查詢的問題 如何实现这样的查询? dbgrideh 我想找到数据保存前的行号! 数据显示问题 简单问题 为何会出现尚未调用Coinitialize的错误提示???? 求自定义公式源码,如果没有我就要被boss炒了 请问adoquery控件使用UpdateRecord方法更新,提示为不在插入或修改模式要如何解决? 在客户端我怎么获得数据库服务器的日期?谢谢! 如何实现动态生成控件的事件,如何实现控件数组及其各自的事件 SQL如何访问,不在SERVER系统下. 求教:本人想用delphi实现并口通讯
procedure TForm1.BitBtn1Click(Sender: TObject);
var
NewTable,myRange,Word, Doc:OleVariant; //, Fields
i:integer;
Align,ShowFirst:olevariant;
begin
try
Word:=CreateOleObject('Word.Application');
except
application.MessageBox('Çë°²×°Microsoft Word 2000 »ò¸ü¸ß°æ±¾£¡','¾¯¸æ£¡',mb_ok+mb_iconwarning);
abort;
end;
Word.Visible:=True;
//´´½¨¿ÕÎĵµ£»
Word.Documents.Add();
//½«Ò³Ãæ¸ÄΪ¡°ºáÏò¡±£»
Word.ActiveDocument.PageSetup.Orientation := wdOrientLandscape;
Word.ActiveDocument.PageSetup.LineNumbering.Active:=False;
Word.ActiveDocument.PageSetup.Orientation := wdOrientLandscape; Word.ActiveDocument.PageSetup.TopMargin := 2/0.035;
Word.ActiveDocument.PageSetup.BottomMargin := 2/0.035;
Word.ActiveDocument.PageSetup.LeftMargin := 2/0.035;
Word.ActiveDocument.PageSetup.RightMargin := 2/0.035;
Word.ActiveDocument.PageSetup.Gutter := 0;
Word.ActiveDocument.PageSetup.HeaderDistance := 1.2/0.035;
Word.ActiveDocument.PageSetup.FooterDistance := 1.5/0.035;
Word.ActiveDocument.PageSetup.PageWidth := 29.7/0.035;
Word.ActiveDocument.PageSetup.PageHeight := 21/0.035; Word.ActiveDocument.PageSetup.FirstPageTray := wdPrinterDefaultBin;
Word.ActiveDocument.PageSetup.OtherPagesTray := wdPrinterDefaultBin;
Word.ActiveDocument.PageSetup.SectionStart := wdSectionNewPage;
Word.ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter := False;
Word.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter := False;
Word.ActiveDocument.PageSetup.VerticalAlignment := wdAlignVerticalTop;
Word.ActiveDocument.PageSetup.SuppressEndnotes := False;
Word.ActiveDocument.PageSetup.MirrorMargins := False;
Word.ActiveDocument.PageSetup.TwoPagesOnOne := False;
Word.ActiveDocument.PageSetup.GutterPos := wdGutterPosLeft;
Word.ActiveDocument.PageSetup.LayoutMode := wdLayoutModeLineGrid; Doc := Word.ActiveDocument;
//дÈëҳüҳ½Å
//дÈëҳüҳ½Å
If word.ActiveWindow.View.SplitSpecial <> wdPaneNone Then
begin
word.ActiveWindow.Panes(2).Close;
End;
If (word.ActiveWindow.ActivePane.View.Type=wdNormalView)
Or (word.ActiveWindow.ActivePane.View.Type=wdOutlineView) Then
begin
word.ActiveWindow.ActivePane.View.Type:=wdPrintView;
End;
word.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader;
Word.Selection.Font.NameFarEast:='ËÎÌå';
Word.Selection.Font.NameAscii:='Times New Roman';
Word.Selection.Font.NameOther:='Times New Roman';
Word.Selection.Font.Name:='Times New Roman';
Word.Selection.Font.Size:=9;
Word.Selection.Font.Bold:=false;
Word.Selection.Font.Italic:=wdToggle;
Word.Selection.TypeText(Text:='<< Ç¿ÄÔ¹¤³ÌÒµÎñѵÁ·ÏµÍ³ >>');
word.Application.Selection.ParagraphFormat.Alignment := wdAlignParagraphRight; Align:=wdAlignPageNumberCenter;
ShowFirst:=True;
Word.ActiveDocument.Sections.Item(1).Footers.Item(1).PageNumbers.Add(Align,ShowFirst); Word.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument; //дÈë±êÌ⣻
Word.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;
Word.Selection.Font.NameFarEast:='ËÎÌå';
Word.Selection.Font.NameAscii:='Times New Roman';
Word.Selection.Font.NameOther:='Times New Roman';
Word.Selection.Font.Name:='Times New Roman';
Word.Selection.Font.Size:=22;
Word.Selection.Font.Bold := true;
Word.Selection.TypeText(Text:='ѵÁ·¼Æ»®'); Word.Selection.TypeParagraph;
Word.Selection.ParagraphFormat.Alignment:= wdAlignParagraphJustify;
Word.Selection.Font.NameFarEast:='ËÎÌå';
Word.Selection.Font.NameAscii:='Times New Roman';
Word.Selection.Font.NameOther:='Times New Roman';
Word.Selection.Font.Name:='Times New Roman';
Word.Selection.Font.Size:=9;
Word.Selection.Font.Bold := false;
//Word.Selection.Font.Bold:=wdToggle;
Word.Selection.TypeParagraph;
//»­³ö¿Õ±í¸ñ£»
Word.ActiveDocument.Tables.Add(Range:=Word.Selection.Range,
NumRows:=10, //ClientDataSet_tmp.RecordCount+1,
NumColumns:=10,
DefaultTableBehavior:=0,
AutoFitBehavior:=0);
//ºÏ²¢±í¸ñ
word.Selection.MoveDown(wdLine,1,wdExtend);
word.Selection.Cells.Merge; word.Selection.MoveRight(1,1,wdMove);
word.Selection.MoveRight(1,5,wdExtend);
word.Selection.Cells.Merge; word.Selection.MoveRight(2,1,wdMove);
word.Selection.MoveDown(wdLine,1,wdExtend);
word.Selection.Cells.Merge;
word.Selection.MoveRight(3,1,wdMove);
word.Selection.MoveDown(wdLine,1,wdExtend);
word.Selection.Cells.Merge;
word.Selection.MoveRight(3,1,wdMove);
word.Selection.MoveDown(wdLine,1,wdExtend);
word.Selection.Cells.Merge;
word.Selection.MoveRight(3,1,wdMove);
word.Selection.MoveDown(wdLine,1,wdExtend);
word.Selection.Cells.Merge;
end;