好烦,懂得word打印的高手请来指点一下, C:\Program Files\Borland\Delphi5\Demos\Activex\Oleauto\SrvComp\Word 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 使用书签如何在Word文档的指定位置插入特定数据(如数据表字段值 )uses comobj, word97;procedure TForm1.InsertWordBtnClick(Sender: TObject);var WordHandle, DocHandle: OleVariant; BookMarkName: string;begin try WordHandle := CreateOleObject('Word.Application'); except end; WordHandle.Visible := True; DocHandle := WordHandle.Documents.Add(Template := 'C:\Aaa.dot', NewTemplate := False); //事先建好的文档模板 try BookMark_Name := '1';//事先在要插入的地方标上书签book1 DocHandle.Application.Selection.goto(What:= wdGoToBook, Name := BookMarkName); DocHandle.Application.Selection.Text := '这是替换1的文字'; BookMarkName := '2'; DocHandle.Application.Selection.goto(What := wdGoToBook, Name := BookMarkName); DocHandle.Application.Selection.Text := '这是替换2的文字'; except end; //另存文件 DocHandle.SaveAs(FileName := 'c:\liuziran.doc', FileFormat := wdFormatDocument, AddToRecentFiles := False);end; 去这儿看看吧:http://www.codelphi.com/channel/hjwz/read.asp?ano=794要先申请成为会员的。 我使用的方法是查找替换!在要插入数据的地方先作好标记——必须保证标记的唯一性然后通过_Doc.Range.Find.Execute方法,把要插入的值替换进查找到的地方至于查找替换的方法和参数,你可以使用Word的宏录制的方法得到! ++++++++++++++高手帮忙,看看我这个两层和简单树,为什么会出错?++++++++++++++++ menu 我想画屏幕,怎么能得到屏幕的Canvas? 一个关于类的构建的问题 我想在listview中上移或下移当前选中的条目,该如何来做? 简单:变量查看问题? DELPHI6中使用Synchronize的问题 关于clientsocket连接超时的问题。急!!!急!!!急!!! wininet webbrowser 共享 session 关于异或运算和与运算 自己做个SQL编辑器 怎样实现这个效果????????
如何在Word文档的指定位置插入特定数据(如数据表字段值 )
uses
comobj, word97;
procedure TForm1.InsertWordBtnClick(Sender: TObject);
var
WordHandle, DocHandle: OleVariant;
BookMarkName: string;
begin
try
WordHandle := CreateOleObject('Word.Application');
except
end;
WordHandle.Visible := True;
DocHandle := WordHandle.Documents.Add(Template := 'C:\Aaa.dot', NewTemplate := False); //事先建好的文档模板
try
BookMark_Name := '1';//事先在要插入的地方标上书签book1
DocHandle.Application.Selection.goto(What:= wdGoToBook, Name := BookMarkName);
DocHandle.Application.Selection.Text := '这是替换1的文字';
BookMarkName := '2';
DocHandle.Application.Selection.goto(What := wdGoToBook, Name := BookMarkName);
DocHandle.Application.Selection.Text := '这是替换2的文字';
except
end;
//另存文件
DocHandle.SaveAs(FileName := 'c:\liuziran.doc', FileFormat := wdFormatDocument, AddToRecentFiles := False);
end;
http://www.codelphi.com/channel/hjwz/read.asp?ano=794要先申请成为会员的。
我使用的方法是查找替换!
在要插入数据的地方先作好标记——必须保证标记的唯一性
然后通过_Doc.Range.Find.Execute方法,把要插入的值替换进查找到的地方
至于查找替换的方法和参数,你可以使用Word的宏录制的方法得到!