欢迎光临
我们一直在努力

iWebOffice2004调用VBA脚本解释及翻译-ASP教程,脚本编码

建站超值云服务器,限时71元/月

<script language=javascript>

//系统变量

var vfilename=""; //打开的文件名

var vobject=null; //打开的对象

var gfilename=""; //文件名

var gobject=null; //对象

var gopened=false; //是否被打开

var gusername=""; //系统用户

</script>

<script language="jscript" for=weboffice event="ondocumentopened(vfilename,vobject)">

ondocumentopened(vfilename,vobject); //打开文件事件

</script>

<script language="jscript" for=weboffice event="ondocumentclosed()">

ondocumentclosed(); //关闭文件事件

</script>

<script language=javascript>

//打开文档,根据用户权限(edittype),进行初始化设置

function ondocumentopened(vfilename,vobject)

{

var mprotect,mtools,mtrack,mprint,mshow;

gfilename=vfilename; //取得全局文件名

gobject=vobject; //取得全局对象

//设置痕迹和保护状态

if (webform.weboffice.edittype=="0"){

mprotect=true;

mtools=false;

mtrack=false;

mprint=false;

mshow=true;

}else if(webform.weboffice.edittype=="1"){

mprotect=false;

mtools=false;

mtrack=false;

mprint=false;

mshow=false;

}else if(webform.weboffice.edittype=="2"){

mprotect=false;

mtools=false;

mtrack=true;

mprint=true;

mshow=true;

}else if(webform.weboffice.edittype=="3"){

mprotect=false;

mtools=true;

mtrack=true;

mprint=true;

mshow=true;

}else{

var mtype="";

var medit=webform.weboffice.edittype;

var midx=medit.indexof(",");

if (midx>0){

mtype=medit.substring(0,midx);

}

medit=medit.substring(midx+1,medit.length);

midx=medit.indexof(",");

if (midx>0){

mtype=medit.substring(0,midx);

if (mtype=="1") mprotect=true;

if (mtype=="0") mprotect=false;

}

medit=medit.substring(midx+1,medit.length);

var midx=medit.indexof(",");

if (midx>0){

mtype=medit.substring(0,midx);

if (mtype=="1") mshow=true;

if (mtype=="0") mshow=false;

}

medit=medit.substring(midx+1,medit.length);

var midx=medit.indexof(",");

if (midx>0){

mtype=medit.substring(0,midx);

if (mtype=="1") mtrack=true;

if (mtype=="0") mtrack=false;

}

medit=medit.substring(midx+1,medit.length);

var midx=medit.indexof(",");

if (midx>0){

mtype=medit.substring(0,midx);

if (mtype=="1") mprint=true;

if (mtype=="0") mprint=false;

}

medit=medit.substring(midx+1,medit.length);

var midx=medit.indexof(",");

if (midx>0){

mtype=medit.substring(0,midx);

if (mtype=="1") mtools=true;

if (mtype=="0") mtools=false;

}

}

if (webform.weboffice.filetype==".doc"){

gobject.trackrevisions=mtrack;

gobject.printrevisions=mprint;

gobject.showrevisions=mshow;

gobject.commandbars(reviewing).enabled =mtools;

gobject.commandbars(reviewing).visible =mtools;

var mcount=gobject.commandbars(track changes).controls.count;

for (var mindex = 1; mindex<= mcount; mindex++){

var mcurid=gobject.commandbars(track changes).controls(mindex).id;

if ((mcurid==1715) || (mcurid==1716) || (mcurid==2041) || (mcurid==305)) {

gobject.commandbars(track changes).controls(mindex).enabled = mtools;

}

}

if (mprotect){

gobject.protect(2);

}

if (gusername == "") {

//保存原来的用户

gusername=gobject.application.username;

//设置系统当前用户

gobject.application.username=webform.weboffice.username;

}

}

if (webform.weboffice.filetype==".xls"){

if (mshow){

if (mtrack){

gobject.application.displaycommentindicator = 1;

}

}else{

gobject.application.displaycommentindicator = 0;

}

gobject.commandbars(reviewing).enabled =mtools;

gobject.commandbars(reviewing).visible =mtools;

if (mprotect){

for (var mindex=1;mindex<=gobject.application.activeworkbook.sheets.count;mindex++){

var msheet=gobject.application.activeworkbook.sheets(mindex);

msheet.protect("", true, true, true);

}

}

if (gusername == "") {

//保存原来的用户

gusername=gobject.application.username;

//设置系统当前用户

gobject.application.username=webform.weboffice.username;

}

}

//打开成功

gopened = true;

}

