unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Word2000, OleServer, ComCtrls;    type
  TForm1 = class(TForm)
    wa1: TWordApplication;
    wd1: TWordDocument;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    pb1: TProgressBar;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    function connecttoword:boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    function Tform1.connecttoword:boolean;
var
fn:OleVariant;
begin
result:=false;
try
wa1.connect;
except
memo1.Lines.Add('Word连接失败，请确定Word2000或Word2003是否已经正确安装！');
exit;
end;
if wa1.Documents.Count=0 then
   begin
   memo1.Lines.Add('没有打开文件！');
   exit;
   end;
wd1.ConnectTo(wa1.ActiveDocument);
memo1.Lines.Add('已连接到文档:' wd1.Name);
result:=true;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
connecttoword;
if wd1.Characters.Count<4000 then memo1.Lines.Add('文章长度不够，请选择更长的文件测试');
end;    procedure TForm1.Button3Click(Sender: TObject);
begin
wd1.Disconnect;
wa1.Disconnect;
end;    procedure TForm1.Button2Click(Sender: TObject);
var
i,i1,i2,i3,i4:integer;
size:single;
d0,d1,d2,d3,d4:Tdatetime;
begin
d0:=now;
pb1.Min:=0;
pb1.Position:=0;
pb1.Max:=4000;    for i:=1 to 4000 do
   begin
   case i of
      1000:d1:=now;
      2000:d2:=now;
      3000:d3:=now;
      4000:d4:=now;
   else
   end;
   size:=wd1.Characters.item(i).Font.Size;
   pb1.Position:=i;
   end;    memo1.Lines.Add(format('d1-d0=%f',[(d1-d0)*24*3600]));
memo1.Lines.Add(format('d2-d0=%f',[(d2-d0)*24*3600]));
memo1.Lines.Add(format('d3-d0=%f',[(d3-d0)*24*3600]));
memo1.Lines.Add(format('d4-d0=%f',[(d4-d0)*24*3600]));    end;    end.

procedure TForm1.Button1Click(Sender: TObject);
var
  rgn: Range;
  i,iStart,iEnd,iCount: Integer;
begin
  iCount := WordDocument1.Characters.Count;
  iStart:=1;
  iEnd := Min(iStart 100,iCount);
  rgn := WordDocument1.Range(iStart,iEnd);
  while (iStart    用這段試試 我的觀點是 在一個區塊中移動 比在整篇文章中移動快...    順便提一下, 如果將你的程式碼用 
 
 夾起來 縮排就不會跑掉了.
編輯框上面有 # 的按鈕也是同樣作用.    內容送出去還是可以改, 要不要改一下啊, 在你提問的頁面
"發表於 - 2005/08/01 : 11:13:21..." 後面應該有4個 "icon" 其中一個可以讓你再修正內容...要不要試一下...         
        

引言: 參考這ㄧ篇 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_wrcore/html/wrtskhowtoretrievestartendcharactersinranges.asp

procedure TForm1.Button1Click(Sender: TObject);
var
  rgn: Range;
  i,iStart,iEnd,iCount: Integer;
begin
  iCount := WordDocument1.Characters.Count;
  iStart:=1;
  iEnd := Min(iStart 100,iCount);
  rgn := WordDocument1.Range(iStart,iEnd);
  while (iStart    用這段試試 我的觀點是 在一個區塊中移動 比在整篇文章中移動快...    順便提一下, 如果將你的程式碼用 ［ｃｏｄｅ］ ［/ｃｏｄｅ］ 夾起來 縮排就不會跑掉了.
編輯框上面有 # 的按鈕也是同樣作用.    內容送出去還是可以改, 要不要改一下啊, 在你提問的頁面
"發表於 - 2005/08/01 : 11:13:21..." 後面應該有4個 "icon" 其中一個可以讓你再修正內容...要不要試一下...         

引言:

引言: 參考這ㄧ篇 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_wrcore/html/wrtskhowtoretrievestartendcharactersinranges.asp

procedure TForm1.Button1Click(Sender: TObject);
var
  rgn: Range;
  i,iStart,iEnd,iCount: Integer;
begin
  iCount := WordDocument1.Characters.Count;
  iStart:=1;
  iEnd := Min(iStart 100,iCount);
  rgn := WordDocument1.Range(iStart,iEnd);
  while (iStart    用這段試試 我的觀點是 在一個區塊中移動 比在整篇文章中移動快...    順便提一下, 如果將你的程式碼用 ［ｃｏｄｅ］ ［/ｃｏｄｅ］ 夾起來 縮排就不會跑掉了.
編輯框上面有 # 的按鈕也是同樣作用.    內容送出去還是可以改, 要不要改一下啊, 在你提問的頁面
"發表於 - 2005/08/01 : 11:13:21..." 後面應該有4個 "icon" 其中一個可以讓你再修正內容...要不要試一下...         

var
  rgn: Range;
  iStart,iEnd,iCount: olevariant;
  size:single;
  i:integer;
  d0,d1:Tdatetime;
  s:string;
begin
  iCount := Wd1.Characters.Count;
  iStart:=0;
  iEnd := Min(iStart 100,iCount);
  rgn := Wd1.Range(iStart,iEnd);
  while (iStart
谢谢，你还能告诉我为什么你的代码里rgn.Next(wdCharacter,iEnd-iStart 1);我这里为什么会编译不通过吗？这句语法上没有问题啊。     
        

var
  rgn: Range;
  iStart,iEnd,iCount,iv,iw: olevariant;
  size:single;
  i:integer;
  d0,d1:Tdatetime;
begin
  iCount := Wd1.Characters.Count;
  iStart:=0;
  iEnd := Min(iStart 100,iCount);
  rgn := Wd1.Range(iStart,iEnd);
  while (iStartrgn:=rgn.Next(iw,iv);//不然rgn不会改变
  rgn.End_:=iend;//使用上句后,iv不论取何值,改变的是rgn的start的值,而rgn的end默认为start 1,所以需要设定
  memo1.Lines.Add(format('d1-d0=%f',[(now-d0)*24*3600]));
end;