打印本文 打印本文 关闭窗口 关闭窗口
iWebOffice2004调用VBA脚本解释及翻译
作者:武汉SEO闵涛  文章来源:敏韬网  点击数5564  更新时间:2009/4/23 18:59:01  文章录入:mintao  责任编辑:mintao
p; //如果用户确认选择
  if (mObject.Result &&(mObject.FileID.length>0)){
     //清除所有设置文本信息
     webform.WebOffice.WebMsgTextClear();
     //设置COMMAND为LOADVERSION
     webform.WebOffice.WebSetMsgByName("COMMAND","LOADVERSION");
     //设置用户选择的版本编号
     webform.WebOffice.WebSetMsgByName("FILEID",mObject.FileID);
     //发送命令给服务器
     webform.WebOffice.WebSendMessage();
     //如果没有错误
     if (webform.WebOffice.Error==""){
       //关闭当前文档
       webform.WebOffice.Close();
       //保存新版本为系统文件名
       webform.WebOffice.WebMsgFileSave(gFileName);
       //如果保存成功
       if (webform.WebOffice.Error==""){
   //打开该版本文档,
          webform.WebOffice.Open(gFileName,true);
       } 
    }else{
       alert(webform.WebOffice.Error);
    }
  }else{
    StatusMsg("取消打开版本");
  }
  StatusMsg(webform.WebOffice.Status);
}

//保存版本信息
function WebSaveVersion(){
  var mDialogUrl = "Version/VersionForm.asp";
  var mObject = new Object();
      mObject.Descript = "";
      mObject.Result=false;
      window.showModalDialog(mDialogUrl, mObject, "dialogHeight:200px; dialogWidth:360px;center:yes;scroll:no;status:no;");
      //如果用户确认选择
      if (mObject.Result){
        //清除所有设置文本信息
        webform.WebOffice.WebMsgTextClear();
        //设置COMMAND为SAVEVERSION 
        webform.WebOffice.WebSetMsgByName("COMMAND","SAVEVERSION");
        //设置描述信息内容
        webform.WebOffice.WebSetMsgByName("DESCRIPT",mObject.Descript);
        //保存当前版本
        webform.WebOffice.Save(gFileName,true);
        //调入该文档
        webform.WebOffice.WebMsgFileLoad(gFileName);
        //发送到服务器上
        webform.WebOffice.WebSendMessage();
        if (webform.WebOffice.Error!=""){
           alert(webform.WebOffice.Error);
       }
     }
     StatusMsg(webform.WebOffice.Status);
}

//用数据库中的内容填充标签里的内容
function LoadBookmarks(){
 var mCount,mIndex;
 var mBookObject,mBookName,mBookIdx;
    //清除所有设置变量信息
    webform.WebOffice.WebMsgTextClear();
    //设置COMMAND为LOADBOOKMARKS
    webform.WebOffice.WebSetMsgByName("COMMAND","LOADBOOKMARKS");
    //发送信息到服务器上
    webform.WebOffice.WebSendMessage();
    //如果没有错误信息
    if (webform.WebOffice.Error==""){
      //如果是Word文件  
      if (webform.WebOffice.FileType==".doc"){
         //替换所有的标签内容
         for (mBookIdx = 1; mBookIdx<=webform.WebOffice.ActiveDocument.Bookmarks.Count;mBookIdx++){
      //取出标签名
             mBookName = webform.WebOffice.ActiveDocument.Bookmarks.Item(mBookIdx).Name;
             //取出该标签对应的服务器上的数据
             mBookValue = webform.WebOffice.WebGetMsgByName(mBookName);
             //如果该数据有值 
             if ((mBookValue)&&(mBookValue.length>0)) {
   //取得标签对应的对象
                 mBookObject = webform.WebOffice.ActiveDocument.Bookmarks.Item(mBookIdx).Range;
   //设置为服务器数据
   mBookObject.Text=mBookValue;
   //重新设置为标签
                 webform.WebOffice.ActiveDocument.Bookmarks.Add(mBookName, mBookObject);
             }
         }
      }
    }
    StatusMsg(webform.WebOffice.Status);
}

