Delphi 操作Word怎么控制光标的位置？

unit ControlWordS;

interface

uses Classes, Sysutils, Word97;

type

TControlWord = class(TComponent)

private

{ Private declarations }

FWordApp : TWordApplication;

public

{ Public declarations }

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

function OpenWordFile(DocPath : String) : Boolean;

procedure myAppQuit(Sender: TObject);

{ 將游標移到本行第一碼 }

procedure MoveToLineFirst;

{ 將游標移到本行最後一碼 }

procedure MoveToLineEnd(Selected : Boolean);

{ 將游標移到本頁最前 }

procedure MoveToPageFirst;

{ 將游標移到本頁最後 }

procedure MoveToPageEnd;

{ 將游標向右移動N碼 }

procedure MoveToRight(Selected : Boolean; lCount : Integer);

{ 設定書籤 }

procedure AddBookMark(BookMarkName : String);

{ 移動到指定的書籤上 }

function GotoBookMark(BookMarkName : String) : Boolean;

{ 切換頁首頁尾 }

procedure ChangSeekType(ViewType : String);

{ 取得游標現在所在頁次 }

function GetNowPageNumber : Integer;

{ 存檔 }

procedure SaveDocument(DocPath : String);

function FindText(KeyStr : String) : Boolean;

published

{ Published declarations }

end;

implementation

{ TControlWord }

procedure TControlWord.AddBookMark(BookMarkName: String);

var aRange, aDefaultSorting : OleVariant;

begin

With FWordApp Do

Begin

aRange := Selection.Range;

ActiveDocument.Bookmarks.Add(BookMarkName, aRange);

aDefaultSorting := wdSortByName;

ActiveDocument.Bookmarks.DefaultSorting := aDefaultSorting;

ActiveDocument.Bookmarks.ShowHidden := True;

End;

end;

procedure TControlWord.ChangSeekType(ViewType: String);

var aSeekTYpe : OleVariant;

begin

If UpperCase(ViewType) = 'PAGEFOOTER' Then

aSeekTYpe := wdSeekCurrentPageFooter

Else If UpperCase(ViewType) = 'PAGEHEADER' Then

aSeekTYpe := wdSeekCurrentPageHeader

Else aSeekTYpe := wdSeekMainDocument;

With FWordApp Do

Begin

ActiveWindow.ActivePane.View.SeekView := aSeekTYpe;

End;

end;

constructor TControlWord.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

FWordApp := TWordApplication.Create(Self);

FWordApp.OnQuit := myAppQuit;

end;

destructor TControlWord.Destroy;

begin

FWordApp.Disconnect;

FWordApp.Free;

inherited Destroy;

end;

function TControlWord.FindText(KeyStr: String): Boolean;

begin

//

end;

function TControlWord.GetNowPageNumber: Integer;

var

aPageType : OleVariant;

NowPageNumber : Integer;

begin

aPageType := wdActiveEndPageNumber;

NowPageNumber := FWordApp.Selection.Information[aPageType];

Result := NowPageNumber;

end;

function TControlWord.GotoBookMark(BookMarkName: String): Boolean;

var aWhat, aWhich, aCount, aName : OleVariant;

begin

with FWordApp Do

Begin

aWhat := wdGoToBookmark;

aName := BookMarkName;

Result := True;

If ActiveDocument.Bookmarks.Exists(aName) Then

Selection.GoTo_(aWhat, aWhich, aCount, aName)

Else Result := False;

End;

end;

procedure TControlWord.MoveToLineEnd(Selected: Boolean);

var aUnit, aExtend : OleVariant;

begin

With FWordApp Do

Begin

aUnit := wdLine;

aExtend := wdExtend;

If Selected Then

Selection.EndKey(aUnit, aExtend)

Else

Selection.EndKey(aUnit, EmptyParam);

End;

end;

procedure TControlWord.MoveToLineFirst;

var aUnit : OleVariant;

begin

With FWordApp Do

Begin

aUnit := wdLine;

Selection.HomeKey(aUnit, EmptyParam);

End;

end;

procedure TControlWord.MoveToPageEnd;

var aUnit : OleVariant;

begin

With FWordApp Do

Begin

aUnit := wdStory;

Selection.EndKey(aUnit, EmptyParam);

End;

end;

procedure TControlWord.MoveToPageFirst;

var aUnit : OleVariant;

begin

With FWordApp Do

Begin

aUnit := wdStory;

Selection.HomeKey(aUnit, EmptyParam);

End;

end;

procedure TControlWord.MoveToRight(Selected: Boolean; lCount: Integer);

var

aUnit, aExtend, aCount : OleVariant;

begin

With FWordApp Do

Begin

aUnit := wdCharacter;

aExtend := wdExtend;

aCount := lCount;

If Selected Then

Selection.MoveRight(aUnit, aCount, aExtend)

Else

Selection.MoveRight(aUnit, aCount, EmptyParam);

End;

end;

procedure TControlWord.myAppQuit(Sender: TObject);

begin

FWordApp.Disconnect;

end;

function TControlWord.OpenWordFile(DocPath : String): Boolean;

var FFIleName : OleVariant;

begin

FFileName := DocPath;

FWordApp.Documents.Open(FFileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

FWordApp.Visible := True;

end;

procedure TControlWord.SaveDocument(DocPath: String);

var

aDocFileName , aDocFileFormat: OleVariant;

begin

aDocFileName := DocPath;

aDocFileFormat := wdFormatDocument;

FWordApp.ActiveDocument.SaveAs(aDocFileName, aDocFileFormat, EmptyParam, EmptyParam,

EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

end;

end.