关于另存Word文档我的代码,请帮我改一改，急啊，谢谢！！

Question

给你个连接，看一下吧。希望对你能够有帮助。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517

Answer 1

Word:=CreateOleObject('Word.Application');//连接Word
我添加了comobj unit是可行的

Answer 2

  用Servers页上的组件也可以做。

Answer 3

var v_doc,v_range:Variant;itemindex:OleVariant;
  filename, confirmconversions, readonly, addtorecentfiles,
  passworddocument, passwordtemplate, revert,
  writepassworddocument, writepasswordtemplate, format: olevariant;
begin
  try
   wordapplication.Connect;
  except
   showmessage('你没装word！');
   Application.Terminate;
  end;
  opendialog1.Title:='请选择要打开的文件';
  opendialog1.InitialDir:=ExtractFilePath(application.ExeName);
  if not opendialog1.Execute then exit;
  filename :=openDialog1.filename;
  confirmconversions := false;
  readonly := false;
  addtorecentfiles := false;
  passworddocument := '';
  passwordtemplate := '';
  revert := true;
  writepassworddocument := '';
  writepasswordtemplate := '';
  format := wdopenformatdocument;
  wordapplication.documents.open(filename, confirmconversions,
  readonly, addtorecentfiles, passworddocument, passwordtemplate,
  revert, writepassworddocument, writepasswordtemplate, format);//打开一个word文档
  wordapplication.Visible:=true;
  itemindex:=wordapplication.documents.count;//获得刚打开的文件的编号
  v_doc:=wordapplication.documents.Item(itemindex);
  v_doc.range.insertafter('1．');//插入编号
  v_range:=v_doc.Range((v_doc.Paragraphs.Item(v_doc.Paragraphs.Count)).Range.End-1);
  {v_doc.paragraphs是整篇文章的段落对象,这个是一个段落对象数组，用item获得具体的一个段落，
  count就是数组中段落的个数。然后就用这个v_doc.Paragraphs.Item(v_doc.Paragraphs.Count))对
  象取得它的定位range对象，range表示的这一整个字串，用end-1定位到结尾。  }
  opendialog1.title:='请选择一个要插入的word文档';
  opendialog1.InitialDir:=ExtractFilePath(application.ExeName);
  if not opendialog1.execute then exit;
  v_range.insertfile(opendialog1.filename);

Answer 4

   自己研究一下上面的代码，功能打开一word文件，然后在这个word文件插如编号1。
在把另一个word文件内容插到当前文件中