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

點(diǎn)擊下載WebOffice正式版

本文介紹了WebOffice的教程，使用RunMacro運(yùn)行Office的宏。

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

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

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

示例：

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

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

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

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

點(diǎn)擊按鈕執(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í)行動(dòng)態(tài)的帶參數(shù)的MACRO

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

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

sub 過(guò)程()

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

end sub

WebOffice 使用教程>>>