function ondocumentclosed()

{

//关闭成功

gopened = false;

}

//显示系统状态信息

function statusmsg(mstring){

statusbar.innertext=mstring;

}

//页面装入事件

function load(){

//给控件属性付值

try{

webform.weboffice.weburl="<%=mserverurl%>";

webform.weboffice.recordid="<%=mrecordid%>";

webform.weboffice.template="<%=mtemplate%>";

webform.weboffice.filename="<%=mfilename%>";

webform.weboffice.filetype="<%=mfiletype%>";

webform.weboffice.edittype="<%=medittype%>";

webform.weboffice.username="<%=musername%>";

//打开文档,执行发送loadfile操作

webform.weboffice.webopen();

if (webform.weboffice.error!=""){

//如果不成功,执行发送loadtemplate操作

webform.weboffice.webloadtemplate();

if (webform.weboffice.error!=""){

//如果还没有成功,则根据扩展名创建新文档

if (webform.weboffice.filetype==".doc"){

webform.weboffice.createnew("word.document");

}else if(webform.weboffice.filetype==".xls"){

webform.weboffice.createnew("excel.sheet");

}else if(webform.weboffice.filetype==".ppt"){

webform.weboffice.createnew("powerpoint.show");

}else{

webform.weboffice.createnew("");

}

}

}

}catch(e){

}

//显示状态信息

statusmsg(webform.weboffice.status);

}

//页面退出事件

function unload(){

try{

//关闭ocx控件

webform.weboffice.webclose();

}catch(e){}

}

//设置是否显示痕迹

function showrevision(vvalue){

var object=webform.weboffice.activedocument;

object.showrevisions=vvalue;

if (vvalue){

statusmsg("显示痕迹…");

}else{

statusmsg("隐藏痕迹…");

}

}

//调入文档

function loaddocument(){

statusmsg("正在打开文档…");

webform.weboffice.webopen();

statusmsg(webform.weboffice.status);

}

//保存文档

function savedocument(){

//判断状态

if (webform.edittype.value=="0"){

alert("你在查看状态,不能保存!");

return false;

}

//保存文档

webform.weboffice.websave();

//如果没有错误

if (webform.weboffice.error!=""){

statusmsg(webform.weboffice.status);

return false;

}else{

statusmsg(webform.weboffice.status);

return true;

}

}

//打开版本信息

function webopenversion(){

var mdialogurl = "version/versionlist.asp?recordid="+webform.weboffice.recordid;

var mobject = new object();

mobject.fileid = "";

mobject.result = false;

window.showmodaldialog(mdialogurl, mobject, "dialogheight:280px; dialogwidth:420px;center:yes;scroll:no;status:no;");

//如果用户确认选择

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);

//如果一切正常

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

{

//下面为显示选中的文本

//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";

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();

if (webform.weboffice.error==""){

alert("导出文本成功");

}

statusmsg(webform.weboffice.status);

}

//根据标签名称查找标签

function webfindbookmarks(mposition)

{

var mbookobject,mbookname,mbookidx;

if (webform.weboffice.filetype==".doc"){

for (mbookidx = 1; mbookidx<=webform.weboffice.activedocument.bookmarks.count;mbookidx++){

mbookname = webform.weboffice.activedocument.bookmarks.item(mbookidx).name;

if (mbookname==mposition) {

mbookobject = webform.weboffice.activedocument.bookmarks.item(mbookidx).range;

break;

}

}

}

return (mbookobject);

}

