请问如何用程序控制word2000 去看看OLE,通过OLE能调用WORD的功能 1 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 打开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 ;end;Delphi 3 下通过。控制WORD文档的一段程序unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls,OleCtnrs,ComObj;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; ED_WenHao: TEdit; ED_BiaoTi: TEdit; ED_ShouWenDanWei: TEdit; ED_ZhenWen: TMemo; ED_FaWenDanWei: TEdit; Btn_PrintToWord: TButton; Btn_Quit: TButton; procedure Btn_PrintToWordClick(Sender: TObject); procedure Btn_QuitClick(Sender: TObject); private { Private declarations } public { Public declarations }end;var Form1: TForm1;implementation{$R *.DFM}//开始:数据发送到 word事件procedure TForm1.Btn_PrintToWordClick(Sender: TObject);vAR VarWord: Variant;// 创建 WORD时所用begin try // 1. 建立 OleObject,连接 word97 VarWord:=CreateOleObject('word.basic'); // 2. 建立 Word97的新文件 VarWord.FileNew; // 3. 设置 Word97的基本状态 VarWord.ViewZoom75; //设置显示比例为 75% VarWord.ViewPage; //改为页面显示方式 // 4. 将当前数据控件上的信息发送至 Word97 // 4.1 发送文号数据 VarWord.CenterPara; //居中 Varword.font('宋体 '); //设置字体 VarWord.FontSize(14); //设置字号 varword.insert(#13+#13+ ED_WenHao.Text+#13+#13+#13); // 4.2 发送标题数据 VarWord.font('黑体 '); VarWord.Fontsize(16); VarWord.insert( ED_BiaoTi.text+#13); // 4.3 发送收文单位数据 VarWord.LeftPara; //左对齐 VarWord.Font('宋体 '); VarWord.fontSize(14); VarWord.Insert(#13+ ED_ShouWenDanWei.Text+': '+#13); // 4.5 发送正文数据 VarWord.fontSize(14); VarWord.Insert( ED_ZhenWen.Text+#13); // 4.6 发送发文单位数据 VarWord.RightPara; //右对齐 VarWord.fontSize(14); VarWord.Insert( ED_FaWenDanWei.Text+#13); // 5 最后设置 VarWord.StartOfdocument; //到文首 VarWord.AppMaxiMize; //设置窗口最大化 VarWord.AppShow; //显示应用程序 except showmessage('运行 Microsoft Word 失败! '); end; //end of tryend;//end:数据发送到 word事件//开始:窗口关闭事件procedure TForm1.Btn_QuitClick(Sender: TObject);begin close;end;//End:窗口关闭事件end.// 这是主程序的尾部 我改的传奇代码. FastReport一个头痛的问题?请高手指点! 怎么在DBGRID中对另外的表搜索 小问题,拿分来 元旦散分 SOS(如何替换系统文件) odbc 問題 请教如何屏蔽Window98启动时的ScanDisk及如何屏蔽F3键 哪里有免费的编程书下载? 如何在NMFTP控件正在工作时将其中断 我的键盘不听使唤 怎么办? 我用wordapplication打印报表,想问一下怎么把纸张设置成横向,
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 ;
end;
Delphi 3 下通过。控制WORD文档的一段程序
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,OleCtnrs,ComObj;type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
ED_WenHao: TEdit;
ED_BiaoTi: TEdit;
ED_ShouWenDanWei: TEdit;
ED_ZhenWen: TMemo;
ED_FaWenDanWei: TEdit;
Btn_PrintToWord: TButton;
Btn_Quit: TButton;
procedure Btn_PrintToWordClick(Sender: TObject);
procedure Btn_QuitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}//开始:数据发送到 word事件
procedure TForm1.Btn_PrintToWordClick(Sender: TObject);
vAR
VarWord: Variant;// 创建 WORD时所用
begin
try
// 1. 建立 OleObject,连接 word97
VarWord:=CreateOleObject('word.basic');
// 2. 建立 Word97的新文件
VarWord.FileNew;
// 3. 设置 Word97的基本状态
VarWord.ViewZoom75; //设置显示比例为 75%
VarWord.ViewPage; //改为页面显示方式
// 4. 将当前数据控件上的信息发送至 Word97
// 4.1 发送文号数据
VarWord.CenterPara; //居中
Varword.font('宋体 '); //设置字体
VarWord.FontSize(14); //设置字号
varword.insert(#13+#13+ ED_WenHao.Text+#13+#13+#13);
// 4.2 发送标题数据
VarWord.font('黑体 ');
VarWord.Fontsize(16);
VarWord.insert( ED_BiaoTi.text+#13);
// 4.3 发送收文单位数据
VarWord.LeftPara; //左对齐
VarWord.Font('宋体 ');
VarWord.fontSize(14);
VarWord.Insert(#13+ ED_ShouWenDanWei.Text+': '+#13);
// 4.5 发送正文数据
VarWord.fontSize(14);
VarWord.Insert( ED_ZhenWen.Text+#13);
// 4.6 发送发文单位数据
VarWord.RightPara; //右对齐
VarWord.fontSize(14);
VarWord.Insert( ED_FaWenDanWei.Text+#13);
// 5 最后设置
VarWord.StartOfdocument; //到文首
VarWord.AppMaxiMize; //设置窗口最大化
VarWord.AppShow; //显示应用程序
except
showmessage('运行 Microsoft Word 失败! ');
end; //end of try
end;
//end:数据发送到 word事件
//开始:窗口关闭事件
procedure TForm1.Btn_QuitClick(Sender: TObject);
begin
close;
end;
//End:窗口关闭事件end.
// 这是主程序的尾部