js操作word套红

2023-05-16

//(标准版)

//隐藏或显示修订痕迹
function jsShowTrack(value)
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").ShowRevisions = value;
}

//接受所有修订,清除痕迹
function jsAcceptAllRevisions()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").AcceptAllRevisions();
}
//获取并显示所有痕迹
function jsGetAllRevisions()
{
var i;
var str="";
for (i = 1;i <=document.all("SOAOfficeCtrl").Document.Revisions.Count;i++)
{
str=str + document.all("SOAOfficeCtrl").Document.Revisions.Item(i).Author;
if (document.all("SOAOfficeCtrl").Document.Revisions.Item(i).Type=="1")
{
str=str + ' 插入:'+document.all("SOAOfficeCtrl").Document.Revisions.Item(i).Range.Text+"\r\n";
}
else
{
str=str + ' 删除:'+document.all("SOAOfficeCtrl").Document.Revisions.Item(i).Range.Text+"\r\n";
}
}
alert("当前文档的所有修改痕迹如下:\r\n"+str);
}
//插入本地印章
function jsInsertLocalSeal()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").InsertSealFromLocal();
}
//插入手写签名
function jsInsertSignature()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
{
//document.all("SOAOfficeCtrl").InsertSealFromURL( "images/sign02.esf");//不通过选择,直接插入指定签名
var mDialogUrl = "images/selectSignature.htm";
var mObject = new Object();
mObject.SelectValue = "";
window.showModalDialog(mDialogUrl, mObject, "dialogHeight:180px; dialogWidth:340px;center:yes;scroll:no;status:no;");
//判断用户是否选择签名
if (mObject.SelectValue!="")
{
document.all("SOAOfficeCtrl").InsertSealFromURL("images/" + mObject.SelectValue);
}
}
}
//全文手写批注
function jsStartHandDraw()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").StartHandDraw();
}
//分层显示全文手写批注
function jsShowHandDrawDispBar()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").ShowHandDrawDispBar();
}
//给文档添加数字签名
function jsAddDigitalSignature()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
//document.all("SOAOfficeCtrl").AddDigitalSignature();
alert("标准版无数字签名功能。");
}

//验证数字签名
function jsValidateDigitalSignatures()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
//document.all("SOAOfficeCtrl").VerifyDigitalSignatures();
alert("标准版无数字签名功能。");

}

