金格插件使用心得

时间:2021-01-21 16:33:42

<html>
<head>
<title>金格科技-iWebOffice2009全文批注实例</title>
<link rel='stylesheet' type='text/css' href='test.css'>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript" for=WebOffice event="OnMenuClick(vIndex,vCaption)">
  if (vIndex==1){ 
    WebOpenLocal();     //打开本地文件
  }
  if (vIndex==2){ 
    WebSaveLocal();     //保存本地文件
  }
  if (vIndex==3){
    SaveDocument();     //保存正文到服务器上(不退出)
  }
  if (vIndex==5){ 
    WebOpenSignature(); //签名印章
  }
  if (vIndex==6){ 
    WebShowSignature(); //验证签章
  }
  if (vIndex==8){ 
    WebSaveVersion();   //保存版本
  }
  if (vIndex==9){ 
    WebOpenVersion();   //打开版本
  }
  if (vIndex==11){
    SaveDocument();     //保存正文到服务器上
    webform.submit();   //然后退出
  }
  if (vIndex==13){ 
    WebOpenPrint();     //打印文档
  }
</script>

<script language=javascript for=WebOffice event=OnToolsClick(vIndex,vCaption)>
  //响应工具栏事件
  if (vIndex==11){
    webform.WebOffice.VisibleTools('手写批注',false);       //隐藏或显示iWebOffice工具栏 true显示  false隐藏
  }
  if (vIndex==12){
    webform.WebOffice.VisibleTools('手写批注',true);        //隐藏或显示iWebOffice工具栏 true显示  false隐藏
  } 
  //if (vIndex==-1){webform.WebOffice.Alert(vCaption);}     //在完成相应操作后响应iWebOffice标准工具栏操作铵钮事件,如"手写批注",vCaption="手写批注"
</script>

<script language=javascript>
/*
form表单名称:webform
iWebOffice名称:WebOffice
WebObject文档对象接口,相当于:
如果是Word  文件,WebObject 是Word  VBA的ActiveDocument对象
如果是Excel 文件,WebObject 是Excel VBA的ActiveSheet对象

如:webform.WebOffice.WebObject
*/


//作用:显示操作状态
function StatusMsg(mString){
  webform.StatusBar.value=mString;
}

//作用:载入iWebOffice
function Load(){
  try{
    //以下属性必须设置,实始化iWebOffice
    webform.WebOffice.WebUrl="http://www.goldgrid.com:8080/iWebOffice2009/OfficeServer.jsp";             //WebUrl:系统服务器路径,与服务器文件交互操作,如保存、打开文档,重要文件
    webform.WebOffice.RecordID="1355215366161";            //RecordID:本文档记录编号
    webform.WebOffice.Template="348996119011";            //Template:模板编号
    webform.WebOffice.FileName="1355215366161.doc";            //FileName:文档名称
    webform.WebOffice.FileType=".doc";            //FileType:文档类型  .doc  .xls  .wps
    webform.WebOffice.UserName="演示人";            //UserName:操作用户名,痕迹保留需要
    webform.WebOffice.EditType="2,1";            //EditType:编辑类型  方式一、方式二  <参考技术文档>
                                                            //第一位可以为0,1,2,3 其中:0不可编辑;1可以编辑,无痕迹;2可以编辑,有痕迹,不能修订;3可以编辑,有痕迹,能修订;
                                                            //第二位可以为0,1 其中:0不可批注,1可以批注。可以参考iWebOffice2009的EditType属性,详细参考技术白皮书
    webform.WebOffice.MaxFileSize = 4 * 1024;               //最大的文档大小控制,默认是8M,现在设置成4M。
    webform.WebOffice.Language="CH";         //Language:多语言支持显示选择   CH简体 TW繁体 EN英文
    //webform.WebOffice.ShowWindow = true;                  //控制显示打开或保存文档的进度窗口,默认不显示

    webform.WebOffice.PenColor="#FF0000";                   //PenColor:默认批注颜色
    webform.WebOffice.PenWidth="1";                         //PenWidth:默认批注笔宽
    webform.WebOffice.Print="1";                            //Print:默认是否可以打印:1可以打印批注,0不可以打印批注
    webform.WebOffice.ShowToolBar="1";                      //ShowToolBar:是否显示工具栏:1显示,0不显示

    //以下为自定义工具栏按钮↓ 参数一:Index按钮编号,参数二:Caption按钮显示内容,参数三:Icon图标名称
    webform.WebOffice.AppendTools("11","隐藏手写批注",11);  //在OnToolsClick中的 vIndex=11 ,vCaption="隐藏手写批注";
    webform.WebOffice.AppendTools("12","显示手写批注",12);  //在OnToolsClick中的 vIndex=12 ,vCaption="显示手写批注";
    webform.WebOffice.AppendTools("13","-",0);
    //以上为自定义工具栏按钮↑

    webform.WebOffice.ShowMenu="1";                         //控制整体菜单显示
    //以下为自定义菜单↓
    webform.WebOffice.AppendMenu("1","打开本地文件(&L)");
    webform.WebOffice.AppendMenu("2","保存本地文件(&S)");
    webform.WebOffice.AppendMenu("3","保存远程文件(&U)");
    webform.WebOffice.AppendMenu("4","-");
    webform.WebOffice.AppendMenu("5","签名印章(&Q)");
    webform.WebOffice.AppendMenu("6","验证签章(&Y)");
    webform.WebOffice.AppendMenu("7","-");
    webform.WebOffice.AppendMenu("8","保存版本(&B)");
    webform.WebOffice.AppendMenu("9","打开版本(&D)");
    webform.WebOffice.AppendMenu("10","-");
    webform.WebOffice.AppendMenu("11","保存并退出(&E)");
    webform.WebOffice.AppendMenu("12","-");
    webform.WebOffice.AppendMenu("13","打印文档(&P)");
    //以上为自定义菜单↑
    webform.WebOffice.DisableMenu("宏(&M);选项(&O)...");    //禁止某个(些)菜单项

    //WebSetRibbonUIXML();                                  //控制OFFICE2007的选项卡显示  
    webform.WebOffice.WebOpen();                            //打开该文档    交互OfficeServer  调出文档OPTION="LOADFILE"    调出模板OPTION="LOADTEMPLATE"     <参考技术文档>
    webform.WebOffice.ShowType=1;              //文档显示方式  1:表示文字批注  2:表示手写批注  0:表示文档核稿
    StatusMsg(webform.WebOffice.Status);                    //状态信息
  }catch(e){
    alert(e.description);                                   //显示出错误信息
  }
}

