求助：当前数据怎么导出为WORD

oracle0526

我想把当前窗体数据导出为Word 改怎么做，此功能有多个数据集。

jiahaiming

平台没有提供方法直接导出数据到word。
楼主需要自己写代码控制VBA

oracle0526

哦，没写过，能否指点一下，怎么写。

gaihl

参考其中3楼,
http://bbs.justep.com/forum.php?mod=viewthread&tid=25029

oracle0526

我看了看，没怎么看明白，谁写过现成的方法吗，帮忙贴上看看啊。

gaihl

楼主写Word的宏脚本,需要楼主自已去录, 之后转成平台脚本.
先看看在word中，录制的宏脚本
Sub Macro1()
'
' Macro1 Macro
' 宏在 2006-10-8 由 liujian 录制
'
    Application.UserName = "liujian"
    Application.UserInitials = "alang"
    Application.UserAddress = ""
    ActiveDocument.TrackRevisions = Not ActiveDocument.TrackRevisions
End Sub

以下是在平台上的写法
var
  doc: System.DispatchHelper;
  app: System.DispatchHelper;
  sel: System.DispatchHelper;
begin
  dbedtContent.DataSource.DataSet.Edit;
  TOleContainer(dbedtContent.InplaceControl).DoVerb(0);     //字段数据类型为二进制，表现类型为OLE
  doc := System.DispatchHelper.Create(TOleContainer(dbedtContent.InplaceControl).OleObject);
  app := System.DispatchHelper.Create(doc.PropertyGet('Application', []));
  app.PropertyPut('UserName', [edtAuthor.Text]);   //设置用户名
  app.PropertyPut('UserInitials', ['alang']);    //设置用户简称
  doc.PropertyPut('TrackRevisions', [True]);   //设置痕迹保留

--------------------------------
帮助文件中，对DispatchHelper的描述
NameSpace: System
--------------------------------------------------------------------------------
DispatchHelper = class(Object)
private
  idispatch: TObject;
  function Invoke(Name: string; Flags: Longword; ParamsByRef: array of Boolean; Params: array of TObject): TObject; overload;
public
  constructor create(idispatch: TObject); overload;
  function InvokeMethod(Name: string; Params: array of TObject): TObject; overload;
  function InvokeMethod(Name: string; ParamsByRef: array of Boolean; Params: array of TObject): TObject; overload;
  function PropertyGet(Name: string; Params: array of TObject): TObject; overload;
  procedure PropertyPut(Name: string; Params: array of TObject); overload;
end;
利用对象方式来访问Dispatch接口类型的对象。
InvokeMethod 调用对象的方法
PropertyPut设置对象的属性
PropertyGet获取对象的属性

oracle0526

此方法能把当前数据导到word里面吗，我看你写的方法是对word的操作吧，有三方控件可以用吗。

jiahaiming

这个例子是dispatchhelper的一个例子，用来设置文档属性（作者、简称）和修改留痕的。
楼主可以参考它做自己的东西。

或者，楼主也可以上网找些第三方控件来完成对word的控制。

gaihl

是word操作,用VBS宏进行word操作. 将这些宏转成平台代码,就可以了.
没有现成的三方控件可以用.

oracle0526

哦，本论坛没有谁做过导出Word吗，在网上没找到啊，还真是麻烦。谁知道怎么写啊，帮帮兄弟吧。