我想把数据窗口的内容存到word中去修改、调整，请问该如何操作？

String   ls_File,   ls_Path,   ls_Ext  
  Integer   li_Value  
   
  li_Value   =   GetFileSaveName   ("另存到文件",   ls_Path,   ls_File,   "DOC",   &  
  "文本文件;   (*.CSV),   *.CVS,"   +   &  
  "文本文件Tab   (*.TXT),   *.TXT,"   +   &  
  "dBASE   II   (*.DBF),   *.DBF,"   +   &  
  "dBASE   III   (*.DBF),   *.DBF,"   +   &  
  "DIF文件   (*.DIF),   *.DIF,"   +   &  
  "Excel文件   (*.XLS),   *.XLS,"   +   &  
  "HTML文件   (*.HTM),   *.HTM,"   +   &  
  "PSR文件   (*.PSR),   *.PSR,"   +   &  
  "SQL文件   (*.SQL),   *.SQL,"   +   &  
  "多格式文件   (*.SYL),   *.SYL,"   +   &  
  "Lotus1-2-3   (*.WKS),   *.WKS,"   +   &  
  "Lotus1-2-3   (*.WK1),   *.WK1,"   +   &  
  "WMF   Windows   (*.WMF),   *.WMF")  
   
  IF   li_Value   <>   1   THEN   RETURN  
  IF   ls_Path   =     THEN   RETURN  
  IF   FileExists(ls_Path)   THEN  
        Beep(3)  
        IF   MessageBox(系统信息,   文件:+ls_Path+已存在,   覆盖吗(Yes/No)?,   Question!,   YesNo!,   2)=2   THEN   RETURN  
  END   IF  
  ls_Ext   =   Upper(Right(ls_Path,   3))  
   
  CHOOSE   CASE   ls_Ext  
          //   CASE   "prn"  
                      //   dw_preview.Object.Datawindow.Print.FileName   =   ls_Path  
                      //   dw_preview.Print()  
                CASE   CSV  
                          li_Value   =   dw_2.SaveAs(ls_Path,   CSV!,   FALSE)  
                CASE   DBF  
                          li_Value   =   dw_2.SaveAs(ls_Path,   dBASE3!,   FALSE)  
                CASE   DIF  
                          li_Value   =   dw_2.SaveAs(ls_Path,   DIF!,   FALSE)  
                CASE   XLS  
                          li_Value   =   dw_2.SaveAs(ls_Path,   Excel!,   FALSE)  
                CASE   HTM  
                          li_Value   =   dw_2.SaveAs(ls_Path,   HTMLTable!,   FALSE)  
                CASE   PSR  
                          li_Value   =   dw_2.SaveAs(ls_Path,   PSReport!,   FALSE)  
                CASE   SQL  
                          li_Value   =   dw_2.SaveAs(ls_Path,   SQLInsert!,   FALSE)  
                CASE   SYL  
                          li_Value   =   dw_2.SaveAs(ls_Path,   SYLK!,   FALSE)  
                CASE   TXT  
                          li_Value   =   dw_2.SaveAs(ls_Path,   Text!,   FALSE)  
                CASE   WKS  
                          li_Value   =   dw_2.SaveAs(ls_Path,   WKS!,   FALSE)  
                CASE   WK1  
                          li_Value   =   dw_2.SaveAs(ls_Path,   WK1!,   FALSE)  
                CASE   WMF  
                        li_Value   =   dw_2.SaveAs(ls_Path,   WMF!,   FALSE)  
  END   CHOOSE  
   
  Beep(3)  
  IF   li_Value=1   THEN  
        MessageBox(系统信息,   数据保存完毕!)  
  ELSE  
        MessageBox(系统信息,   数据保存错误!)  
  END   IF  
 

用DDE可以实现你的要求，具体的操作你找Word的DDE函数我也做过一些例子  
   
  不过你也太小气了，就20分，如果能加到100分的话，给我发短消息，我给你例子

你可以用SAVEAS函数吗、？

DW_1.SAVEAS

SAVEAS(),不加参数弹对话框,加参数可以不弹.

东西已经做好，  
   
  已经发到你的信箱  
   
  请查收

• 软件资讯
• 技术指南
• 开发文档
• 编程技术
• 程序编程
• 数据库技术
• 服务器
• 项目开发
• 游戏编程

• 软件开发
• 服务器技术
• 行业资讯
• 程序相关
• 编程博文

• 一个简单问题，在线等待，急
• ACCESS97的密码改动问题？
• 如何实现在自己的主页上通过输入用户名和密码进入到其它站点的邮件服务器？？？
• 是 ShellExecute API的Bug吗？？？
• 服务器端如何获取客户端的一个文件?
• imagelist问题。高分求解答
• 写文本文件的问题
• 简单：老板要一个BBS，我是用Delphi还是ASP来实现？
• 关于new函数
• 各位：大家平时都是怎样读书的？
• DataGrid在Edit中更改了栏内文本框的值，但在updatecommand中却不变，不知是为什么？
• delphi无法调用SQLSERVER的触发器????
• 请教一个按钮的移动速度的问题（主要是在Win98下，Win2000下的移动速度有了明显区别）
• vbs:怎样将控件的值自动粘贴到系统剪贴板？
• 文本的更新与导入问题。
• 十分上火的一个简单问题--oracle的服务端如何配置 help me!!
• 请问DBGrid怎么与数据库关联上呢？
• 谁有 Pascal 里对有理数四则运算的程序? 实在太老， 我找不到了也想不出怎么写了, 谢谢, 100 分
• 再次送分！！快！
• 数组元素怎么取出来？