//作用:退出iWebOffice
function UnLoad(){
  try{
    if (!webform.WebOffice.WebClose()){
      StatusMsg(webform.WebOffice.Status);
    }else{
      StatusMsg("关闭文档...");
    }
  }catch(e){
    alert(e.description);
  }
}

//作用:打开文档
function LoadDocument(){
  StatusMsg("正在打开文档...");
  if (!webform.WebOffice.WebOpen()){   //打开该文档    交互OfficeServer的OPTION="LOADFILE"
     StatusMsg(webform.WebOffice.Status);
  }else{
     StatusMsg(webform.WebOffice.Status);
  }
}

//作用:保存文档
function SaveDocument(){
  //webform.WebOffice.WebSetMsgByName("MyDefine1","自定义变量值1");  //设置变量MyDefine1="自定义变量值1",变量可以设置多个  在WebSave()时,一起提交到OfficeServer中
  if (!webform.WebOffice.WebSave()){    //交互OfficeServer的OPTION="SAVEFILE"  注:WebSave()是保存复合格式文件,包括OFFICE内容和手写批注文档;如只保存成OFFICE文档格式,那么就设WebSave(true)
     StatusMsg(webform.WebOffice.Status);
     return false;
  }else{
     StatusMsg(webform.WebOffice.Status);
     return true;
  }
}


//作用:显示或隐藏痕迹[隐藏痕迹时修改文档没有痕迹保留]  true表示隐藏痕迹  false表示显示痕迹
function ShowRevision(mValue){
  if (mValue){
     webform.WebOffice.WebShow(true);
     StatusMsg("显示痕迹...");
  }else{
     webform.WebOffice.WebShow(false);
     StatusMsg("隐藏痕迹...");
  }
}


//作用:显示或隐藏痕迹[隐藏痕迹时修改文档有痕迹保留]  true表示隐藏痕迹  false表示显示痕迹
function ShowRevision2(mValue){
  if (mValue){
     webform.WebOffice.WebObject.ShowRevisions=true;   //显示痕迹
  }else{
     webform.WebOffice.WebObject.ShowRevisions=false;  //隐藏痕迹
  }
}


//作用:获取痕迹
function WebGetRevisions(){
  var Rev = webform.WebOffice.WebObject.Revisions;  //获取痕迹对象
  var Text="";

  for (i = 1;i <= Rev.Count;i++){
    Text=Text +"“"+ Rev.Item(i).Author+"”";
    if (Rev.Item(i).Type=="1"){
      Text=Text + '进行插入:'+Rev.Item(i).Range.Text+"\r\n";
    }else if (Rev.Item(i).Type=="2"){
      Text=Text + '进行删除:'+Rev.Item(i).Range.Text+"\r\n";
    }
 else {
      Text=Text + '进行其他操作,操作内容:“'+Rev.Item(i).Range.Text+ '”;操作:“'+Rev.Item(i).FormatDescription+"”。\r\n";
    }
  }
  alert("痕迹内容:\r\n\r\n"+Text);
}

//作用:刷新文档
function WebReFresh(){
  webform.WebOffice.WebReFresh();
  StatusMsg("文档已刷新...");
}


//作用:打开版本
function WebOpenVersion(){
  webform.WebOffice.WebOpenVersion();   //交互OfficeServer  列出版本OPTION="LISTVERSION"     调出版本OPTION="LOADVERSION"   <参考技术文档>
  StatusMsg(webform.WebOffice.Status);
}

//作用:保存版本
function WebSaveVersion(){
  webform.WebOffice.WebSaveVersion();   //交互OfficeServer的OPTION="SAVEVERSION"
  StatusMsg(webform.WebOffice.Status);

}

//作用:保存当前版本
function WebSaveVersionByFileID(){
  var mText=window.prompt("请输入版本说明:","版本号:V");
  if (mText==null){
     mText="已修改版本.";
  }
  webform.WebOffice.WebSaveVersionByFileID(mText);   //交互OfficeServer的OPTION="SAVEVERSION"  同时带FileID值   <参考技术文档>
  StatusMsg(webform.WebOffice.Status);
}


//作用:填充模板
function LoadBookmarks(){
  StatusMsg("正在填充模扳...");
  if (!webform.WebOffice.WebLoadBookmarks()){   //交互OfficeServer的OPTION="LOADBOOKMARKS"
     StatusMsg(webform.WebOffice.Status);
  }else{
     StatusMsg(webform.WebOffice.Status);
  }
}

//作用:标签管理
function WebOpenBookMarks(){
  try{
    webform.WebOffice.WebOpenBookmarks();   //交互OfficeServer的OPTION="LISTBOOKMARKS"
    StatusMsg(webform.WebOffice.Status);
  }catch(e){alert(e.description);}
}

//作用:设置书签值  vbmName:标签名称,vbmValue:标签值   标签名称注意大小写
function SetBookmarks(vbmName,vbmValue){
  if (!webform.WebOffice.WebSetBookmarks(vbmName,vbmValue)){
     StatusMsg(webform.WebOffice.Status);
  }else{
     StatusMsg(webform.WebOffice.Status);
  }
}

//作用:根据标签名称获取标签值  vbmName:标签名称
function GetBookmarks(vbmName){
  var vbmValue;
  vbmValue=webform.WebOffice.WebGetBookmarks(vbmName);
  return vbmValue;
}

//作用:打印文档
function WebOpenPrint(){
  try{
    webform.WebOffice.WebOpenPrint();
    StatusMsg(webform.WebOffice.Status);
  }catch(e){alert(e.description);}
}


//作用:页面设置
function WebOpenPageSetup(){
   try{
 if (webform.WebOffice.FileType==".doc"){
   webform.WebOffice.WebObject.Application.Dialogs(178).Show();
 }
 if(webform.WebOffice.FileType==".xls"){
   webform.WebOffice.WebObject.Application.Dialogs(7).Show();
 }
   }catch(e){alert(e.description);}
}

//作用:插入图片
function WebOpenPicture(){
  try{
    webform.WebOffice.WebOpenPicture();
    StatusMsg(webform.WebOffice.Status);
  }catch(e){alert(e.description);}
}

