我想按一下按钮可以打开一个新的WORD文档进行编辑，然后保存进SQLSERVER里的一个字段（TEXT类型）？请教该怎么解决1

你好： 参考 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1120669 unit MyOffice2000;    interface    uses   DBGrids, ComObj, word2000, DB;    function DBGrid2Word(DBGrid:TDBGrid;Title:String):Boolean;    implementation    function DBGrid2Word(DBGrid:TDBGrid;Title:String):Boolean; var   MSWord2000: OLEVariant;   ColCount,RowCount,I:Integer;   ColumnTitle,CellStr:String; begin   Result:=False;   //打开Word2000；   try     MSWord2000 := GetActiveOleObject('Word.Application');   except     try       MSWord2000 := CreateOleObject('Word.Application');     except       Exit;     end;   end;   MSWord2000.Visible := True;   //创建空文档；   MSWord2000.Documents.Add();   //写入标题；   MSWord2000.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;   MSWord2000.Selection.Font.Size:=22;   MSWord2000.Selection.Font.Bold:=wdToggle;   MSWord2000.Selection.TypeText(Text:=Title);   //MSWord2000.Selection.MoveRight(Unit:=1, Count:=1);   MSWord2000.Selection.TypeParagraph;   MSWord2000.Selection.ParagraphFormat.Alignment:= wdAlignParagraphJustify;   MSWord2000.Selection.Font.Size:=11;   MSWord2000.Selection.Font.Bold:=wdToggle;   MSWord2000.Selection.TypeParagraph;   with DBGrid.DataSource.DataSet do   begin     ColCount:=FieldCount;     RowCount:=RecordCount;     //画出空表格；     MSWord2000.ActiveDocument.Tables.Add(Range:=MSWord2000.Selection.Range,                                          NumRows:=RowCount+1,                                          NumColumns:=ColCount,                                          DefaultTableBehavior:=0,                                          AutoFitBehavior:=0);     //写入表格的表头     for I:=0 to ColCount-1 do     begin       MSWord2000.Selection.Font.Bold:= wdToggle;       MSWord2000.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;       ColumnTitle:=DBGrid.Columns[I].Title.Caption;       //Fields[I].FieldName;       MSWord2000.Selection.TypeText(Text:=ColumnTitle);       if I