## **使用RunMacro运行Office的宏** WebOffice使用 RunMacro 方法在在线打开的WebOffice文档中执行已录制的宏指令或者新编写的宏指令（VBA代码）。WebOffice可以运行文档中无返回值和有返回值的宏指令。 ~~~ document.getElementById("WebOffice").RunMacro( MacroName, MacroScript ); ~~~ | 参数 | 描述 | | --- | --- | | MacroName | 字符串类型，表示宏指令名称。 | | MacroScript | 字符串类型，表示要执行的宏指令代码，可选。 | > 注: ① 缺省该参数时，在客户端调用时，会根据宏指令名称执行打开的文档中已录制或存在的宏指令；如果传递该参数，就直接执行该参数中的宏指令。这里的宏指令指的是完整的VBA函数字符串，必须包含函数的开始和结束，并且函数的名字要和MacroName参数指定的函数名字完全相同。 > ②当参数MacroScript中有多句宏指令代码时，请把每句代码单独放一行（VBA的要求），注意回车换行。 **示例：** 1. 执行无返回值宏命令，弹出消息框。 在页面上放一个TextBox控件，将其“TextMode”属性设置为“MultiLine”；再放一个普通的按钮“Button”，给其添加一个“onclick”事件，命名为“RunMacro”。在TextBox中输入宏命令后，点击按钮执行Js函数RunMacro()，弹出消息框 如，在TextBox中输入代码如下（注意：每句代码占一行）： ~~~ Function MyMacro() 　MsgBox "消息框" End Function ~~~ 点击按钮执行的JS代码如下： ~~~ <script type="text/JavaScript"> function RunMacro(){ var WebOffice= document.getElementById("WebOffice"); WebOffice.RunMacro( "MyMacro", document.getElementById("TextBox1").value); } </script> ~~~ 2. 执行有返回值宏命令，弹出消息框。 > 二、执行文档中有返回值的宏命令（以Word为例） ~~~ <script type="text/JavaScript"> function RunMacro2(){ try{ var scode = "Function myFunc1() \r\n myFunc1 = \"123\" \r\n End Function"; WebOffice.ActiveDocument.VBProject.VBComponents(1).CodeModule.AddFromString(scode); var value=WebOffice.ActiveDocument.Application.Run("myFunc1"); alert(value); } catch(e){ alert(e); } } </script> ~~~ 3.执行动态的带参数的MACRO 如果MACRO宏本身带有参数，则可以采用以下方法编程实现： ``` 参数1 = 10; '10用后台语言生成，实现动态 参数2 = 20; '20用后台语言生成，实现动态 sub 过程() msgbox 参数1+参数2 end sub ```