iWebOffice2004调用VBA脚本解释及翻译[8]

[入库:2005年8月18日] [更新:2007年3月25日]

本文简介:选择自 csdnhome 的 blog

    webform.weboffice.activedocument.application.range("c4").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "蓝色";
    webform.weboffice.activedocument.application.range("d4").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "90";

    webform.weboffice.activedocument.application.range("b5").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "1";
    webform.weboffice.activedocument.application.range("c5").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "20cm";
    webform.weboffice.activedocument.application.range("d5").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "40";

    //保护工作表
    webform.weboffice.activedocument.application.range("b2:d5").select;
    webform.weboffice.activedocument.application.selection.locked = false;
    webform.weboffice.activedocument.application.selection.formulahidden = false;
    webform.weboffice.activedocument.application.activesheet.protect(true,true,true);  

    alert("已经保护工作表,只有b2-d5单元格可以修改。");
}

//vba套红操作
function webinsertvba(){
 
 //画线
 var object=webform.weboffice.activedocument;
 var myl=object.shapes.addline(100,60,305,60)
 myl.line.forecolor=255;
 myl.line.weight=2;
 var myl1=object.shapes.addline(326,60,520,60)
 myl1.line.forecolor=255;
 myl1.line.weight=2;

 //object.shapes.addline(200,200,450,200).line.forecolor=6;
    var myrange=webform.weboffice.activedocument.range(0,0);
 myrange.select();

 var mtext="★";
 webform.weboffice.activedocument.application.selection.range.insertafter (mtext+"\n");
    var myrange=webform.weboffice.activedocument.paragraphs(1).range;
    myrange.paragraphformat.linespacingrule =1.5;
    myrange.font.colorindex=6;
    myrange.paragraphformat.alignment=1;
    myrange=webform.weboffice.activedocument.range(0,0);
 myrange.select();
 mtext="金格发[2003]154号";
 webform.weboffice.activedocument.application.selection.range.insertafter (mtext+"\n");
 myrange=webform.weboffice.activedocument.paragraphs(1).range;
 myrange.paragraphformat.linespacingrule =1.5;
 myrange.paragraphformat.alignment=1;
 myrange.font.colorindex=1;
 
 mtext="金格电子政务文件";
 webform.weboffice.activedocument.application.selection.range.insertafter (mtext+"\n");
 myrange=webform.weboffice.activedocument.paragraphs(1).range;
 myrange.paragraphformat.linespacingrule =1.5;
 
 //myrange.select();
 myrange.font.colorindex=6;
 myrange.font.name="仿宋_gb2312";
 myrange.font.bold=true;
 myrange.font.size=50;
 myrange.paragraphformat.alignment=1;
 
 //myrange=myrange=webform.weboffice.activedocument.paragraphs(1).range;
 webform.weboffice.activedocument.pagesetup.leftmargin=70;
 webform.weboffice.activedocument.pagesetup.rightmargin=70;
 webform.weboffice.activedocument.pagesetup.topmargin=70;
 webform.weboffice.activedocument.pagesetup.bottommargin=70;
}

//保存定稿文件
function webupdatefile(){
  try{
    webform.weboffice.webupdatefile();
    if (webform.weboffice.error!=""){
 alert(webform.weboffice.status+webform.weboffice.error);
    }
  }catch(e){}
  statusmsg(webform.weboffice.status);
}

//从服务器上导入数据到文档中
function webinporttext(){
    var mtext;
    webform.weboffice.websetmsgbyname("command","inporttext");
    webform.weboffice.websendmessage();
    if (webform.weboffice.error==""){
      mtext=webform.weboffice.webgetmsgbyname("content");
      webform.weboffice.activedocument.application.selection.range.insertafter(mtext);
      alert("导入文本成功");
    }
    statusmsg(webform.weboffice.status);
}

//导出所有文档文本给服务器
function webexporttext(){
    var mtext=webform.weboffice.activedocument.content.text;
    webform.weboffice.websetmsgbyname("command","exporttext");
    webform.weboffice.websetmsgbyname("content",mtext);
    webform.weboffice.websendmessage();

本文关键:Office VBA 痕迹保留 手写签名 电子印章
  相关方案
Google
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top