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 使用教程>>>