var MyWord, What, Which, Count, Name:OleVariant;
初始化MyWord后
MyWord:=CreateOleObject('Word.Application');
去到第N页
begin
What:=wdGoToPage;
Which:=wdGoToNext;
// Count:=
Name:='10'; //第N页
MyWord.Selection.GoTo(What,Which,Count,Name);
end;
去到第N行
begin
What:=wdGoToLine;
Which:=wdGoToFirst;
Count:=25;
Name:='';
MyWord.Selection.GoTo(What,Which,Count,Name);
end;