?? unit1.pas
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, WordXP, OleServer;
type
TfrmDocument = class(TForm)
BtnBeginWord: TButton;
BtnNewDocument: TButton;
BtnAdd: TButton;
BtnInsert: TButton;
MemoTxt: TMemo;
WordApp: TWordApplication;
WordDocu: TWordDocument;
BtnSave: TButton;
BtnEndWord: TButton;
BtnPrintView: TButton;
BtnPrint: TButton;
procedure BtnBeginWordClick(Sender: TObject);
procedure BtnNewDocumentClick(Sender: TObject);
procedure BtnAddClick(Sender: TObject);
procedure BtnInsertClick(Sender: TObject);
procedure BtnSaveClick(Sender: TObject);
procedure BtnPrintViewClick(Sender: TObject);
procedure BtnPrintClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmDocument: TfrmDocument;
implementation
{$R *.dfm}
procedure TfrmDocument.BtnBeginWordClick(Sender: TObject);
begin
wordapp.Connect ;
wordapp.Visible :=true;
end;
procedure TfrmDocument.BtnNewDocumentClick(Sender: TObject);
var
Template : OleVariant;
NewTemplate : OleVariant;
DocuType : OleVariant;
Visible : OleVariant;
begin
Template:=EmptyParam;
NewTemplate:=True;
DocuType:=0;
Visible:=True;
try
wordapp.Documents.Add(Template,NewTemplate,DocuType,Visible);
except
showmessage('創建新文檔失敗!');
end;
end;
procedure TfrmDocument.BtnAddClick(Sender: TObject);
var
ItemIndex : OleVariant;
begin
ItemIndex:=1;
try
WordDocu.ConnectTo(WordApp.Documents.Item(ItemIndex));
except
showmessage('文檔連接失敗!');
end;
if trim(memotxt.Lines.Text)='' then
showmessage('請輸入添加的內容!')
else
begin
WordDocu.Range.InsertAfter(trim(memotxt.Lines.text));
end;
end;
procedure TfrmDocument.BtnInsertClick(Sender: TObject);
var
ItemIndex : OleVariant;
begin
ItemIndex:=1;
try
WordDocu.ConnectTo(WordApp.Documents.Item(ItemIndex));
except
showmessage('文檔連接失敗!');
end;
if trim(memotxt.Lines.Text)='' then
showmessage('請輸入插入的內容!')
else
begin
WordDocu.Range.InsertBefore(trim(memotxt.Lines.text));
end;
end;
procedure TfrmDocument.BtnSaveClick(Sender: TObject);
var
EParam : OleVariant;
FileName : OleVariant;
begin
FileName:='d:\FirstFile.Doc';
EParam:=EmptyParam;
try
WordDocu.SaveAs(FileName,EParam);
showmessage('文件保存成功!');
except
showmessage('文檔保存失敗!');
end;
end;
procedure TfrmDocument.BtnPrintViewClick(Sender: TObject);
try
WordDocu.PrintPreview;
//打印預覽
except
showmessage('打印預覽出錯!');
end;
end;
procedure TfrmDocument.BtnPrintClick(Sender: TObject);
begin
try
WordDocu.printOut
except
showmessage('打印文檔出錯!');
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -