控制word的问题

Question

我放置一个TOleContainer显示从数据库里读出的word文档,希望编辑修改然后再存回数据库，下面是我的代码的一部分。
 DB.TBlobField(FieldByName('内容')).SaveToFile('c:\temp.doc');
 form_Show.OleContainer1.CreateObjectFromFile('c:\temp.doc',false);
 form_Show.Show;
 form_Show.OleContainer1.DoVerb(-1);
 但是word不能保存，并且word的菜单栏和工具栏覆盖了我设计的窗体的所有内容,这可该怎么办啊。

Answer 1

Delphi控制Word的一些方法 此段代码主要实现了用DELPHI控制WORD添加多行文字，然后插入表、加行、加列、以及合并单元格功能。procedure TForm1.Button1Click(Sender: TObject);var TB,Template, NewTemplate, Visible, DocumentType, ItemIndex :OleVariant;begin template:=emptyparam; //使用模板的名称，emptyparam的目的是使word服务器采用默认的参数值 newtemplate:=false; //新建文档的类型，True表示为模板，False表示为文档 visible:=true; //打捞的窗口是否可见 documenttype:=emptyparam; //文档类型，默认为空白文档 ,所以赋值为emptyparam itemindex:=1; try wordApp.Connect(); except MessageDlg('您的计算机上还未安装Microsoft Office Word97或更高的版本！', mtError, [mbOK], 0); Abort; end; wordApp.Visible := true;// wordApp.ActiveDocument.PageSetup.Orientation := 1; wordApp.Documents.Add(Template, NewTemplate,documenttype,visible); doc.ConnectTo(wordApp.Documents.Item(ItemIndex)); // 赋值worddocument组件 //添加多行。#13代表回车换行 doc.Range.InsertAfter('test string no 1'); doc.Range.InsertAfter(#13+'2'); doc.Range.InsertAfter(#13+'3'); doc.Range.InsertAfter(#13+'4'); doc.Range.InsertAfter(#13+'5'); doc.Range.InsertAfter(#13); //在文字后加入一个表格 doc.Range.Tables.Add(doc.Words.Last,3,4,EmptyParam,EmptyParam); doc.Range.InsertAfter(#13); 加一个空行 TB := doc.Range.Tables.Add(doc.Words.Last,1,10,EmptyParam,EmptyParam); //增加行 ，以下两种方法都可以。// tb.Range.rows.add(emptyparam); 这行代码也可以用来加行 doc.Range.Tables.Item(2).Range.Rows.Add(EmptyParam); //增加列 doc.Range.Tables.Item(2).Range.Columns.Add(EmptyParam); //合并 doc.Range.Tables.Item(2).Cell(1,1).Merge(doc.Range.Tables.Item(2).Cell(2,1)); doc.Range.Tables.Item(2).Cell(1,2).Merge(doc.Range.Tables.Item(2).Cell(2,3)); wordApp.Disconnect;end;这些代码来源于网络。由于工作需要特整理成一个小例子。方便自已以后再用。to:http://blog.csdn.net/reborter/archive/2006/03/05/616020.aspx