//作用:签名印章
function WebOpenSignature(){
  alert("如果你要更安全签章,建议采用金格iSignature电子签章软件进行签章:\r\n下载地址http://www.goldgrid.cn/iSignature/Download.asp\r\n\r\n该软件是支持文档完整性保护、CA证书和数字签名技术的,\r\n是通过了<国家*部和国家保密局>双重认证的安全电子签章产品!");
  try{
    webform.WebOffice.WebOpenSignature();   //交互OfficeServer的 A签章列表OPTION="LOADMARKLIST"    B签章调出OPTION="LOADMARKIMAGE"    C确定签章OPTION="SAVESIGNATURE"    <参考技术文档>
    StatusMsg(webform.WebOffice.Status);
  }catch(e){alert(e.description);}
}

//作用:验证印章A
function WebShowSignature(){
  try{
    webform.WebOffice.WebShowSignature();   //交互OfficeServer的OPTION="LOADSIGNATURE"
    StatusMsg(webform.WebOffice.Status);
  }catch(e){alert(e.description);}
}

//作用:验证印章B
function WebCheckSignature(){
  try{
    var i=webform.WebOffice.WebCheckSignature();   //交互OfficeServer的OPTION="LOADSIGNATURE"
    alert("检测结果:"+i+"\r\n 注释: (=-1 有非法印章) (=0 没有任何印章) (>=1 有多个合法印章)");
    StatusMsg(i);
  }catch(e){alert(e.description);}
}

//作用:存为本地文件
function WebSaveLocal(){
  try{
    webform.WebOffice.WebSaveLocal();
    StatusMsg(webform.WebOffice.Status);
  }catch(e){alert(e.description);}
}

//作用:打开本地文件
function WebOpenLocal(){
  try{
    webform.WebOffice.WebOpenLocal();
    StatusMsg(webform.WebOffice.Status);
  }catch(e){alert(e.description);}
}

//作用:保存为HTML文档
function WebSaveAsHtml(){
  try{
    if (webform.WebOffice.WebSaveAsHtml())   //交互OfficeServer的OPTION="SAVEASHTML"
    {
      webform.HTMLPath.value="HTML/1355215366161.htm";
      window.open("http://www.goldgrid.com:8080/iWebOffice2009/"+ webform.HTMLPath.value);
    }
    StatusMsg(webform.WebOffice.Status);
  }catch(e){alert(e.description);}
}


//作用:保存为文档图片
function WebSaveAsPage(){
  try{
    if (webform.WebOffice.WebSaveImage())   //交互OfficeServer的OPTION="SAVEIMAGE"
    {
      webform.HTMLPath.value="HTMLIMAGE/1355215366161.htm";
      window.open("http://www.goldgrid.com:8080/iWebOffice2009/"+ webform.HTMLPath.value);
    }
    StatusMsg(webform.WebOffice.Status);
  }catch(e){alert(e.description);}
}


//作用:关闭或显示工具 参数1表示工具条名称  参数2为false时,表示关闭  (名称均可查找VBA帮助)
//参数2为true时,表示显示
function WebToolsVisible(ToolName,Visible){
  try{
    webform.WebOffice.WebToolsVisible(ToolName,Visible);
    StatusMsg(webform.WebOffice.Status);
  }catch(e){alert(e.description);}
}


//作用:禁止或启用工具 参数1表示工具条名称  参数2表示工具条铵钮的编号  (名称和编号均可查找VBA帮助)
//参数3为false时,表示禁止  参数3为true时,表示启用
function WebToolsEnable(ToolName,ToolIndex,Enable){
  try{
    webform.WebOffice.WebToolsEnable(ToolName,ToolIndex,Enable);
    StatusMsg(webform.WebOffice.Status);
  }catch(e){alert(e.description);}
}

//作用:保护与解除  参数1为true表示保护文档  false表示解除保护
function WebProtect(value){
  try{
    webform.WebOffice.WebSetProtect(value,"");  //""表示密码为空
  }catch(e){alert(e.description);}
}

//作用:允许与禁止拷贝功能  参数1为true表示允许拷贝  false表示禁止拷贝
function WebEnableCopy(value){
  try{
    webform.WebOffice.CopyType=value;
  }catch(e){alert(e.description);}
}


//作用:插入远程服务器图片
function WebInsertImage(){
  try{
    webform.WebOffice.WebInsertImage('Image','GoldgridLogo.jpg',true,4);   //交互OfficeServer的OPTION="INSERTIMAGE"  参数1表示标签名称  参数2表示图片文件名  参数3为true透明  false表示不透明  参数4为4表示浮于文字上方  5表示衬于文字下方
    StatusMsg(webform.WebOffice.Status);
  }catch(e){alert(e.description);}
}


//作用:下载服务器文件到本地
function WebGetFile(){
  if (webform.WebOffice.WebGetFile("c:\\WebGetFile.doc","DownLoad.doc")){   //交互OfficeServer的OPTION="GETFILE"  参数1表示本地路径  参数2表示服务器文件名称
    StatusMsg(webform.WebOffice.Status);
  }else{
    StatusMsg(webform.WebOffice.Status);
  }
  alert(webform.WebOffice.Status+"\r\n"+"文件放在c:\\WebGetFile.doc");
}


//作用:上传本地文件到服务器
function WebPutFile(){
  var mLocalFile=webform.WebOffice.WebOpenLocalDialog();
  if (mLocalFile!=""){
    alert(mLocalFile);
    if (webform.WebOffice.WebPutFile(mLocalFile,"Test.doc")){   //交互OfficeServer的OPTION="PUTFILE"  参数1表示本地路径,可以任何格式文件  参数2表示服务器文件名称
      StatusMsg(webform.WebOffice.Status);
    }else{
      StatusMsg(webform.WebOffice.Status);
    }
    alert(webform.WebOffice.Status);
  }
}


//作用:打开远程文件
function WebDownLoadFile(){
  mResult=webform.WebOffice.WebDownLoadFile("http://www.goldgrid.com/Images/abc.doc","c:\\abc.doc");
  if (mResult){
    webform.WebOffice.WebOpenLocalFile("c:\\abc.doc");
    alert("成功");
  }else{
    alert("失败");
  }
}

