iWebOffice2004调用VBA脚本解释及翻译

iWebOffice2004调用VBA脚本解释及翻译(15)         webform.WebOffice.ActiveDocument.Application.Sheets(mSheet).Select();
        for (var mIndex=1;mIndex<=webform.WebOffice.ActiveDocument.ActiveSheet.Shapes.Count;mIndex++){
   var mValidString=webform.WebOffice.ActiveDocument.ActiveSheet.Shapes.Item(mIndex).AlternativeText;
          if ((mValidString!=null)&&(mValidString.length!=0)){
              if ((mValidString.indexOf("DBSTEP_2004")!=-1) && (mValidString.indexOf(webform.WebOffice.RecordID)!=-1)){
    SignatureString=SignatureString+"\r\n"+mValidString.substring(12,mValidString.length);
       }
          }
        }
      }
    }

    if (SignatureString){
       alert("印章列表如下:"+SignatureString);
    }else{
       alert("没有找到任何有效印章");
    }
  }catch(e){}
}

//是否显示工具栏
function WebToolBars(Visible){
  try{
     webform.WebOffice.ToolBars=Visible;
  }catch(e){}
}
//是否显示菜单栏
function WebMenuBar(Visible){
  try{
     webform.WebOffice.MenuBar=Visible;
  }catch(e){}
}

//是否显示某种工具栏
function WebToolsVisible(ToolName,Visible){
  try{
    webform.WebOffice.ActiveDocument.CommandBars(ToolName).Visible = Visible;
  }catch(e){}
}

//是否允许某工具栏上的某工具有效
function WebToolsEnable(ToolName,ToolIndex,Enable){
 var i;
 try{
    for (i=1;i<=webform.WebOffice.ActiveDocument.CommandBars(ToolName).Controls.Count;i++){