再问个关于word的问题

Question

var
  p1,p2:oleVariant;
  StartPos, EndPos: integer;
  Wdoc: TWordDocument;
  WApp: TWordApplication;
  sdoc: TWordDocument;
  ...  p1:=StartPos;
  p2:=EndPos;
  //sDoc.Range(p1,p2).Copy;
  //wDoc.Paragraphs.Last.Range.Paste;
  wDoc.Paragraphs.Last.Range:=sDoc.Range(p1,p2);wDoc和Sdoc为两个打开的文档,我想把sDoc里的东西复制到wDoc中,但又不想通过剪切板的方法,当然红色部分是可以的,但不是我想要的方法,能不能不通过而复制里面的内容,要复制的内容包括文字和图片等
我想用下面的方法,但是不可以
wDoc.Paragraphs.Last.Range:=sDoc.Range(p1,p2);请问怎么实现?

Answer 1

一个简便的办法是用wDoc也打开哪个文件，然后保存的时候保存为另外的文件。