//作用:取得服务器端时间,设置本地时间  [V6.0.1.5以上支持]
function WebDateTime(){
  mResult=webform.WebOffice.WebDateTime(true);   //交互OfficeServer的OPTION="DATETIME"   true表示返回并设置本地时间为服务器时间;false表示仅返回服务器时间
  alert("提示:已经设置本地时间为 "+mResult);    //该功能主要用于在痕迹保留时读取服务器时间
}


//作用:表格生成及填充
function WebSetWordTable(){
  var mText="",mName="",iColumns,iCells,iTable;
  //设置COMMAND为WORDTABLE
  webform.WebOffice.WebSetMsgByName("COMMAND","WORDTABLE");   //设置变量COMMAND="WORDTABLE",在WebSendMessage()时,一起提交到OfficeServer中
  //发送到服务器上
  //如果没有错误
  if (webform.WebOffice.WebSendMessage()){                //交互OfficeServer的OPTION="SENDMESSAGE"
 iColumns = webform.WebOffice.WebGetMsgByName("COLUMNS");  //取得列
 iCells = webform.WebOffice.WebGetMsgByName("CELLS");      //取得行
 iTable=webform.WebOffice.WebObject.Tables.Add(webform.WebOffice.WebObject.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);  //取得OfficeServer中的表格内容
  iTable.Columns(i).Cells(j).Range.Text=mText;    //填充单元值
    }
 }
   }
   StatusMsg(webform.WebOffice.Status);
}


//作用:获取文档Txt正文
function WebGetWordContent(){
  try{
    alert(webform.WebOffice.WebObject.Content.Text);
  }catch(e){alert(e.description);}
}

//作用:写Word内容
function WebSetWordContent(){
  var mText=window.prompt("请输入内容:","测试内容");
  if (mText==null){
     return (false);
  }
  else
  {
     //下面为显示选中的文本
     //alert(webform.WebOffice.WebObject.Application.Selection.Range.Text);
     //下面为在当前光标出插入文本
     webform.WebOffice.WebObject.Application.Selection.Range.Text= mText+"\n";
     //下面为在第一段后插入文本
     //webform.WebOffice.WebObject.Application.ActiveDocument.Range(1).Text=(mText);
  }
}


//作用:打印黑白文档
function WebWordPrintBlackAndWhile(){
   var i,n;

   //图片变黑白
   i=0;
   n=webform.WebOffice.WebObject.Shapes.Count;
   for (var i=1; i<=n; i++)
   {
      webform.WebOffice.WebObject.Shapes.Item(i).PictureFormat.ColorType=3;
   }
   i=0;
   n=webform.WebOffice.WebObject.InlineShapes.Count;
   for (var i=1; i<=n; i++)
   {
      webform.WebOffice.WebObject.InlineShapes.Item(i).PictureFormat.ColorType=3;
   }

   //文字变黑白
   webform.WebOffice.WebObject.Application.Selection.WholeStory();
   webform.WebOffice.WebObject.Application.Selection.Range.Font.Color = 0;
}

//作用:用Excel求和
function WebGetExcelContent(){
    webform.WebOffice.WebObject.Application.Sheets(1).Select;
    webform.WebOffice.WebObject.Application.Range("C5").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "126";
    webform.WebOffice.WebObject.Application.Range("C6").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "446";
    webform.WebOffice.WebObject.Application.Range("C7").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "556";
    webform.WebOffice.WebObject.Application.Range("C5:C8").Select;
    webform.WebOffice.WebObject.Application.Range("C8").Activate;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)";
    webform.WebOffice.WebObject.Application.Range("D8").Select;
    alert(webform.WebOffice.WebObject.Application.Range("C8").Text);
}


