永利最大(官方)网站

WebOffice控件是国内领先的在线编辑Office文档软件，软件产品从1998年立项至今已有20多年历史，期间服务了众多大中小型企业、各级政府机关、科研机构和学校等事业单位。通过WebOffice软件可以让用户方便从远程直接打开Word,Excel,Ppt等文档编辑后再次保存至服务器原位置，实现远程编辑文档、远程保存，为用户在线办公开创新式、便捷的使用体验。

点击下载WebOffice正式版

本文介绍了WebOffice的教程，使用RunMacro运行Office的宏。

WebOffice使用 RunMacro 方法在在线打开的WebOffice文档中执行已录制的宏指令或者新编写的宏指令（VBA代码）。WebOffice可以运行文档中无返回值和有返回值的宏指令。

document.getElementById("WebOffice").RunMacro( MacroName, MacroScript );

②当参数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

WebOffice 使用教程>>>