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

    alert(webform.weboffice.activedocument.content.text);
  }catch(e){}
}

//插入word内容
function websetwordcontent(){
  var mtext=window.prompt("请输入内容:","测试内容");
  if (mtext==null){
     return (false);
  }
  else
  {
     //下面为显示选中的文本
     //alert(webform.weboffice.activedocument.application.selection.range.text);
     //下面为在当前光标出插入文本
     webform.weboffice.activedocument.application.selection.range.insertafter (mtext+"\n");
     //下面为在第一段后插入文本
     //webform.weboffice.activedocument.application.activedocument.range(1).insertafter(mtext);
  }
}

//设置并取得excel的内容
function webgetexcelcontent(){
    webform.weboffice.activedocument.application.sheets(1).select;
    webform.weboffice.activedocument.application.range("c5").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "126";
    webform.weboffice.activedocument.application.range("c6").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "446";
    webform.weboffice.activedocument.application.range("c7").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "556";
    webform.weboffice.activedocument.application.range("c5:c8").select;
    webform.weboffice.activedocument.application.range("c8").activate;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "=sum(r[-3]c:r[-1]c)";
    webform.weboffice.activedocument.application.range("d8").select;
    alert(webform.weboffice.activedocument.application.range("c8").text);
}

//设置excel页，并演示锁定相应栏目
function websheetslock(){
    webform.weboffice.activedocument.application.sheets(1).select;

    webform.weboffice.activedocument.application.range("a1").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "产品";
    webform.weboffice.activedocument.application.range("b1").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "价格";
    webform.weboffice.activedocument.application.range("c1").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "详细说明";
    webform.weboffice.activedocument.application.range("d1").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "库存";
    webform.weboffice.activedocument.application.range("a2").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "书签";
    webform.weboffice.activedocument.application.range("a3").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "毛笔";
    webform.weboffice.activedocument.application.range("a4").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "钢笔";
    webform.weboffice.activedocument.application.range("a5").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "尺子";

    webform.weboffice.activedocument.application.range("b2").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "0.5";
    webform.weboffice.activedocument.application.range("c2").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "樱花";
    webform.weboffice.activedocument.application.range("d2").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "300";

    webform.weboffice.activedocument.application.range("b3").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "2";
    webform.weboffice.activedocument.application.range("c3").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "狼毫";
    webform.weboffice.activedocument.application.range("d3").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "50";

    webform.weboffice.activedocument.application.range("b4").select;
    webform.weboffice.activedocument.application.activecell.formular1c1 = "3";