unitword.pas

本人原创（delphi程序设计提高与应用）源码。本实例利用ADO组件与Access数据库连接

unit UnitWord;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Wordxp, OleServer,ActiveX,OleCtrls, Word2000;

type
  TFormword = class(TForm)
    WordApplication1: TWordApplication;
    WordDocument1: TWordDocument;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Wordopen;
    procedure WordClose;
    procedure DOCClose;
    procedure DocOpen(DocName:OLEVariant);
    procedure DocSaveAs(DocName:OLEVariant);overLoad;
    procedure DocSaveAs(DocName,FileType:OLEVariant);overLoad;
    procedure WText(SText:OleVariant);
    procedure RunMacro(MacroName:String);
    procedure Gotobookmark(Bookmark:string);
    procedure MoveRight(oeUnit : TOleEnum = wdCharacter; Count : Integer = 1; Extend : TOleEnum = wdMove);
    procedure MoveLeft(oeUnit : TOleEnum = wdCharacter; Count : Integer = 1; Extend : TOleEnum = wdMove);
    procedure MoveUp(oeUnit : TOleEnum = wdLine; Count : Integer = 1; Extend : TOleEnum = wdMove);
    procedure MoveDown(oeUnit : TOleEnum = wdLine; Count : Integer = 1; Extend : TOleEnum = wdMove);
  end;
   TWordRange = class
   end;
  TWordDocMode = (wdmCreating, wdmExisting, wdmDestroying);
var
  Formword: TFormword;
  ItemIndex:OLEVariant;
implementation

{$R *.dfm}
procedure TFormword.Wordopen;
//打开word应用程序，置显示状态
begin
try
  WordApplication1.Connect;  //与word建立连接
except
  MessageDlg('没有安装Word！',mtError,[mbOK],0);
  Abort;
end;

WordApplication1.Visible:=True; //将word设置为可见的
end;
procedure TFormword.WordClose;
//关闭word应用程序
var
SaveChange,OriginalFormat,RouteDocument:OLEVariant;
begin
   SaveChange:=WdDoNotSaveChanges;
   WordApplication1.Quit(SaveChange,OriginalFormat,RouteDocument); //关闭word
   WordApplication1.Disconnect;     //断开与word的连接
end;
procedure TFormword.DocOpen(DocName:OLEVariant);
//打开word文档
var
Template:OLEVariant;
begin
ItemIndex:=1;
Template:=EmptyParam;
WordApplication1.Documents.OpenOld (DocName, Template, Template, Template, Template,
                                                 Template, Template, Template,Template, Template);

WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
end;
procedure TFormword.WText(SText:OleVariant);
//填写数据
begin
WordApplication1.Selection.TypeText(SText);
end;
procedure TFormword.RunMacro(MacroName:String);
//执行宏操作
begin
 WordApplication1.Run(MacroName);
end;
procedure TFormword.Gotobookmark(Bookmark:string);
//将光标指向标签
var
  What : OLEVariant;
  Which : OLEVariant;
  Count : OLEVariant;
  Name : OLEVariant;
begin
  What := wdGotobookmark;
  Which := EmptyParam;
  Count := EmptyParam;
  Name := Bookmark;
  WordApplication1.Selection.GoTo_(What, Which, Count, Name);
end;

procedure TFormword.DocSaveAs(DocName:OLEVariant);
//将文档另存
var
Template:OLEVariant;
begin
  Template:=EmptyParam;
  WordDocument1.SaveAs(DocName,Template,Template,Template,Template,Template,
    Template,Template,Template,Template,Template);
end;
procedure TFormword.MoveRight(oeUnit : TOleEnum = wdCharacter; Count : Integer = 1; Extend : TOleEnum = wdMove);
//光标右移
var
	ovUnit : OleVariant;
	ovCount : OleVariant;
	ovExtend : OleVariant;
begin
	ovUnit := oeUnit;
	ovCount := Count;
  ovExtend := Extend;

	WordApplication1.selection.MoveRight(ovUnit, ovCount, ovExtend);
end;

procedure TFormword.MoveUp(oeUnit : TOleEnum = wdLine; Count : Integer = 1; Extend : TOleEnum = wdMove);
//光标上移
var
	ovUnit : OleVariant;
	ovCount : OleVariant;
	ovExtend : OleVariant;
begin
	ovUnit := oeUnit;
	ovCount := Count;
  ovExtend := Extend;

	WordApplication1.selection.MoveUp(ovUnit, ovCount, ovExtend);
end;

procedure TFormword.MoveDown(oeUnit : TOleEnum = wdLine; Count : Integer = 1; Extend : TOleEnum = wdMove);
//光标下移
var
	ovUnit : OleVariant;
	ovCount : OleVariant;
	ovExtend : OleVariant;
begin
	ovUnit := oeUnit;
	ovCount := Count;
  ovExtend := Extend;

	WordApplication1.selection.MoveDown(ovUnit, ovCount, ovExtend);
end;
procedure TFormword.MoveLeft(oeUnit : TOleEnum = wdCharacter; Count : Integer = 1; Extend : TOleEnum = wdMove);
//光标左移
var
	ovUnit : OleVariant;
	ovCount : OleVariant;
	ovExtend : OleVariant;
begin
	ovUnit := oeUnit;
	ovCount := Count;
  ovExtend := Extend;

	WordApplication1.selection.MoveLeft(ovUnit, ovCount, ovExtend);
end;
procedure TFormword.DocSaveAs(DocName,FileType:OLEVariant);
//将word文档另存为其他格式的文档
var
Template:OLEVariant;
begin
  Template:=EmptyParam;
  WordDocument1.SaveAs(DocName,FileType,Template,Template,Template,Template,
    Template,Template,Template,Template,Template);

end;
procedure TFormword.DOCClose;
//关闭word文档
begin
  WordDocument1.Close;
end;
end.