var
r1,r2,doc,w:Variant;
w:=CreateOleObject('Word.Application');
w.visible:=true;
doc:=w.Documents.Open( 你的doc文件 );
r1:=doc.GoTo(wdGotoPage,wdGoToAbsolute,4); //假设要复制第4页
r2:=r1.GoToNext(wdGotoPage);
if r1.start=r2.start then //假如这一页是最后一页了，那么要这样处理一下
r2.start:=doc.range.end;
doc.Range(r1.start,r2.start).Copy; //复制到剪贴板
-------------------------------------------------------------------
另外，ddntyz，既然你朝思暮想了半年，是不是要给点分给我呢：）