//作用:保护工作表单元
function WebSheetsLock(){
    webform.WebOffice.WebObject.Application.Sheets(1).Select;

    webform.WebOffice.WebObject.Application.Range("A1").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "产品";
    webform.WebOffice.WebObject.Application.Range("B1").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "价格";
    webform.WebOffice.WebObject.Application.Range("C1").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "详细说明";
    webform.WebOffice.WebObject.Application.Range("D1").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "库存";
    webform.WebOffice.WebObject.Application.Range("A2").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "书签";
    webform.WebOffice.WebObject.Application.Range("A3").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "毛笔";
    webform.WebOffice.WebObject.Application.Range("A4").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "钢笔";
    webform.WebOffice.WebObject.Application.Range("A5").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "尺子";

    webform.WebOffice.WebObject.Application.Range("B2").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "0.5";
    webform.WebOffice.WebObject.Application.Range("C2").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "樱花";
    webform.WebOffice.WebObject.Application.Range("D2").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "300";

    webform.WebOffice.WebObject.Application.Range("B3").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "2";
    webform.WebOffice.WebObject.Application.Range("C3").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "狼毫";
    webform.WebOffice.WebObject.Application.Range("D3").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "50";

    webform.WebOffice.WebObject.Application.Range("B4").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "3";
    webform.WebOffice.WebObject.Application.Range("C4").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "蓝色";
    webform.WebOffice.WebObject.Application.Range("D4").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "90";

    webform.WebOffice.WebObject.Application.Range("B5").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "1";
    webform.WebOffice.WebObject.Application.Range("C5").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "20cm";
    webform.WebOffice.WebObject.Application.Range("D5").Select;
    webform.WebOffice.WebObject.Application.ActiveCell.FormulaR1C1 = "40";

    //保护工作表
    webform.WebOffice.WebObject.Application.Range("B2:D5").Select;
    webform.WebOffice.WebObject.Application.Selection.Locked = false;
    webform.WebOffice.WebObject.Application.Selection.FormulaHidden = false;
    webform.WebOffice.WebObject.Application.ActiveSheet.Protect(true,true,true);

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

//作用:VBA套红
function WebInsertVBA(){

 //画线
 var object=webform.WebOffice.WebObject;
 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.WebObject.Range(0,0);
 myRange.Select();

 var mtext="★";
 webform.WebOffice.WebObject.Application.Selection.Range.InsertAfter (mtext+"\n");
    var myRange=webform.WebOffice.WebObject.Paragraphs(1).Range;
    myRange.ParagraphFormat.LineSpacingRule =1.5;
    myRange.font.ColorIndex=6;
    myRange.ParagraphFormat.Alignment=1;
    myRange=webform.WebOffice.WebObject.Range(0,0);
 myRange.Select();
 mtext="金格发[2003]154号";
 webform.WebOffice.WebObject.Application.Selection.Range.InsertAfter (mtext+"\n");
 myRange=webform.WebOffice.WebObject.Paragraphs(1).Range;
 myRange.ParagraphFormat.LineSpacingRule =1.5;
 myRange.ParagraphFormat.Alignment=1;
 myRange.font.ColorIndex=1;

 mtext="金格电子政务文件";
 webform.WebOffice.WebObject.Application.Selection.Range.InsertAfter (mtext+"\n");
 myRange=webform.WebOffice.WebObject.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.WebObject.Paragraphs(1).Range;
 webform.WebOffice.WebObject.PageSetup.LeftMargin=70;
 webform.WebOffice.WebObject.PageSetup.RightMargin=70;
 webform.WebOffice.WebObject.PageSetup.TopMargin=70;
 webform.WebOffice.WebObject.PageSetup.BottomMargin=70;
}

//作用:模版套红功能
function WebUseTemplate(){
  var mDialogUrl = "Template/TemplateForm.jsp";
  var mObject = new Object();
  mObject.Template = "";
  window.showModalDialog(mDialogUrl, mObject, "dialogHeight:200px; dialogWidth:360px;center:yes;scroll:no;status:no;");

  //判断用户是否选择模板
  if (mObject.Template==""){
    StatusMsg("取消套用模板");
    return false;
  }else{
    if(WebAcceptAllRevisions()==false){                         //清除正文痕迹的目的是为了避免痕迹状态下出现内容异常问题。
      StatusMsg("清除正文痕迹失败,套红中止");
      return false;     
    }
    SaveDocument();                                             //保存当前编辑的文档
    webform.WebOffice.WebSetMsgByName("COMMAND","INSERTFILE");  //设置变量COMMAND="INSERTFILE",在WebLoadTemplate()时,一起提交到OfficeServer中     <参考技术文档>
    webform.WebOffice.Template=mObject.Template;                //全局变量Template赋值,此示例读取服务器目录中模板,如读取数据库中模板,Template值为数据库中的模板编号,则上句代码不需要,如Template="1050560363767",模板名称为“Word公文模板”,注:模板中有要标签Content,区分大小写,可以自行修改
    webform.WebOffice.EditType="1";                             //控制为不保留痕迹的状态
    if (webform.WebOffice.WebLoadTemplate()){                   //交互OfficeServer的OPTION="LOADTEMPLATE"
      //SetBookmarks("Title","关于中间件研发工作会议通知");     //填充模板其它基本信息,如标题,主题词,文号,主送机关等
      if (webform.WebOffice.WebInsertFile()){                   //填充公文正文   交互OfficeServer的OPTION="INSERTFILE"
        StatusMsg("模板套红成功");
        return true;
      }else{
        StatusMsg(webform.WebOffice.Status);
        return false;
      }
    }else{
      StatusMsg(webform.WebOffice.Status);
      return false;
    }
  }
}

//作用:保存定稿文件
function WebUpdateFile(){
  if (webform.WebOffice.WebUpdateFile()){                //交互OfficeServer的OPTION="UPDATEFILE",类似WebSave()或WebSaveVersion()方法
     StatusMsg(webform.WebOffice.Status);
  }else{
     StatusMsg(webform.WebOffice.Status);
  }
}

 

//打印份数控制
function WebCopysCtrlPrint(){
  var mCopies,objPrint;
  objPrint = webform.WebOffice.WebObject.Application.Dialogs(88);     //打印设置对话框
  if (objPrint.Display==-1){
    mCopies=objPrint.NumCopies;    //取得需要打印份数
    webform.WebOffice.WebSetMsgByName("COMMAND","COPIES");
    webform.WebOffice.WebSetMsgByName("OFFICEPRINTS",mCopies.toString());   //设置变量OFFICEPRINTS的值,在WebSendMessage()时,一起提交到OfficeServer中
    webform.WebOffice.WebSendMessage();                               //交互OfficeServer的OPTION="SENDMESSAGE"
    if (webform.WebOffice.Status=="1") {
      alert("可以允许打印,注:该实例设置总文档打印份数2份");
      objPrint.Execute;
    }else{
      alert("已超出允许的打印份数");
      return false;
    }
  }
}


//作用:导入Text
function WebInportText(){
    var mText;
    webform.WebOffice.WebSetMsgByName("COMMAND","INPORTTEXT");  //设置变量COMMAND="INPORTTEXT",在WebSendMessage()时,一起提交到OfficeServer中
    if (webform.WebOffice.WebSendMessage()){                    //交互OfficeServer的OPTION="SENDMESSAGE"
      mText=webform.WebOffice.WebGetMsgByName("CONTENT");       //取得OfficeServer传递的变量CONTENT值
      webform.WebOffice.WebObject.Application.Selection.Range.Text=mText;
      alert("导入文本成功");
    }
    StatusMsg(webform.WebOffice.Status);
}


//作用:导出Text
function WebExportText(){
    var mText=webform.WebOffice.WebObject.Content.Text;
    webform.WebOffice.WebSetMsgByName("COMMAND","EXPORTTEXT");  //设置变量COMMAND="EXPORTTEXT",在WebSendMessage()时,一起提交到OfficeServer中
    webform.WebOffice.WebSetMsgByName("CONTENT",mText);         //设置变量CONTENT="mText",在WebSendMessage()时,一起提交到OfficeServer中,可用于实现全文检索功能,对WORD的TEXT内容进行检索
    if (webform.WebOffice.WebSendMessage()){                    //交互OfficeServer的OPTION="SENDMESSAGE"
      alert("导出文本成功");
    }
    StatusMsg(webform.WebOffice.Status);
}


//作用:获取文档页数
function WebDocumentPageCount(){
    if (webform.WebOffice.FileType==".doc"){
 var intPageTotal = webform.WebOffice.WebObject.Application.ActiveDocument.BuiltInDocumentProperties(14);
 alert("文档页总数:"+intPageTotal);
    }
    if (webform.WebOffice.FileType==".wps"){
 var intPageTotal = webform.WebOffice.WebObject.PagesCount();
 alert("文档页总数:"+intPageTotal);
    }
}

//作用:签章锁定文件功能
function WebSignatureAtReadonly(){
  webform.WebOffice.WebSetProtect(false,"");                  //解除文档保护
  webform.WebOffice.WebSetRevision(false,false,false,false);  //设置文档痕迹保留的状态  参数1:不显示痕迹  参数2:不保留痕迹  参数3:不打印时有痕迹  参数4:不显痕迹处理工具
  try{
    webform.WebOffice.WebOpenSignature();                     //交互OfficeServer的 A签章列表OPTION="LOADMARKLIST"    B签章调出OPTION="LOADMARKIMAGE"    C确定签章OPTION="SAVESIGNATURE"    <参考技术文档>    文档中要定义标签Manager,可以自行修改标签名称
    StatusMsg(webform.WebOffice.Status);
  }catch(e){alert(e.description);}
  webform.WebOffice.WebSetProtect(true,"");                   //锁定文档
}

//作用:客户端和服务器端信息信息交互
function WebSendInformation(){
  var info = window.prompt("请输入要传到服务器处理页面上的内容:","参数内容");
  if (info==null){return false}

  webform.WebOffice.WebSetMsgByName("COMMAND","SELFINFO");  //设置变量COMMAND="SELFINFO",用来在服务器端做判断,以进入处理自定义参数传递的代码。
  webform.WebOffice.WebSetMsgByName("TESTINFO",info);   //自定义的一个参数"TESTINFO",将info变量的信息设置到信息包中,以便传到后台。
  if (webform.WebOffice.WebSendMessage()){      //向后台发信息包。交互OfficeServer的OPTION="SENDMESSAGE"。
    info = webform.WebOffice.WebGetMsgByName("RETURNINFO");  //如果交互成功,接受服务器端返回的信息。
 alert(info);
  }
  else{
    StatusMsg(webform.WebOffice.Status);
  }
}

//判断编辑器
function GetEditer(){
  if(webform.WebOffice.WebApplication(".doc")){     //WORD
    alert("存在WORD编辑器");
  }
  if(webform.WebOffice.WebApplication(".xls")){     //EXCEL
    alert("存在EXCEL编辑器");
  }
  if(webform.WebOffice.WebApplication(".wps")){     //金山WPS
    alert("存在WPS编辑器");
  }
  if(webform.WebOffice.WebApplication(".et")){      //金山表格
    alert("存在ET编辑器");
  }
  //参数还可以是".ppt"、".vso"......
}

//设置OFFICE2007的选项卡显示
function WebSetRibbonUIXML(){
  webform.WebOffice.RibbonUIXML = '' +
  '<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">' +
  '  <ribbon startFromScratch="false">'+                    //不显示所有选项卡控制 false显示选项卡;true不显示选项卡
  '    <tabs>'+
  '      <tab idMso="TabReviewWord" visible="false">' +     //关闭视图工具栏
  '      </tab>'+
  '      <tab idMso="TabInsert" visible="false">' +         //关闭插入工具栏
  '      </tab>'+
  '      <tab idMso="TabHome" visible="false">' +           //关闭开始工具栏
  '      </tab>'+
  '    </tabs>' +
  '  </ribbon>' +
  '</customUI>';

/*
    最常用的内置选项卡名称
    选项卡名称      idMso(Excel)      idMso(Word)       idMso(Access)
    开始            TabHome             TabHome             TabHomeAccess
    插入            TabInsert           TabInsert           (none)
    页面布局        TabPageLayoutExcel  TabPageLayoutWord   (none)
    公式            TabFormulas         (none)            (none)
    数据            TabData             (none)            (none)
    视图            TabReview           TabReviewWord       (none)
    创建            (none)            (none)            TabCreate
    外部数据        (none)            (none)            TabExternalData
    数据库工具      (none)            (none)            TabDatabaseTools
*/

/*
    iWebOffice控件的RibbonUIXML属性,是基于OFFICE2007的RibbonX的应用。关于RibbonX的相关资料,需要自己另行查询。
*/
}

//读取注册表(十进制)
function WebReadRegString(){
  try{
    webform.WebOffice.WebOpenKey('HKEY_CURRENT_USER', 'Software\\Microsoft\\Office\\12.0\\Common\\Toolbars');    //打开注册表
    var Content = webform.WebOffice.WebReadString('AddNewString');                                          //读取注册表
    webform.WebOffice.WebCloseKey();                                                                        //关闭注册表
    alert(Content);
  }
  catch(e){
    alert(e.description);
    webform.WebOffice.WebCloseKey();
  }
}

//写入注册表(十进制)
function WebWriteRegString(){
  try{
    webform.WebOffice.WebOpenKey('HKEY_CURRENT_USER', 'Software\\Microsoft\\Office\\12.0\\Common\\Toolbars');    //打开注册表
    var result = webform.WebOffice.WebWriteString('AddNewString','1234');                                   //写入注册表
    webform.WebOffice.WebCloseKey();                                                                        //关闭注册表
    if (result) {
      alert("写入注册表成功!");
    }else{
      alert("写入注册表失败!");
    }
  }
  catch(e){
    alert("写入注册表失败!原因:"+e.description);
    webform.WebOffice.WebCloseKey();
  }
}

//读取注册表(十六进制)
function WebReadRegInteger(){
  try{
    webform.WebOffice.WebOpenKey('HKEY_CURRENT_USER', 'Software\\Microsoft\\Office\\12.0\\Common\\Toolbars');    //打开注册表
    var Content = webform.WebOffice.WebReadInteger('AddNewInteger');                                        //读取注册表
    webform.WebOffice.WebCloseKey();                                                                        //关闭注册表
    alert(Content);
  }
  catch(e){
    alert(e.description);
    webform.WebOffice.WebCloseKey();
  }
}

//写入注册表(十六进制)
function WebWriteRegInteger(){
  try{
    webform.WebOffice.WebOpenKey('HKEY_CURRENT_USER', 'Software\\Microsoft\\Office\\12.0\\Common\\Toolbars');    //打开注册表
    var result = webform.WebOffice.WebWriteInteger('AddNewInteger',5678);                                   //写入注册表
    webform.WebOffice.WebCloseKey();                                                                        //关闭注册表
    if (result) {
      alert("写入注册表成功!");
    }else{
      alert("写入注册表失败!");
    }
  }
  catch(e){
    alert(e.description);
    webform.WebOffice.WebCloseKey();
  }
}

//接受文档中全部痕迹
function WebAcceptAllRevisions(){
  webform.WebOffice.WebObject.Application.ActiveDocument.AcceptAllRevisions();
  var mCount = webform.WebOffice.WebObject.Application.ActiveDocument.Revisions.Count;
  if(mCount>0){
    return false;
  }else{
    return true;
  }
}

</script>
</head>
<body bgcolor="#ffffff" onLoad="Load()" onUnload="UnLoad()">  <!--引导和退出iWebOffice-->
  <form name="webform" method="post" action="DocumentSave.jsp" onSubmit="return SaveDocument();">  <!--保存iWebOffice后提交表单信息-->
    <input type="hidden" name="RecordID" value="1355215366161">
    <input type="hidden" name="Template" value="348996119011">
    <input type="hidden" name="FileType" value=".doc">
    <input type="hidden" name="EditType" value="2,1">
    <input type="hidden" name="HTMLPath" value="">
    <table border=0 cellspacing='0' cellpadding='0' width=100% height=100% align=center class=TBStyle>
      <tr>
        <td height="24" align=center class="TDTitleStyle">主 题</td>
        <td class="TDStyle">&nbsp;<input type="text" name="Subject" value="请输入主题" class="IptStyle" onBlur="SetBookmarks('Caption',this.value);" style="WIDTH:75%" title="此处有一个自动设置标签的功能:输入“主题”内容光标移开后,文档中“Caption”标签处内容会自动修改。">&nbsp;|←请输入主题</td>
        <td width="400" rowspan="4" class="TDTitleStyle" align="center"><input type="submit"  value="保存文档">&nbsp;<input type=button onClick="history.back()" value="返回列表"><br><br>注意:只有进行“保存文档”后,所做的操作才有效!</td>
      </tr>
      <tr>
        <td height="24" align=center class="TDTitleStyle">作 者</td>
        <td class="TDStyle">&nbsp;<input type=text name=Author value="演示人对的" class="IptStyle"  style="WIDTH:75%">&nbsp;|←请输入作者</td>
      </tr>
      <tr>
        <td height="24" align=center class="TDTitleStyle">时 间</td>
        <td class="TDStyle">&nbsp;<input type=text name=FileDate value="2012-12-11 16:42:46.0" readonly class="IptStyleBlack" style="WIDTH:75%">&nbsp;|←编辑时间</td>
      </tr>
      <tr>
        <td height="24" align=center class="TDTitleStyle">状 态</td>
        <td class="TDStyle">&nbsp;<input type=text name=StatusBar readonly class="IptStyleBlack" style="WIDTH:75%">&nbsp;|←状态信息</td>
      </tr>
      <tr width="100" height="28">
        <td align="center" class="TDTitleMiddleStyle">
          <font color="#FF0000"><b>↓功能列表↓</b></font>
     </td>
        <td height="100%" colspan="2" rowspan="12" align="right" valign="top" class="TDStyle" hegith="90%">
          <table border="0" cellspacing="0" cellpadding="0" width="100%" height="100%">
            <tr>
              <td bgcolor="menu" height="98%" valign="top">
                <!--调用iWebPicture,注意版本号,可用于升级-->
       <script src="iWebOffice2009.js"></script>
              </td>
            </tr>
          </table>
        </td>
      </tr>
      <tr width="100">
        <td align="center" valign=top class="TDTitleStyle" width="100" height="90%">
          <input type=button class=SideButton value="文字批注" onclick='webform.WebOffice.ShowType=1;'>
          <input type=button class=SideButton value="手写批注" onclick='webform.WebOffice.ShowType=2;'>
          <input type=button class=SideButton value="文档核稿" onclick='webform.WebOffice.ShowType=0;'>
          <input type=button class=SideButton value="新建文件" onclick='webform.WebOffice.CreateFile();'>
          <input type=button class=SideButton value="重新批注" onclick='webform.WebOffice.ReWrite();'>
          <input type=button class=SideButton value="全屏显示" onclick='webform.WebOffice.FullSize();'>
          <input type=button class=SideButton value="关闭工具栏" onClick="webform.WebOffice.ShowToolBar=0">
          <input type=button class=SideButton value="打开工具栏" onClick="webform.WebOffice.ShowToolBar=1">
          <input type=button class=SideButton value="禁止打开文件" onClick="webform.WebOffice.DisableTools('打开文件',true)">  <!--true禁止,false启用-->
          <input type=button class=SideButton value="隐藏新建文件" onClick="webform.WebOffice.VisibleTools('新建文件',false)"> <!--true显示,false隐藏-->
          <input type=button class=SideButton value="隐藏全屏" onClick="webform.WebOffice.VisibleTools('全屏',false)"> <!--true显示,false隐藏-->
          <input type=button class=SideButton value="显示全屏" onClick="webform.WebOffice.VisibleTools('全屏',true)"> <!--true显示,false隐藏-->
          <input type=button class=SideButton value="显示版本" onClick="alert('当前控件版本为:'+webform.WebOffice.VersionEx()+webform.WebOffice.Version());">
     </td>
      </tr>
      <tr width="100">
        <td align="center" class="TDTitleMiddleStyle" height="28">
          <font color="#FF0000"><b>↓普通功能↓</b></font>
     </td>
      </tr>
      <tr width="100">
        <td align="center" valign=top class="TDTitleStyle" width="100">
          <input type=button class=SideButton value="显示痕迹"   onClick="ShowRevision(true)">
          <input type=button class=SideButton value="隐藏痕迹"   onClick="ShowRevision(false)">
          <input type=button class=SideButton value="获取痕迹"   onClick="WebGetRevisions()">
          <input type=button class=SideButton value="清除痕迹"   onClick="WebAcceptAllRevisions()">
          <input type=button class=SideButton value="保护文档"  onClick="WebProtect(true)">
          <input type=button class=SideButton value="解除保护"  onClick="WebProtect(false)">
          <input type=button class=SideButton value="允许拷贝"  onClick="WebEnableCopy(true)">
          <input type=button class=SideButton value="禁止拷贝"  onClick="WebEnableCopy(false)">
          <input type=button class=SideButton value="页面设置"   onClick="WebOpenPageSetup()">
          <input type=button class=SideButton value="打印文档"   onClick="WebOpenPrint()">
          <input type=button class=SideButton value="插入图片"   onClick="WebOpenPicture()">
          <input type=button class=SideButton value="重调文档"   onClick="LoadDocument()">
          <input type=button class=SideButton value="刷新文档"   onClick="WebReFresh()">
          <input type=button class=SideButton value="打开本地文件"  onClick="WebOpenLocal()">
          <input type=button class=SideButton value="存为本地文件"  onClick="WebSaveLocal()">
          <input type=button class=SideButton value="判断编辑器" onClick="GetEditer()">
          <input type=button class=SideButton value="写入注册表" onClick="WebWriteRegString()">
          <input type=button class=SideButton value="读取注册表" onClick="WebReadRegString()">
          <input type=button class=SideButton value="写入注册表16" onClick="WebWriteRegInteger()">
          <input type=button class=SideButton value="读取注册表16" onClick="WebReadRegInteger()">
     </td>
      </tr>
      <tr width="100">
        <td align="center" class="TDTitleMiddleStyle" height="28">
          <font color="#FF0000"><b>↓交互功能↓</b></font>
     </td>
      </tr>
      <tr width="100">
        <td align="center" valign=top class="TDTitleStyle" width="100">
          <input type=button class=SideButton value="签名印章"  onClick="WebOpenSignature()">
          <input type=button class=SideButton value="验证签章[A]"   onclick="WebShowSignature()">
          <input type=button class=SideButton value="验证签章[B]"   onclick="WebCheckSignature()">
          <input type=button class=SideButton value="印章彩色" onClick="webform.WebOffice.SignatureColor(true);">
          <input type=button class=SideButton value="印章黑白" onClick="webform.WebOffice.SignatureColor(false);">
          <input type=button class=SideButton value="打开标签"     onclick="WebOpenBookMarks()">
          <input type=button class=SideButton value="填充模版标签"     onclick="LoadBookmarks()">
          <input type=button class=SideButton value="保存版本"   onclick="WebSaveVersion()">
          <input type=button class=SideButton value="打开版本"   onclick="WebOpenVersion()">
          <input type=button class=SideButton value="保存当前版本"   onclick="WebSaveVersionByFileID()">
          <input type=button class=SideButton value="保存定稿版本"   onclick="WebUpdateFile()">
          <input type=button class=SideButton value="存为HTML"   onclick="WebSaveAsHtml()">
          <input type=button class=SideButton value="存为HTML图片"     onclick="WebSaveAsPage()">
          <input type=button class=SideButton value="模版套红"    onClick="WebUseTemplate()">
          <input type=button class=SideButton value="VBA套红定稿"     onclick="WebInsertVBA();">
          <input type=button class=SideButton value="打印控制管理"    onClick="WebCopysCtrlPrint()">
          <input type=button class=SideButton value="导入数据内容"     onclick="WebInportText();">
          <input type=button class=SideButton value="导出文档内容"     onclick="WebExportText();">
          <input type=button class=SideButton value="插入远程表格"     onclick="WebSetWordTable()">
          <input type=button class=SideButton value="插入远程图片"     onclick="WebInsertImage()">
          <input type=button class=SideButton value="下载服务器文件"   onClick="WebGetFile()">
          <input type=button class=SideButton value="上传文件到服务器"   onClick="WebPutFile()">
          <input type=button class=SideButton value="打开远程文件"     onclick="WebDownLoadFile()">
          <input type=button class=SideButton value="设置本地时间"    onclick="WebDateTime()">
          <input type=button class=SideButton value="信息传递"    onclick="WebSendInformation()">
     </td>
      </tr>
      <tr width="100">
        <td align="center" class="TDTitleMiddleStyle" height="28">
          <font color="#FF0000"><b>↓VBA调用↓</b></font>
     </td>
      </tr>
      <tr width="100">
        <td align="center" valign=top class="TDTitleStyle" width="100">
          <input type=button class=SideButton value="取Word内容"     onclick="WebGetWordContent()">
      <input type=button class=SideButton value="写Word内容"     onclick="WebSetWordContent()">
          <input type=button class=SideButton value="WORD禁止拖动"   onClick="webform.WebOffice.WebObject.Application.Options.AllowDragAndDrop=false;">  <!--false禁止拖动  true允许拖动-->
          <input type=button class=SideButton value="打印黑白"   onClick="WebWordPrintBlackAndWhile();">
          <input type=button class=SideButton value="插入页眉"   onClick="webform.WebOffice.WebObject.ActiveWindow.ActivePane.View.SeekView=9;">
          <input type=button class=SideButton value="插入页码"   onClick="webform.WebOffice.WebObject.Application.Dialogs(294).Show();">
          <input type=button class=SideButton value="用Excel求和"   disabled onClick="WebGetExcelContent()">
          <input type=button class=SideButton value="锁定工作表"    disabled onClick="WebSheetsLock()">
          <input type=button class=SideButton value="EXCEL禁止拖动"  disabled onClick=".Application.CellDragAndDrop=false;">  <!--false禁止拖动  true允许拖动-->
          <input type=button class=SideButton value="文档页数"     onclick="WebDocumentPageCount()">
      </tr>
      <tr width="100">
        <td align="center" class="TDTitleMiddleStyle" height="28">
          <font color="#FF0000"><b>↓工具栏控制↓</b></font>
     </td>
      </tr>
      <tr width="100">
        <td align="center" valign=top class="TDTitleStyle" width="100">     
          <input type=button class=SideButton value="关闭常用工具"   onclick="WebToolsVisible('Standard',false)">
          <input type=button class=SideButton value="打开常用工具"   onclick="WebToolsVisible('Standard',true)">
          <input type=button class=SideButton value="关闭格式工具"   onclick="WebToolsVisible('Formatting',false)">
          <input type=button class=SideButton value="打开格式工具"   onclick="WebToolsVisible('Formatting',true)">
          <input type=button class=SideButton value="关闭打印按钮"   onclick="WebToolsEnable('Standard',2521,false);">
          <input type=button class=SideButton value="打开打印按钮"   onclick="WebToolsEnable('Standard',2521,true);">
          <input type=button class=SideButton value="关闭文档"   onclick="webform.WebOffice.WebClose();">
      </tr>
      <tr width="100">
        <td align="center" class="TDTitleMiddleStyle" height="28">
          <font color="#FF0000"><b>↓其他调用↓</b></font>
     </td>
      </tr>
      <tr width="100">
        <td align="center" valign=top class="TDTitleStyle" width="100">     
          <input type=button class=SideButton value="签章锁定文件"   onclick="WebSignatureAtReadonly();">
      </tr>
    </table>
  </form>
</body>
</html>