//插入电子印章
function jsInsertSeal()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
{
//document.all("SOAOfficeCtrl").InsertSealFromURL("images/seal02.esf");//不通过选择,直接插入指定印章
var mDialogUrl = "images/selectSeal.htm";
var mObject = new Object();
mObject.SelectValue = "";
window.showModalDialog(mDialogUrl, mObject, "dialogHeight:180px; dialogWidth:340px;center:yes;scroll:no;status:no;");
//判断用户是否选择印章
if (mObject.SelectValue!="")
{
document.all("SOAOfficeCtrl").InsertSealFromURL( "images/" + mObject.SelectValue);
}
}
}
//验证电子印章/签名的有效性
function jsValidateSeal()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").ValidateSeal();
}
//允许或禁止 复制/拷贝
function jsCanCopy(value)
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").CanCopy = value;
}
//插入Web图片
function jsInsertWebImage()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").InsertWebImage( "images/SOA_05.gif");
}
//页面设置
function jsDocPageSetup()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").ShowDialog(5);
}
//切换标题栏
function jsToggleTitlebar()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").Titlebar = !document.all("SOAOfficeCtrl").Titlebar;
}
//切换菜单栏
function jsToggleMenubar()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").Menubar = !document.all("SOAOfficeCtrl").Menubar;
}
//切换工具栏
function jsToggleToolbars()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").Toolbars = !document.all("SOAOfficeCtrl").Toolbars;
}
//禁止/允许 打印文档菜单及按钮
function jsEnablePrint(value)
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
{
document.all("SOAOfficeCtrl").EnableFileCommand(5) = value;
// 刷新一下工具条
if(document.all("SOAOfficeCtrl").Toolbars)
{
document.all("SOAOfficeCtrl").Toolbars = false;
document.all("SOAOfficeCtrl").Toolbars = true;
}
}

}
//禁止/允许 保存文档菜单及按钮
function jsEnableSave(value)
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
{
document.all("SOAOfficeCtrl").EnableFileCommand(3) = value;
// 刷新一下工具条
if(document.all("SOAOfficeCtrl").Toolbars)
{
document.all("SOAOfficeCtrl").Toolbars = false;
document.all("SOAOfficeCtrl").Toolbars = true;
}
}

}
//禁止/允许 另存文档菜单及按钮
function jsEnableSaveAs(value)
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").EnableFileCommand(4) = value;
}
//保存文档到web服务器
function jsSave()
{
try {
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").WebSave();//保存当前文档到web服务器,保存(覆盖)到原打开文档的地址处
//document.all("SOAOfficeCtrl").WebSave("aa.doc");表示把当前文档另存到web服务器为aa.doc
}
catch (e)
{
alert("文档保存失败!\n错误信息:" + e.message);
}
}
//保存文档到web服务器,使用页面提交技术,在提交文档的同时提交其他用户定义的页面字段或域
function jsSubmitSave()
{
try {
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
{
document.all("SOAOfficeCtrl").WebSave();
formData.submit();
}
}
catch (e)
{
alert("文档保存失败!\n错误信息:" + e.message);
}
}
//打开插入本地图片的对话框
function jsOpenImageDialog()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").OpenImageDialog();
}
//获取文档Txt正文
function jsWordToText()
{
alert(document.all("SOAOfficeCtrl").DocText);
}
//VBA套红,套用VBA编程模板
function jsInsertVBATemplate()
{
var DocObject=document.all("SOAOfficeCtrl").Document;
var myl=DocObject.Shapes.AddLine(91,60,285,60)
myl.Line.ForeColor=255;
myl.Line.Weight=2;
var myl1=DocObject.Shapes.AddLine(308,60,502,60)
myl1.Line.ForeColor=255;
myl1.Line.Weight=2;

var myRange=DocObject.Range(0,0);
myRange.Select();

var mtext="★";
DocObject.Application.Selection.Range.InsertAfter (mtext+"\n");
var myRange=DocObject.Paragraphs(1).Range;
myRange.ParagraphFormat.LineSpacingRule =1.5;
myRange.font.ColorIndex=6;
myRange.ParagraphFormat.Alignment=1;
myRange=DocObject.Range(0,0);
myRange.Select();
mtext="市政发[2005]0168号";
DocObject.Application.Selection.Range.InsertAfter (mtext+"\n");
myRange=DocObject.Paragraphs(1).Range;
myRange.ParagraphFormat.LineSpacingRule =1.5;
myRange.ParagraphFormat.Alignment=1;
myRange.font.ColorIndex=1;

mtext="某市政府红头文件";
DocObject.Application.Selection.Range.InsertAfter (mtext+"\n");
myRange=DocObject.Paragraphs(1).Range;
myRange.ParagraphFormat.LineSpacingRule =1.5;

myRange.Font.ColorIndex=6;
myRange.Font.Name="仿宋_GB2312";
myRange.font.Bold=true;
myRange.Font.Size=30;
myRange.ParagraphFormat.Alignment=1;

}
//使用指定的模板套红
function jsApplyFileTemplate()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
{
var mDialogUrl = "images/selectTemplate.htm";
var mObject = new Object();
mObject.SelectValue = "";
window.showModalDialog(mDialogUrl, mObject, "dialogHeight:180px; dialogWidth:340px;center:yes;scroll:no;status:no;");
//判断用户是否选择模板
if (mObject.SelectValue!="")
{
document.all("SOAOfficeCtrl").ApplyTemplateFromURL("doc/" + mObject.SelectValue);
}
}
}
//禁止/允许WORD鼠标拖曳功能
function jsDisableDragAndDrop()
{
if (!bDocOpen)
alert("当前没有已打开的文档。");
else
document.all("SOAOfficeCtrl").Document.Application.Options.AllowDragAndDrop = !document.all("SOAOfficeCtrl").Document.Application.Options.AllowDragAndDrop;
}
//显示保存失败信息
function jsDisplayError()
{
var strErro;
strErro = document.all("SOAOfficeCtrl").LastErro;
if (strErro != ""){
document.write(strErro);
}
else
{
alert("没有发现错误。");
}
}
// 切换到PDF模式
function jsPDF()
{
if (!bDocOpen){
alert("当前没有已打开的文档。");
}
else{
document.all("SOAOfficeCtrl").Document.ActiveWindow.Thumbnails = true;
}

}
// 切换到Page模式
function jsPage()
{
if (!bDocOpen){
alert("当前没有已打开的文档。");
}
else{
document.all("SOAOfficeCtrl").Document.ActiveWindow.Thumbnails = false;
}

}

// 颜色
function jsOleColor(red, green, blue)
{
var decColor = red + 256 * green + 65536 * blue;
return decColor;
}

