快表在OOB模式下具备调用具备接口的第三方软件，并进行数据传递。

截图如下：



代码如下：

1. Imports System.Runtime.InteropServices.Automation

复制代码

1.            if e.shape.name = "BTEST" then
   
2.                           '判断是否OOB模式运行
   
3.                           if Application.Current.IsRunningOutOfBrowser = True then
   
4.                                  '实例化Word接口
   
5.                                  Dim _myWord As object = AutomationFactory.CreateObject("Word.Application")
   
6.                                  '添加文档
   
7.                                  Dim _myDocument As object = _myWord.Documents.Add()
   
8.                                  '激活文档
   
9.                  _myDocument.Activate()
   
10.                  '在选择位置插入文字
    
11.                                  AW.WorkbookSet.GetLock()
    
12.                  _myWord.Selection.TypeText(range("F_2753").Text)
    
13.                                  AW.WorkbookSet.ReleaseLock()
    
14.                                  '显示Word
    
15.                              _myWord.Visible = true
    
16.                           Else
    
17.                              messagebox.show("必须在桌面启动才能使用！")
    
18.                           End if
    
19.                End if

复制代码

接口名称：
word：Word.Application
excel：Excel.Application
ppt：  PowerPoint.Application
wps表格：ET.Application
CAD，Visio，Access，Publisher, Outlook 等等。

属性、方法：
参照office vba手册或者对应第三方软件手册。

快表在OOB模式下具备调用具备接口的第三方软件，并进行数据传递。

截图如下：



代码如下：

1. Imports System.Runtime.InteropServices.Automation

复制代码

1.            if e.shape.name = "BTEST" then
   
2.                           '判断是否OOB模式运行
   
3.                           if Application.Current.IsRunningOutOfBrowser = True then
   
4.                                  '实例化Word接口
   
5.                                  Dim _myWord As object = AutomationFactory.CreateObject("Word.Application")
   
6.                                  '添加文档
   
7.                                  Dim _myDocument As object = _myWord.Documents.Add()
   
8.                                  '激活文档
   
9.                  _myDocument.Activate()
   
10.                  '在选择位置插入文字
    
11.                                  AW.WorkbookSet.GetLock()
    
12.                  _myWord.Selection.TypeText(range("F_2753").Text)
    
13.                                  AW.WorkbookSet.ReleaseLock()
    
14.                                  '显示Word
    
15.                              _myWord.Visible = true
    
16.                           Else
    
17.                              messagebox.show("必须在桌面启动才能使用！")
    
18.                           End if
    
19.                End if

复制代码

接口名称：
word：Word.Application
excel：Excel.Application
ppt：  PowerPoint.Application
wps表格：ET.Application
CAD，Visio，Access，Publisher, Outlook 等等。

属性、方法：
参照office vba手册或者对应第三方软件手册。