WebOffice控件是國內(nèi)領(lǐng)先的在線編輯Office文檔軟件，軟件產(chǎn)品從1998年立項至今已有20多年歷史，期間服務(wù)了眾多大中小型企業(yè)、各級政府機關(guān)、科研機構(gòu)和學(xué)校等事業(yè)單位。通過WebOffice軟件可以讓用戶方便從遠程直接打開Word,Excel,Ppt等文檔編輯后再次保存至服務(wù)器原位置，實現(xiàn)遠程編輯文檔、遠程保存，為用戶在線辦公開創(chuàng)新式、便捷的使用體驗。

點擊下載WebOffice正式版

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

WebOffice使用 RunMacro 方法在在線打開的WebOffice文檔中執(zhí)行已錄制的宏指令或者新編寫的宏指令（VBA代碼）。WebOffice可以運行文檔中無返回值和有返回值的宏指令。

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

②當參數(shù)MacroScript中有多句宏指令代碼時，請把每句代碼單獨放一行（VBA的要求），注意回車換行。

示例：

1、執(zhí)行無返回值宏命令，彈出消息框。

在頁面上放一個TextBox控件，將其“TextMode”屬性設(shè)置為“MultiLine”；再放一個普通的按鈕“Button”，給其添加一個“onclick”事件，命名為“RunMacro”。在TextBox中輸入宏命令后，點擊按鈕執(zhí)行Js函數(shù)RunMacro()，彈出消息框

如，在TextBox中輸入代碼如下（注意：每句代碼占一行）：

 Function MyMacro()
   MsgBox "消息框"
 End Function

點擊按鈕執(zhí)行的JS代碼如下：

<script type="text/JavaScript">
 function RunMacro(){
    var WebOffice= document.getElementById("WebOffice");
    WebOffice.RunMacro( "MyMacro", document.getElementById("TextBox1").value);
 }
</script>

2、執(zhí)行有返回值宏命令，彈出消息框。

執(zhí)行文檔中有返回值的宏命令（以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、執(zhí)行動態(tài)的帶參數(shù)的MACRO

如果MACRO宏本身帶有參數(shù)，則可以采用以下方法編程實現(xiàn)：

參數(shù)1 = 10;   '10用后臺語言生成，實現(xiàn)動態(tài)  
參數(shù)2 = 20;   '20用后臺語言生成，實現(xiàn)動態(tài)

sub 過程()

msgbox 參數(shù)1+參數(shù)2

end sub

WebOffice 使用教程>>>