//将html form的域值拷贝到Word文档的标签中
function jsCopyTextToBookMark(inputname,BookMarkName)
{
try
{
var inputValue="";
var j,elObj,optionItem;
var elObj = document.forms[0].elements(inputname);
if (!elObj)
{
alert("HTML的FORM中没有此输入域:"+ inputname);
return;
}
switch(elObj.type)
{
case "select-one":
inputValue = elObj.options[elObj.selectedIndex].text;
break;
case "select-multiple":
var isFirst = true;
for(j=0;j<elObj.options.length;j++)
{
optionItem = elObj.options[j];
if (optionItem.selected)
{
if(isFirst)
{
inputValue = optionItem.text;
isFirst = false;
}
else
{
inputValue += " " + optionItem.text;
}
}
}

break;
default: // text,Areatext,selecte-one,password,submit,etc.
inputValue = elObj.value;
break;
}
var bkmkObj = document.all("SOAOfficeCtrl").Document.BookMarks(BookMarkName);
if(!bkmkObj)
{
alert("Word 模板中不存在名称为:\""+BookMarkName+"\"的书签!");
}
var saverange = bkmkObj.Range
saverange.Text = inputValue;
document.all("SOAOfficeCtrl").Document.Bookmarks.Add(BookMarkName,saverange);
}
catch(err){

}
finally{
}
}
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

js操作word套红 的相关文章

  • visio导出高质量图片

    具体操作如下 首先 ctrl A 然后选择 另存为 保存类型选择 Tag图像文件格式 接着在输出里面设置 压缩格式选为 LZW 接着是 256色 然后选择 打印机 下面是 源 然后点击确定就可以了 这样绝对是满足投稿要求的 分辨率为300d
  • easypoi导出word换行处理

    内容包含换行符 n 导出word时换行符失效 会将换行符 n识别为空格 模板 导出结果 maven
  • 2022CTFSHOW菜狗杯部分题目(三)

    MISC 一层一层一层地剥开我的 ctfshow RAR文件头修复 docx 文件分离 base100 下载附件 打开发现是个word文档 改zip后缀为docx 打开后发现是一堆符号 全选内容修改字体 拿到以下内容 是 一闪一闪亮晶晶 的
  • Java将Word转换成PDF

    最近项目需要做在线预览文档功能 要求对word文档后台转为pdf 遇到了很多问题 因此记录一下 网上有很多将Word转换成PDF的方式 这里我试了几种比较简单的方式 POI aspose spire和documents4j 1 POI PO
  • Linux服务器(centos7)中Word转换PDF,文档出现中文乱码或方格【亲测可用,已解决】

    提示 在centos服务器使用aspose word转换word文件为pdf的时候只有中文乱码或则方格 但是在win服务器上使用可以正常转换 本次文章主要解决字体缺失问题 目录 前言 一 在linux服务器上生成的pdf都是这种格式的 二
  • WPS Office AI实战:Word写作如有“神”助

    打开电脑 基本上你就会与文档打交道 是时候升级处理文档的方式了 WPS AI 的出现 给了文档处理提供了新的范式 生成文档 根据提示词生成新内容 文档分析 快速了解文档核心要点 节省阅读时间 根据你感兴趣的内容 推荐相关问题 使用WPS A
  • 使用Microsoft Word2016无法正常对Latex文本转换的踩坑和解决方法

    相信很多人都遇到像我一样的问题 word2016中 有latex的按钮 按ALT 就可以开始写公式 复制粘贴latex公式之后 怎么就转换不了呢 就是如图这样的 左上角转换按钮为灰色 上网找呀找 找了很多资料 大多数都是介绍用法的 但是转换
  • Word批量转PDF,宏批量转PDF

    Word批量转PDF 很多第三方工具都可以轻松实现 一般需要付费 这里 为大家提供一个VBA实现的方法 word原生功能 在word中使用使用宏VBA 实现批量转PDF 1 在Word中 打开你需要处理的doc文档 2 按住键盘ALT F1
  • Word中批量更新域的两个小方法

    一处域更新 如果只有一处需要更新 对着域右键选择 更新域 即可 多处域更新 很多需要更新的时候 可以如下操作 两种方法应该都可以 选择 打印预览 可以更新文档中的所有域 MOS认证的老师教的 CTRL A 全选 然后F9 更新 即可 自己觉
  • poi 导出word工具类,支持模板内容换行

    package com sinosoft sinoep modules taskOrder common import org apache poi xwpf usermodel import java util List import j
  • python操作word表格,并修改表格内容

    1 安装win32com client库 pip install pywin32 2 导包 import win32com client 3 总代码 import os import win32com client 创建 Word 应用程序
  • 如何在word文档中添加两个目录

    由于需要在一个word文档中添加两个目录 第一个目录表示文章前半部分的内容 第二个目录表示后半部分的内容 对于word不太熟悉的我经过一番折腾之后终于搞定了 在此记录一下 原理 将word文本划分成两个域 而每个域里的标题可以看做是不同的书
  • Office 之将 PPT 图片完美插入 Word

    将 PPT 图片完美插入 Word 原始文档 https www yuque com lart tools wdg4ww 前言 PPT 提供了简单易用的基本绘图支持 而 Word 则提供了专业的文档撰写和处理的支持 但这些工具并不是独立且互
  • 不要再狂按空格键了!Word 里文字对齐推荐这4种方法

    到底如何才能快速对齐Word文字呢 今天就教大家4个好方法 不用敲空格键 2秒对齐所有文字 1 Tab键对齐 首先选中要对齐的文本 点击 视图 选中 标尺 在文字需要对齐的位置设置 制表位 接着鼠标点击文本前 然后再按一个 Tab键 立马就
  • 使用Python互转pdf文档和word文档

    1 前言 一日 欲将手头上的一份pdf文档转换成word文档 先试着用XX办公软件试了下 微信扫码登录后 在PDF转换界面 选中文档 点击 开始转换 弹出提示对话框 免费的只给转换5页文档 可我这文档要350页 全部转换需开通会员 有点懵逼
  • MathType改变字体大小

    目录 一 MathType中的公式字体 二 临时自定义字体大小 三 更改默认字体大小 四 总结 一 MathType中的公式字体 MathType中默认的字体大小为12pt 在word中即小四 word字体对应MathType的字体大小如下
  • Java准确获取Word/Excel/PPT/PDF的页数(附Word页数读不准的处理办法)

    Java准确获取Word Excel PPT PDF的页数 附Word页数读不准的处理办法 1 需求背景 2 环境准备工作 2 1 JACOB介绍及安装 2 2 Microsoft Office Word的设置 3 代码 3 1 代码示例
  • CTF练题(5)word隐写基础题,jpg图片隐写,敲击码解密

    2022 11 2 两道misc题目 题目一 word隐写基础 题目信息如下 以及一个无法打开的word文档 解题步骤 1 将该word文档拖入010Editor中进行分析 发现文件头显示为PK 压缩文件 将该文档后缀改为 zip 保存到桌
  • Word标尺怎么调出来?4个方法教会你!

    在使用Word编辑文档时 我需要把标尺调出来 但是不知道应该如何操作 大家有没有简单的方法可以调出Word标尺的呀 在使用Word办公时 Word标尺是一个非常有用的工具 可以帮助用户更好地格式化文档 调整页边距 以及进行段落缩进等操作 但
  • Word——状态栏不显示选择区域中的字数的解决办法

    一 步骤 点击左下角那个 字数 XXX 弹出的框中选中选项 包含文本框 如果已经选中了可以先点掉再选中 关闭所有的word文档 再打开 参考文章 word字数统计

