打印本文 打印本文 关闭窗口 关闭窗口
iWebOffice2004调用VBA脚本解释及翻译
作者:武汉SEO闵涛  文章来源:敏韬网  点击数5570  更新时间:2009/4/23 18:59:01  文章录入:mintao  责任编辑:mintao
bsp;     //如果一切正常
       if (webform.WebOffice.Error==""){
         //如果是word文件
         if (webform.WebOffice.FileType==".doc"){
           var mInlineShapes=null; //=webform.WebOffice.ActiveDocument.InlineShapes.Count;
           //var mShapes=webform.WebOffice.ActiveDocument.Shapes.Count;
           var mBookMark=WebFindBookmarks(mLabName);
           if (mBookMark){
              mInlineShapes=mBookMark.InlineShapes.AddPicture(mFilePath+mFileName);
           }else{
              mInlineShapes=webform.WebOffice.ActiveDocument.Application.Selection.InlineShapes.AddPicture(mFilePath+mFileName);
           } 

           //if (mInlineShapes!=webform.WebOffice.ActiveDocument.InlineShapes.Count){
           //   mImgShape = webform.WebOffice.ActiveDocument.InlineShapes.Item(webform.WebOffice.ActiveDocument.InlineShapes.Count).ConvertToShape();
           //}
           //if (mShapes!=webform.WebOffice.ActiveDocument.Shapes.Count){
           //   mImgShape = webform.WebOffice.ActiveDocument.Shapes.Item(webform.WebOffice.ActiveDocument.Shapes.Count);
           //}
          
          mImgShape = mInlineShapes.ConvertToShape();
          mImgShape.Select();
          mImgShape.AlternativeText="DBSTEP_2004=印章名称:["+mMarkName+"] 用户名称:["+webform.WebOffice.UserName+"] 盖章时间[:"+mMarkTime+"] 印章编号:["+webform.WebOffice.RecordID+"]";
          mImgShape.PictureFormat.TransparentBackground = true;
          mImgShape.PictureFormat.TransparencyColor = 16777215;
          mImgShape.Fill.Visible = false;
          mImgShape.WrapFormat.Type = 3;
          mImgShape.ZOrder(mZOrder);
        }
        //如果是Excel文件
        if (webform.WebOffice.FileType==".xls"){
     webform.WebOffice.ActiveDocument.ActiveSheet.Pictures.Insert(mFilePath+mFileName).Select();
   mImgShape =webform.WebOffice.ActiveDocument.Application.Selection.ShapeRange;
          mImgShape.AlternativeText="DBSTEP_2004=印章名称:["+mMarkName+"] 用户名称:["+webform.WebOffice.UserName+"] 盖章时间[:"+mMarkTime+"] 印章编号:["+webform.WebOffice.RecordID+"]";
          mImgShape.PictureFormat.TransparentBackground = true;
          mImgShape.PictureFormat.TransparencyColor = 16777215;
          mImgShape.Fill.Visible = false;
          mImgShape.ZOrder(mZOrder);
        }
       } 
       //清除印章文件
       webform.WebOffice.WebMsgFileClear(mFilePath+mFileName);
    }
    StatusMsg(webform.WebOffice.Error);
  }
}

//显示印章信息
function WebShowSignature(){
  var SignatureString="";
  try{
    //如果是word文件
    if (webform.WebOffice.FileType==".doc"){
      for (var mIndex=1;mIndex<=webform.WebOffice.ActiveDocument.Shapes.Count;mIndex++){
        var mValidString=webform.WebOffice.ActiveDocument.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);
     }
        }
      }
    }
    //如果是Excel文件
    if (webform.WebOffice.FileType==".xls"){
      for (var mSheet=1;mSheet<=webform.WebOffice.ActiveDocument.Application.Sheets.Count;mSheet++){
        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++){
 if  (webform.WebOffice.ActiveDocument.CommandBars(ToolName).Controls(i).id==ToolIndex){
      webform.WebOffice.ActiveDocument.CommandBars(ToolName).Controls(i).Enabled = Enable;
  break;
 }
    }
 }catch(e){}
}

//设置是否保护
function WebProtect(value){
  try{
    if (value){
 if (webform.WebOffice.FileType==".doc"){ 
       webform.WebOffice.ActiveDocument.Protect(2);
 }else if(webform.WebOffice.FileType==''''.xls''''){
            for (var mIndex=1;mIndex<=webform.WebOffice.ActiveDocument.Application.ActiveWorkbook.Sheets.Count;mIndex++){
                var mSheet=webform.WebOffice.ActiveDocument.Application.ActiveWorkbook.Sheets(mIndex);
                mSheet.Protect("", true, true, true);
            }
 }
    }else{
 if (webform.WebOffice.FileType==".doc"){ 
  webform.WebOffice.ActiveDocument.UnProtect();
 }else if(webform.WebOffice.FileType==''''.xls''''){
            for (var mIndex=1;mIndex<=webform.WebOffice.ActiveDocument.Application.ActiveWorkbook.Sheets.Count;mIndex++){
                var mSheet=webform.WebOffice.ActiveDocument.Application.ActiveWorkbook.Sheets(mIndex);
                mSheet.UnProtect("");
            }
 }

    }
  }catch(e){}
}

//取得Word内容
function WebGetWordContent(){
  try{
    alert(webform.WebOffice.ActiveDocument.Content.Text);
  }catch(e){}
}

//插入Word内容
function WebSetWordContent(){
  var mText=window.prompt("请输入内容:","测试内容");
  if (mText==null){
     return (false);
  }
  else
  {
     //下面为显示选中的文本
  

上一页  [1] [2] [3] [4] [5] [6] [7]  下一页

打印本文 打印本文 关闭窗口 关闭窗口