//插入服务器图片

function webinsertimage(vlabname,vimgname,vtrans,vzorder)

{

//取得文件目录

var mfilepath=webform.weboffice.webmsgfilepath;

var mimgshape=null;

var mpassword=null;

//清除所有设置变量

webform.weboffice.webmsgtextclear();

//设置command 为 insertimage 命令

webform.weboffice.websetmsgbyname("command","insertimage");

//设置要插入的图片名称

webform.weboffice.websetmsgbyname("imagename",vimgname);

//发送到服务器上

webform.weboffice.websendmessage();

//如果没有错误

if (webform.weboffice.error==""){

//将服务器返回的图片保存

webform.weboffice.webmsgfilesave(mfilepath+vimgname);

//如果没有错误

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(vlabname);

if (mbookmark){

minlineshares=mbookmark.inlineshapes.addpicture(mfilepath+vimgname);

}else{

minlineshares=webform.weboffice.activedocument.application.selection.inlineshapes.addpicture(mfilepath+vimgname);

}

//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=minlineshares.converttoshape();

mimgshape.select();

mimgshape.pictureformat.transparentbackground = vtrans;

mimgshape.pictureformat.transparencycolor = 16777215;

mimgshape.fill.visible = false;

mimgshape.wrapformat.type = 3;

mimgshape.zorder(vzorder);

}

//如果是excel文档

if (webform.weboffice.filetype==".xls"){

webform.weboffice.activedocument.activesheet.pictures.insert(mfilepath+vimgname).select();

mimgshape =webform.weboffice.activedocument.application.selection.shaperange;

mimgshape.pictureformat.transparentbackground = vtrans;

mimgshape.pictureformat.transparencycolor = 16777215;

mimgshape.fill.visible = false;

mimgshape.zorder(vzorder);

}

}

//清除文件

webform.weboffice.webmsgfileclear(mfilepath+vimgname);

}

statusmsg(webform.weboffice.status+webform.weboffice.error);

}

//套用模版定稿

function webinsertfile()

{

//var mdialogurl = "version/versionlist.asp?recordid="+webform.weboffice.recordid;

//var mobject = new object();

// mobject.fileid = "";

// mobject.result = false;

// window.showmodaldialog(mdialogurl, mobject, "dialogheight:280px; dialogwidth:420px;center:yes;scroll:no;status:no;");

//if (mobject.result){

//取得目录名称

var mfilepath=webform.weboffice.webmsgfilepath;

//取得文件类型

var mfilename=webform.weboffice.recordid+webform.weboffice.filetype;

var mbookrange;

//保存当前文件

webform.weboffice.save(mfilepath+mfilename,true);

//如果没有问题

if (webform.weboffice.error==""){

//清除所有设置变量

webform.weboffice.webmsgtextclear();

//设置command为insertfile

webform.weboffice.websetmsgbyname("command","insertfile");

//设置需要调用的模版名称

webform.weboffice.websetmsgbyname("tempname","模板一.doc");

//发送该信息到服务器上

webform.weboffice.websendmessage();

//如果没有错误

if (webform.weboffice.error==""){

//关闭当前文件

webform.weboffice.close();

//保存模版文件

webform.weboffice.webmsgfilesave(gfilename);

//如果没有错误

if (webform.weboffice.error==""){

//打开模版文件

webform.weboffice.open(gfilename,true);

//查找需要插入的位置(标签)

var mposition=webform.weboffice.webgetmsgbyname(position);

if (mposition.length>0){

mbookrange = webfindbookmarks(mposition);

}else{

mbookrange = webform.weboffice.activedocument.range.application.selection;

}

//将原工作文档插入到该位置

mbookrange.insertfile(mfilepath+mfilename);

}

}else{

alert(webform.weboffice.error);

}

}

//清楚文件

webform.weboffice.webmsgfileclear(mfilepath+mfilename);

statusmsg(webform.weboffice.status)

}