随机推荐

  • iOS 已有项目利用Pod集成RN

    一 背景 对于已经存在的iOS项目 xff0c 以模块化引入 xff0c OC与RN混编怎么做呢 xff1f 我们可以利用cocopods来集成 xff0c 直接使用pod install就可以让其他同事也快速集成 由于RN用npx rea
  • 使用信号量使AFNetworking异步变同步(dispatch_semaphore_t)

    背景 当H5调用OC的时候 xff0c 默认是在主线程的 xff0c 如果H5调用后 xff0c 需要原生返回数据 xff0c 而原生获取数据又是个耗时的异步操作就会有问题 xff0c 比如OC是一个网络请求 xff0c 那就需要等原生请求
  • Alice 与 Bob 的游戏 (概率DP)

    题目描述 Alice 和 Bob 两个人正在玩一个游戏 xff0c 游戏有很多种任务 xff0c 难度为 p 的任务 xff08 p是正整数 xff09 xff0c 有 1 2 p 的概率完成并得到 2 p 1 分 xff0c 如果完成不了
  • windows搭建WINS服务

    文章目录 SDCserver WINS 1 安装WINS并配置为辅助WINS 2 DCserver为主要的WINS服务器 3 定期复制主WINS服务器的记录 4 DCserver离线后 自动切换为辅助服务器 SDCserver设备上 提示
  • iOS 内存管理

    内存管理 1 内存布局 bss xff1a 未初始化的全局变量 静态变量等data xff1a 已初始化的全局变量 静态变量等text xff1a 程序代码 内存布局 2 内存管理方案 TaggedPointer xff1a 对于小对象NS
  • isKindOfClass和isMemberOfClass

    BOOL isKindOfClass Class aClass BOOL isMemberOfClass Class aClass 我们来看看这两个方法有什么不同 xff0c 首先看看问题 BOOL res1 61 id NSObject
  • AVAudioRecorder stop崩溃 在iOS13系统上

    iOS15和iOS16都正常 xff0c 但是测试反馈在iOS13的系统上 xff0c AVAudioRecorder的实例对象调用stop方法会崩溃 xff0c 并且debug不到任何信息 原因是由于AVAudioRecorder的实例对
  • 【C++】输入优化(快读)

    快速读入 xff0c 简称快读 xff0c 比cin printf 等都快 void类型的快读 span class token macro property span class token directive keyword inclu
  • 【LaTeX】LaTeX入门

    文章目录 简介文章结构基本要素处理问题添加文档标题章节创建标签生成目录 xff08 TOC xff09 文字处理中文字体支持字体效果彩色字体字体大小段落缩进列表注释和空格特殊字符 表格图表公式插入公式数学符号上标和下标分数根号求和与积分希腊
  • C++中string的拼接

    字符拼接可以采用的方法 xff1a 1 多个字串拼接时用 43 操作符 1 xff09 代码 xff1a 如果不加红色部分的代码 xff0c 则需要采用 sntprintf代替sntprintf include lt iostream gt
  • LINUX 新挂载的磁盘(sdb,sdc)进行扩容

    1 在虚拟机上增加磁盘空间 xff0c 例如之前50G xff0c 增加到100G 2 fdisk l 查看磁盘容量是否变化 可以看出我们只用了一半的扇区 xff0c 也就是50G 3 df hl 查看现在的挂载情况 目前文件系统只有50G
  • VS各个版本对应的C++版本一览表(持续更新,最新为VS2022)

    文章目录 1 VS各版本与MSVC对照表2 GCC版本与C 43 43 支持情况表3 VS版本与C 43 43 支持情况表4 C 与 NET版本与C 43 43 支持情况表5 引用 官网地址 xff1a Visual Studio官网地址
  • 经典算法(5)- 用二进制方法实现扩展的最大公约数(Extended GCD)

    二进制方法中 xff0c 只需要移位 xff08 lt lt 和 gt gt xff09 和加减操作 xff08 43 和 xff09 xff0c 不像欧几里德算法中需要乘法和除法运算 虽然算法效率更高 xff0c 但是程序的可读性和可维护
  • shell-位置参数

    介绍 当我们执行一个shell时 xff0c 如果希望获取到命令行的参数信息 xff0c 就可以使用到位置参数变量 比如 xff1a myshell sh 100 200 这个就是一个执行shell的命令行 xff0c 获取到位置参数后 x
  • 多用户conda环境创建报错NotWritableError: The current user does not have write permissions to a required path.

    实验室最近来了一批服务器 xff0c 多个人共用一个3090 xff0c conda环境是全局安装 xff0c conda的安装目录是归属到anaconda的用户组 归属到anaconda的用户都能创建condah环境 今天在创建环境是报错
  • java自学之路

    JAVA自学之路 一 学会选择 为了就业 xff0c 不少同学参加各种各样的培训 决心做软件的 xff0c 大多数人选的是java xff0c 或是 net xff0c 也有一些选择了手机 嵌入式 游戏 3G 测试等 那么究竟应该选择什么方
  • 项目中常见的错误

    项目中遇到的错误 c9bcf64c sql错误 找不到列 Unknown column 39 fillMen 39 in 39 field list 39 2 列名在sql语句中写了2次 Column 39 fillMan 39 speci
  • Rpm包安装方法

    可以用rpm命令安装 普通安装 xff0c 进入rpm包所在目录 xff0c 运行终端程序 xff1a 或者在任意终端打rpm包的绝对路径 rpm ivh rpm 或 rpm ivh 39 root Desktop rpm 39 升级安装
  • Oracle数据库导出大字段(CLOB)数据

    导出CLOB的几个SQL语句 xff1a 1 导出含有大字段数据的M条记录 exp user passwd statistics 61 none compress 61 n consistent 61 y file 61 oradata i
  • js操作word套红

    标准版 隐藏或显示修订痕迹 function jsShowTrack value if bDocOpen alert 34 当前没有已打开的文档 34 else document all 34 SOAOfficeCtrl 34 ShowRe