unit1.~pas

Delphi7操纵word与excel的源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WordXP, OleServer, StdCtrls;

type
  TfrmDf = class(TForm)
    MemoTxt: TMemo;
    BtnBegin: TButton;
    BtnLoad: TButton;
    BtnAdd: TButton;
    BtnLoadFont: TButton;
    WordApp: TWordApplication;
    WordDocu: TWordDocument;
    WordF: TWordFont;
    GBSize: TGroupBox;
    GBEffect: TGroupBox;
    RBFont1: TRadioButton;
    RBFont12: TRadioButton;
    RBFont14: TRadioButton;
    RBFont15: TRadioButton;
    RBFont13: TRadioButton;
    RBEffect2: TRadioButton;
    GBShape: TGroupBox;
    RBShape1: TRadioButton;
    RBShape2: TRadioButton;
    RBEffect1: TRadioButton;
    procedure BtnBeginClick(Sender: TObject);
    procedure BtnLoadClick(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnLoadFontClick(Sender: TObject);
    procedure RBFont1Click(Sender: TObject);
    procedure RBFont15Click(Sender: TObject);
    procedure RBFont14Click(Sender: TObject);
    procedure RBFont13Click(Sender: TObject);
    procedure RBFont12Click(Sender: TObject);
    procedure RBShape1Click(Sender: TObject);
    procedure RBShape2Click(Sender: TObject);
    procedure RBShape3Click(Sender: TObject);
    procedure RBEffect2Click(Sender: TObject);
    procedure RBEffect1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDf: TfrmDf;

implementation

{$R *.dfm}

procedure TfrmDf.BtnBeginClick(Sender: TObject);
begin
  wordapp.Connect;
  wordapp.visible:=true;
end;

procedure TfrmDf.BtnLoadClick(Sender: TObject);
var
  FileName : OleVariant;
  ConfirmConversions : OleVariant;
  ReadOnly : OleVariant;
  AddToRecentFiles : OleVariant;
  PasswordDocument : OleVariant;
  PasswordTemplate : OleVariant;
  Revert : OleVariant;
  WritePasswordDocument : OleVariant;
  WritePasswordTemplate : OleVariant;
  Format : OleVariant;
  Encoding : OleVariant;
  Visible : OleVariant;
  OpenAndRepair,DocumentDirection,NoEncodeingDialog : OleVariant;
  ItemIndex ,Template,NewTemplate,DocuType: OleVariant;
begin
  FileName:='d:\trans.doc';
  ConfirmConversions:=True;
  ReadOnly:=False;
  AddToRecentFiles:=True;
  PasswordDocument:='';
  PasswordTemplate:='';
  Revert:=True;
  WritePasswordDocument:='';
  WritePasswordTemplate:='';
  Format:=wdOpenFormatAllWord;
  Encoding:=8437;
  Visible:=True;
  OpenAndRepair:=True;
  DocumentDirection:='d:\';
  NoEncodeingDialog:=True;
  ItemIndex:=1;
  Template:='';
  NewTemplate:=False;
  DocuType:=wdNewBlankDocument;
  Visible:=true;

  try
     wordapp.Documents.Add(Template,NewTemplate,DocuType,Visible);
     //.Open2000(FileName,ConfirmConversions,ReadOnly,AddToRecentFiles,PasswordDocument,PasswordTemplate,Revert,WritePasswordDocument,WritePasswordTemplate,Format,Encoding,Visible);
  except
     showmessage('打开文档失败！');
     exit;
  end;

  WordDocu.ConnectTo(WordApp.Documents.Item(ItemIndex));
end;

procedure TfrmDf.BtnAddClick(Sender: TObject);
begin
  worddocu.Range.InsertAfter(memotxt.Lines.text ); 
end;

procedure TfrmDf.BtnLoadFontClick(Sender: TObject);
begin
  try
    wordf.ConnectTo(worddocu.range.Font);
  except
    showmessage('连接文档字体失败！');
  end;
end;

procedure TfrmDf.RBFont1Click(Sender: TObject);
begin
  wordf.Size :=13;
 
end;

procedure TfrmDf.RBFont15Click(Sender: TObject);
begin
  WordF.Size:=9;
end;

procedure TfrmDf.RBFont14Click(Sender: TObject);
begin
  WordF.Size:=10;
end;

procedure TfrmDf.RBFont13Click(Sender: TObject);
begin
  WordF.Size:=11;
end;

procedure TfrmDf.RBFont12Click(Sender: TObject);
begin
  WordF.Size:=12;
end;

procedure TfrmDf.RBShape1Click(Sender: TObject);
begin
  Wordf.Bold:=1;
end;

procedure TfrmDf.RBShape2Click(Sender: TObject);
begin
  Wordf.Italic:=1;
end;

procedure TfrmDf.RBShape3Click(Sender: TObject);
begin
  Wordf.BoldBi:=1; 
end;

procedure TfrmDf.RBEffect2Click(Sender: TObject);
begin
  Wordf.Underline:=1; 
end;

procedure TfrmDf.RBEffect1Click(Sender: TObject);
begin
  Wordf.StrikeThrough:=1; 
end;

end.