现在delphi7中写一"根据文档模板生成文档的程序"如下:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtnrs,ComObj,Word2000;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
Word_Handle, Doc_Handle: OleVariant;
BookMark_Name: string;
begin
try
Word_Handle := CreateOleObject('Word.Application');
except
end; Word_Handle.Visible := True; Doc_Handle := Word_Handle.Documents.Add(Template := 'E:\checksystem\1.dot', NewTemplate := False); try
BookMark_Name := 'gcmc';
Doc_Handle.Application.Selection.goto(What := wdGoToBook, Name := BookMark_Name);
Doc_Handle.Application.Selection.Text := '这个是替换book1的结果'; BookMark_Name := 'hyjl';
Doc_Handle.Application.Selection.goto(What := wdGoToBook, Name := BookMark_Name);
Doc_Handle.Application.Selection.Text := '这个是替换book2的结果';
except
end; Doc_Handle.SaveAs(FileName := '1.doc', FileFormat := wdFormatDocument, AddToRecentFiles := False);
end;end.请教的问题:
1、如何实现对被替换的部分实现格式控制,如将上面的'这个是替换book2的结果'实现加粗,字号为”四号”格式之后再替换进去??
2、每做上述操作时都要启动WORD,比较繁,如何实现不启动WORD,而直接生成后的文档直接放到指定的位置??
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtnrs,ComObj,Word2000;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
Word_Handle, Doc_Handle: OleVariant;
BookMark_Name: string;
begin
try
Word_Handle := CreateOleObject('Word.Application');
except
end; Word_Handle.Visible := True; Doc_Handle := Word_Handle.Documents.Add(Template := 'E:\checksystem\1.dot', NewTemplate := False); try
BookMark_Name := 'gcmc';
Doc_Handle.Application.Selection.goto(What := wdGoToBook, Name := BookMark_Name);
Doc_Handle.Application.Selection.Text := '这个是替换book1的结果'; BookMark_Name := 'hyjl';
Doc_Handle.Application.Selection.goto(What := wdGoToBook, Name := BookMark_Name);
Doc_Handle.Application.Selection.Text := '这个是替换book2的结果';
except
end; Doc_Handle.SaveAs(FileName := '1.doc', FileFormat := wdFormatDocument, AddToRecentFiles := False);
end;end.请教的问题:
1、如何实现对被替换的部分实现格式控制,如将上面的'这个是替换book2的结果'实现加粗,字号为”四号”格式之后再替换进去??
2、每做上述操作时都要启动WORD,比较繁,如何实现不启动WORD,而直接生成后的文档直接放到指定的位置??
Word_Handle.Visible 改成 False试试