如何向打开的Word文档中插入保存在文本文件中的VBA脚本,并运行它?

解决方案 »

  1.   

    在VBA中有如下事件
    ‘App 是WORD应用程序对象
    Sub Script_OnStart(ByRef App )
        set wrd = App
        ‘判断是否打开指定文件
        Set wrdDocument = wrd.Documents(somefilename)
        ......
    End Sub
    在VC写的Activex中有对应的OnStart事件
    在VC应用程序中启动Activex的OnStart事件,则VBA将执行如上代码。事件均能正常响应,但不知道如何进行参数App的如下传递             WORD对象                     WORD对象 
    VC应用程序------------>VC写的Activex控件------------->VBA请教各位:
        1.如何在VC应用程序中得到WORD对象
        2.如何将这个WORD对象的地址传给VBA