//作用:表格生成及填充

function websetwordtable(){

var mtext="",mname="",icolumns,icells,itable;

//清除所有设置变量

webform.weboffice.webmsgtextclear();

//设置command为wordtable

webform.weboffice.websetmsgbyname("command","wordtable"); //officeserver.asp command=wordtable

//发送到服务器上

webform.weboffice.websendmessage(); //officeserver.asp option=sendmessage

//如果没有错误

if (webform.weboffice.error==""){

//取得列

icolumns = webform.weboffice.webgetmsgbyname("columns");

//取得行

icells = webform.weboffice.webgetmsgbyname("cells");

//生成表格

itable=webform.weboffice.activedocument.tables.add(webform.weboffice.activedocument.application.selection.range,icells,icolumns);

for (var i=1; i<=icolumns; i++)

{

for (var j=1; j<=icells; j++)

{

mname=i.tostring()+j.tostring();

//取得表格内容

mtext=webform.weboffice.webgetmsgbyname(mname);

//填充单元值

itable.columns(i).cells(j).range.text=mtext;

}

}

}

statusmsg(webform.weboffice.status);

}

</script>

</head>

<body bgcolor="#ffffff" onload="load()" onunload="unload()">

<form name="webform" method="post" action="documentsave.asp" onsubmit="return savedocument();">

<input type=hidden name=recordid value="<%=mrecordid%>">

<input type=hidden name=template value="<%=mtemplate%>">

<input type=hidden name=filetype value="<%=mfiletype%>">

<input type=hidden name=edittype value="<%=medittype%>">

<input type=hidden name=htmlpath value="<%=mhtmlpath%>">

<table border=0 cellspacing=0 cellpadding=0 width=100% height=100% align=center class=tbstyle>

<tr>

<td align=right class="tdtitlestyle" width=64>主题</td>

<td class="tdstyle"><input type=text name=subject value="<%=msubject%>" class="iptstyle" onblur="setbookmarks(caption,this.value);" ></td>

</tr>

<tr>

<td align=right class="tdtitlestyle" width=64>作者</td>

<td class="tdstyle"><input type=text name=author value="<%=mauthor%>" class="iptstyle" onblur="setbookmarks(author,this.value);" ></td>

</tr>

<tr>

<td align=right class="tdtitlestyle" width=64>时间</td>

<td class="tdstyle"><input type=text name=filedate value="<%=mfiledate%>" readonly class="iptstyle" ></td>

</tr>

<tr>

<!–td align=right valign=top class="tdtitlestyle" width=64>内容</td–>

<td align=right valign=top class="tdtitlestyle" width=64 hegith=90% >

<br>功能列表<br>

<input type=button class=button value="隐藏痕迹" <%=mdisabled%> <%=mword%> onclick="showrevision(false)">

<input type=button class=button value="显示痕迹" <%=mdisabled%> <%=mword%> onclick="showrevision(true)">

<input type=button class=button value="清除痕迹" <%=mdisabled%> <%=mword%> onclick="webform.weboffice.activedocument.acceptallrevisions();">

<input type=button class=button value="保护文档" <%=mdisabled%> onclick="webprotect(true)">

<input type=button class=button value="解除保护" <%=mdisabled%> onclick="webprotect(false)">

<input type=button class=button value="页面设置" <%=mdisabled%> onclick="webopenpagesetup()">

<input type=button class=button value="打印文档" <%=mdisabled%> onclick="webopenprint()">

<input type=button class=button value="插入图片" <%=mdisabled%> onclick="webopenpicture()">

版本控制

<input type=button class=button value="保存版本" <%=mdisabled%> onclick="websaveversion()">

<input type=button class=button value="打开版本" <%=mdisabled%> onclick="webopenversion()">

服务器交互

<input type=button class=button value="签名印章" <%=mdisabled%> onclick="webopensignature()">