//设置标签的内容
function SetBookmarks(vbmName,vbmValue){
  //取得标签对象
  var mBookmarks=WebFindBookmarks(vbmName);
  if (mBookmarks){
     //设置该标签的内容为新值
     mBookmarks.Text=vbmValue;
     //重新设置为标签
     webform.WebOffice.ActiveDocument.Bookmarks.Add(vbmName, mBookmarks);
  }
}

//取得标签内容
function GetBookmarks(vbmName){
  var vbmValue="";
  //取得标签对象
  var mBookmarks=WebFindBookmarks(vbmName);
  if (mBookmarks){
     //取得内容
     vbmValue=mBookmarks.Text;
  }
  return vbmValue;
}

//调用打印
function WebOpenPrint(){
  try{
    //调用打印功能,true表示显示打印设置,false表示直接打印
    webform.WebOffice.PrintOut(true);
    StatusMsg(webform.WebOffice.Status);
  }catch(e){}
}

//调用打印页面设置对话匡
function WebOpenPageSetup(){
   try{
 if (webform.WebOffice.FileType==".doc"){
            //如果是word
     webform.WebOffice.ActiveDocument.Application.Dialogs(178).Show();
 }else{
            //如果是Excel
     webform.WebOffice.ActiveDocument.Application.Dialogs(7).Show();
 }
   }catch(e){

   }

}
//调用打开图片对话框
function WebOpenPicture(){
   try{
 if (webform.WebOffice.FileType==".doc"){
   //如果是Word
   webform.WebOffice.ActiveDocument.Application.Dialogs(163).Show();
 }else{
          //如果是Excel
   webform.WebOffice.ActiveDocument.Application.Dialogs(342).Show();
 }
   }catch(e){

   }
}

//电子印章功能
function WebOpenSignature(){
  var mDialogUrl = "Signature/SignatureForm.asp";
  var mMarkName,mPassWord,mMarkTime;
  var mObject = new Object();
      mObject.MarkName = "";
      mObject.PassWord = "";
      window.showModalDialog(mDialogUrl, mObject, "dialogHeight:200px; dialogWidth:360px;center:yes;scroll:no;status:no;");
  //判断用户是否选择印章名称和密码
  if (mObject.MarkName==""||mObject.PassWord==null){
    StatusMsg("取消印章");
    return false;
  }else{
     //取得系统文件目录
     var mFilePath=webform.WebOffice.WebMsgFilepath;
     var mImgShape=null;
     var mLabName=null;
     var mZOrder=null;
     mMarkName=mObject.MarkName;
     mPassWord=mObject.PassWord;
     //清除所有设置的变量
     webform.WebOffice.WebMsgTextClear();
     //设置COMMAND 为 LOADMARKIMAGE
     webform.WebOffice.WebSetMsgByName("COMMAND","LOADMARKIMAGE");
     //设置印章名称
     webform.WebOffice.WebSetMsgByName("IMAGENAME",mMarkName);
     //设置印章密码
     webform.WebOffice.WebSetMsgByName("PASSWORD",mPassWord);
     //发送到服务器上
     webform.WebOffice.WebSendMessage();
     //如果没有错误
     if (webform.WebOffice.Error==""){
       //取得服务器返回时间
       mMarkTime=webform.WebOffice.WebGetMsgByName("DATETIME");
       //取得印章所盖的位置,POSITION所指的是标签的对象名
       mLabName=webform.WebOffice.WebGetMsgByName("POSITION");
       //设置印章的显示形式,4是在文字上方,5是在文字下方
       mZOrder=webform.WebOffice.WebGetMsgByName("ZORDER");
       //取得完整的印章图片名称
       var mFileName=webform.WebOffice.WebGetMsgByName("IMAGENAME");
       //保存该印章
       webform.WebOffice.WebMsgFileSave(mFilePath+mFileName);
 &n

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

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