一、如何用DELPHI中的WORD控件

WordRange:=WordDocument1.Range(aTemp,Position_b);

vNumRows:=ADOQuery1.RecordCount;

vNumColumns:=ADOQuery1.FieldCount;

WordDocument1.Tables.AddOld(WordRange,vNumRows,vNumColumns);

WordTable:=WordDocument1.Tables.Item(item);

T:=WordTable;

WordTable:=nil;

WordRange:=nil;

vNumRows:=NULL(); { NULL() is in unit Variant }

vNumColumns:=NULL();

ADOQuery1.First； {向表格插入数据库记录}

i:=1;

while not ADOQuery1.Eof do

begin

j:=0;

while j begin

T.cell(i,j+1).range.text:=ADOQuery1.Fields[j].AsString;

inc(j);

end;

inc(i);

ADOQuery1.Next;

end;

---------------------------------------------------------------

在Word中用宏来画表格，然后把它的语句copy下来！

在Delphi的OLE中调用就可以了！

二、如何用DELPHI中的WORD控件

WordRange:=WordDocument1.Range(aTemp,Position_b); vNumRows:=ADOQuery1.RecordCount; vNumColumns:=ADOQuery1.FieldCount; WordDocument1.Tables.AddOld(WordRange,vNumRows,vNumColumns); WordTable:=WordDocument1.Tables.Item(item); T:=WordTable; WordTable:=nil;WordRange:=nil; vNumRows:=NULL(); { NULL() is in unit Variant } vNumColumns:=NULL(); ADOQuery1.First； {向表格插入数据库记录} i:=1; while not ADOQuery1.Eof do begin j:=0; while j begin T.cell(i,j+1).range.text:=ADOQuery1.Fields[j].AsString; inc(j); end; inc(i); ADOQuery1.Next; end； --------------------------------------------------------------- 在Word中用宏来画表格，然后把它的语句copy下来！ 在Delphi的OLE中调用就可以了！。

三、怎么样在 Delphi 中打开一个word文件

delphi 调用 word 打开一个文档，兼容性比较好的办法，是使用 oleObject 来调用本机安装的 word，示例代码如下：procedure TForm1.Button1Click(Sender: TObject);var MSWord: Variant;begin MSWord := CreateOLEObject('Word.Application')；//连接Word MSWord.Documents.Open(FileName:='D:\Temp\temp.doc', ReadOnly:=True)； //打开外部Word文档 MSWord.Visible := 1；//是否显示文件编辑 MSWord.ActiveDocument.Range(Start:=0, End:=0)；//开始改变的启止位置 MSWord.ActiveDocument.Range.InsertAfter(Text:='myvc')；//在Word中增加字符'myvc' MSWord.ActiveDocument.Range.InsertParagraphAfter; MSWord.ActiveDocument.Range.Font.Size := 72；//字体大小 MSWord.ActiveDocument.Range.Font.Name := 'Arial'；//字体名称。

四、delphi 如何在delphi中调用word,比如：创建一个word 文档并向

uses ComObj ;procedure TForm1.Button1Click(Sender: TObject);var vWord,vDoc,vRange : Variant ; sText,sReplace : string ; lReturn : Boolean ;begin sText 'ABCDEFG' ； //原文字串 sReplace 'GFEDCBA' ； //新字串 vWord CreateOleObject('Word.Application') ；//创建Word线程 try //打开要操作的文件 vDoc vWord.Documents.Open('C:\My Documents\AAAc.Doc'); vDoc.Select ； //选取中整个文档 vRange vDoc.Range ； //替换范围 lReturn True ; while lReturn do begin //找到并替代成功则返回 True 共11个参数 lReturn vDoc.Range.Find.Execute(sText,,,,,,,,,sReplace,True) ; end ; finally vDoc.Close(True) ； //关闭文并保存 vWord.Quit(False) ； //退出Word end ;。

转载请注明出处51数据库 » delphiwordcurrency