<input type=button class=button value="验证签章" <%=mdisabled%> onclick="webshowsignature()">

<input type=button class=button value="远程图片" <%=mdisabled%> onclick="webinsertimage(image,样品.jpg,true,4);">

<input type=button class=button value="填充模版" <%=mdisabled%> <%=mword%> onclick="loadbookmarks()">

<input type=button class=button value="表格填充" <%=mdisabled%> <%=mword%> onclick="websetwordtable()">

vba调用

<input type=button class=button value="取word内容" <%=mdisabled%> <%=mword%> onclick="webgetwordcontent()">

<input type=button class=button value="写word内容" <%=mdisabled%> <%=mword%> onclick="websetwordcontent()">

<input type=button class=button value="用excel求和" <%=mdisabled%> <%=mexcel%> onclick="webgetexcelcontent()">

<input type=button class=button value="excel保护工作表" <%=mdisabled%> <%=mexcel%> onclick="websheetslock()">

工具栏

<input type=button class=button value="关闭菜单" <%=mdisabled%> onclick="webmenubar(false)">

<input type=button class=button value="显示菜单" <%=mdisabled%> onclick="webmenubar(true)">

<input type=button class=button value="关闭工具栏" <%=mdisabled%> onclick="webtoolbars(false)">

<input type=button class=button value="显示工具栏" <%=mdisabled%> onclick="webtoolbars(true)">

<input type=button class=button value="关闭常用工具" <%=mdisabled%> onclick="webtoolsvisible(standard,false)">

<input type=button class=button value="打开常用工具" <%=mdisabled%> onclick="webtoolsvisible(standard,true)">

<input type=button class=button value="关闭格式工具" <%=mdisabled%> onclick="webtoolsvisible(formatting,false)">

<input type=button class=button value="打开格式工具" <%=mdisabled%> onclick="webtoolsvisible(formatting,true)">

<input type=button class=button value="关闭审阅按钮" <%=mdisabled%> onclick="webtoolsvisible(reviewing,false)">

<input type=button class=button value="打开审阅按钮" <%=mdisabled%> onclick="webtoolsvisible(reviewing,true)">

<input type=button class=button value="关闭打印按钮" <%=mdisabled%> onclick="webtoolsenable(standard,2521,false);">

<input type=button class=button value="打开打印按钮" <%=mdisabled%> onclick="webtoolsenable(standard,2521,true);">

其他调用

<input type=button class=button value="vba套红定稿" <%=mdisabled%> <%=mword%> onclick="webinsertvba();">

<input type=button class=button value="套用模版定稿" <%=mdisabled%> onclick="webinsertfile()">

<input type=button class=button value="保存定稿文件" <%=mdisabled%> onclick="webupdatefile()">

<input type=button class=button value="导入text" <%=mdisabled%> <%=mword%> onclick="webinporttext();">

<input type=button class=button value="导出text" <%=mdisabled%> <%=mword%> onclick="webexporttext();">

</td>

<td class="tdstyle" height=90% >

<table border=0 cellspacing=0 cellpadding=0 width=100% height=100% >

<tr>

<td bgcolor=menu >

<object id="weboffice" width="100%" height="100%" classid="clsid:23739a7e-2004-4d1c-88d5-d50b18f7c347" codebase="<%=mclienturl%>">

<param name="borderstyle" value="1">

<param name="menubar" value="1">

<param name="toolbars" value="1">

</object>

</td>

</tr>

<tr>

<td bgcolor=menu height=20>

<div id=statusbar>状态栏</div>

</td>

</tr>

</table>

</td>

</tr>

</table>

<input type=submit value=" 保存 " <%=mdisabled%> >

<input type=button value=" 返回 " onclick="history.back()"> 注意:只有选择《保存》后,所做的操作才有效!

</form>

</body>

</html>

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » iWebOffice2004调用VBA脚本解释及翻译-ASP教程,脚本编码
分享到: 更多 (0)

相关推荐

  • 暂无文章