原文地址:http://xxzqb.blog.163.com/blog/static/4122142920089249514506/
定义组件
ChooseWA: TWordApplication;
ChooseWD: TWordDocument;
ChooseWF: TWordFont;
procedure TForm1.btn3Click(Sender: TObject);
var
ItemIndex: OleVariant;
filePath :OleVariant;
i,total:integer;
begin
ItemIndex := 1;
filePath :='c://temp//test.dot'; //模板路径
ChooseWA.Documents.Add(filePath,EmptyParam,EmptyParam,EmptyParam);
ChooseWD.ConnectTo(ChooseWA.Documents.Item(ItemIndex));
//ChooseWD.Range.InsertAfter('第一行数据'+#13);//#13代表换行 //插入数据
total:=ChooseWD.Comments.Count; //批注总数
for i:=1 to total do //替换批注内容
begin
ChooseWD.Comments.Item(i).Scope.Text :=mmo1.Text; //需从1开始
end;
//删除批注内容
while total<>0 do
begin
ChooseWD.comments.Item(total).Delete;
total:=ChooseWD.Comments.Count;
end;
ChooseWA.Visible :=true; //显示
end;
分享到:
相关推荐
delphi 实现打印预览和打印过程代码。
利用udp协议打洞实现p2p,delphi下实现p2p,类似于QQ的整个过程 .利用delphi的indy实现此过程
Delphi利用自带的DBXJSON实现JSON生成和解析
Delphi-控件实现NTP客户端校时功能Delphi-控件实现NTP客户端校时功能Delphi-控件实现NTP客户端校时功能Delphi-控件实现NTP客户端校时功能Delphi-控件实现NTP客户端校时功能Delphi-控件实现NTP客户端校时功能Delphi-...
Delphi中利用Tbitmap实现窗体图形动态打印.pdf
delphi-onwork等待窗体
delphi中,实现Fastreport二维码打印功能
Delphi 利用RTTI实现的插件管理模块,插件可自动注册。
Delphi利用进程实现消息传送及内存共享,自己做的一个共享内存组件;原来是一个单元引用,加入进程间的消息传递;做成了组件;如果存在公用的内存镜像文件,将数据填充到指针中;否则创建它,如果存在公用的内存镜像...
Delphi利用流实现网络传输屏幕图像含有源代码。和生成程序 先启动Server,在启动Client,点连接服务器。在点截图。
Delphi中利用Tbitmap实现窗体图形动态打印
一、概述 在银行,税务,邮政等行业的实际工作中,经常涉及到在印刷好具有固定格式的汇款单,储蓄凭证, 税票等单据上的确定位置打印输出相关的信息。...那么,有没有简单有效而又灵活的方法实现上述功能呢?
在Delphi中利用VFW技术和摄像头实现视频捕捉
要知道些常用ADB指令,本Demo只是把一些命令行下的ADB指令放在Delphi开发的程序中农实现了一下而已,也可以直接命令行下使用ADB指令。 本程序是Delphi XE10下开发。 注意:个别情况下安装adb会不成功,或者受360等...
Delphi中使用Olecontainer打开Word文档后,并实现打印功能
福建商品房合同套打程序--Delphi,中型系统
Delphi通过MSHTML实现一个HTML解析类,delphi7可用,快速解析html代码
Delphi下编程实现中文输入法的切换等。
【Delphi WEB打印服务】通过请求api,实现打印设计、打印预览、打印,即可做到本地和远程打印.zip
在delphi中控制打印机,自定义了纸张大小,打印小票之前退纸,打印小票之后退纸,实现了小票的连续打印 还附带了编程时所使用的控件