宏和js实现word内容替换

最新推荐文章于 2023-12-05 11:16:44 发布
最新推荐文章于 2023-12-05 11:16:44 发布
阅读量3.1k 收藏 8
点赞数 1
文章标签： js word
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_20013637/article/details/101552107
版权

通过宏和ActiveXObject来控制 word操作，包括文字替换、文字替换为图片

  1. 使用ActiveXObject前需要配置Internet属性
    在这里插入图片描述
    在这里插入图片描述
  2. 通过宏来替换文字、文字替换图片
    2.1 文字替换为图片
For i = 1 To ActiveDocument.Paragraphs.Count
mypic = ActiveDocument.Paragraphs(i).Range.Text
If InStr(mypic,”picture”) > 0 Then
        ActiveDocument.Paragraphs(i).Range.Select
        Selection.InlineShapes.AddPicture filename:=”C:/1.jpg”, LinkToFile:=False, SaveWithDocument:=True
        Selection.InsertBefore (Chr(10))      '换行    Chr(13)  回车
    End If
Next

2.2 文字替换

Set myRange = ActiveDocument.Content
With myRange.Find
.Text = “原文字”
    .Forward = True
    .Wrap = wdFindStop
    .Execute
End With
With myRange
    Do While .Find.Found = True
        .Text = “新文字”
        .Find.Execute
    Loop
End With

2.3 读取文件，截取 warnCategory= **%1end 字符串

Public CookieFile As String
Public LotusDocID As String
CookieFile = CookieFile + "Cookie.txt"
Dim mylog
Set mylog = CreateObject("Scripting.FileSystemObject")
If (mylog.FileExists(CookieFile)) Then
Open CookieFile For Input As #1
    Input #1, StrCookie
Close #1
Dim MyPosEnd As Integer
MyPosEnd = InStr(1, StrCookie, "%1end") - 1
LotusDocID = Left(StrCookie, MyPosEnd)
LotusDocID = Right(LotusDocID, MyPosEnd - InStr(LotusDocID, "warnCategory=") - 12)

2.4 获取当前文件路径

Dim wordPath
wordPath = ActiveDocument.Path
Dim sourceArr
sourceArr = Split(wordPath, Application.PathSeparator)
For subi = 0 To UBound(sourceArr) 
    CookieFile = CookieFile + sourceArr(subi) + Application.PathSeparator
Next subi
  1. 通过ActiveXObject 来替换文字、文字替换图片
    3.1 创建文件打开
var wordApp = new ActiveXObject("Word.Application");
wordApp.Visible = false;
var redHeadFileName=new UUID().createUUID()+'.doc';
var docPath =baseUrl+ "/attachment/downloadByNewFileName.do?attId="+attId+"&newFileName="+redHeadFileName;
var d = new word({
	srcurl : docPath,
	destfile : redHeadFileName,
	myword : wordApp,
	docVisible : false
});
d.build();
d.open();

3.2 文字替换

var selection = wordApp.Selection;
selection.Find.Text = "￥￥context";
selection.Find.wrap = 1;
while (selection.Find.Execute()) {
   selection.paste();
}
selection.Find.Text="￥￥warnCategory";
selection.Find.wrap=1;
while(selection.Find.Execute()){
selection.TypeText(“new”);
}
wordApp.Visible = true;
wordApp.Application.Activate();

发现的问题，selection.TypeText(“”); 不会替换内容
3.3 文字替换图片

var count = wordApp.documents(1).paragraphs.count;
var mypic = "";
for(var i = 1;i<=count ; i++){
    var mypic = wordApp.documents(1).paragraphs(i).range.text;
    if(mypic.indexOf("￥￥picture") > -1){
        wordApp.documents(1).paragraphs(i).range.select();
        wordApp.Selection.InlineShapes.AddPicture("E:\\20190819\\1.gif");
        wordApp.Selection.InsertBefore ("\n\r");
    }
}
  1. 如果是Excel , ActiveXObject 怎么打开
var excelApp = new ActiveXObject("Excel.Application");
var d = new excel({
    srcurl : docPath,
    destfile : redHeadFileName,
    myword : excelApp,
    docVisible : false
});
d.build();
var oWB = d.open();   //Open方法修改为 myword.Workbooks.Open(desturl)
oWB.worksheets(1).select();
var workSheet = oWB.ActiveSheet;
workSheet.Cells(2,2).Value = "100";
workSheet.Cells(3,2).Value = "100";
excelApp.Application.Visible = true;
  1. 遇到问题
    5.1 被呼叫方拒绝接收呼叫
    打开window任务管理器，发现Word进程还在，说明资源没有释放
    查找文档，确保关闭 new的ActiveXObject
  2. 相关js
/**
 * config = {srcurl,destfile,isnew,uploadpath}
 * srcurl: 远程服务器文件 e.g. http://128.96.172.238:9080/aaa/upload/aaa.doc
 * destfile: 本地的文件名称 e.g. zhwm.doc
 * isnew: 是本地新建，还是远程下载
 * uploadpath: 上传到服务器的doc文件路径 e.g.  /tomcat6.0/webapps/aaa/upload/ 
 * upload_target_url:上传doc文件到服务器的jsp
 */

$(document).ready(function(){
	$("head").append("<script src="+'../js/contextConstant.js'+"></script>");
});
word = function(config) {
	var myword, fso ,mydoc,xml_dom, ado_stream;
	var myinterval,  srcurl, uploadpath, desturl,destfile,upload_target_url;
	var destDir=downContextPath;
    var docVisible=true;
	
	
	function init(){
		fso = new ActiveXObject("Scripting.FileSystemObject");
	}
    function InitAjax() {
        var ajax;
        if (window.ActiveXObject) {
            var versions = ['Microsoft.XMLHTTP', 'MSXML.XMLHTTP', 'Microsoft.XMLHTTP', 'Msxml2.XMLHTTP.7.0', 'Msxml2.XMLHTTP.6.0', 'Msxml2.XMLHTTP.5.0', 'Msxml2.XMLHTTP.4.0', 'MSXML2.XMLHTTP.3.0', 'MSXML2.XMLHTTP'];
            for (var i = 0; i < versions.length; i++) {
                try {
                    ajax = new ActiveXObject(versions[i]);
                    if (ajax) {
                        return ajax;
                    }
                } catch (e) {
                }
            }
        } else if (window.XMLHttpRequest) {
            ajax = new XMLHttpRequest();
        }
        return ajax;
    }
    var ajaxWord;
    function getFileByServer(srcUrl) {
        ajaxWord = InitAjax();
        ajaxWord.onreadystatechange = getReady; // 回调函数
        ajaxWord.open('post', srcUrl, false);
        ajaxWord.send();
    }
	this.close = function(){
        if(null!=mydoc){
		  mydoc.close();
		  mydoc = null;
        }
        if(myword){
          myword.quit();
          myword = null;
        }

	}
	this.build = function() {
		init();
	    if (typeof config.srcurl == 'undefined') {
			alert('请指定参数srcurl');
		}else {
			srcurl = config.srcurl;
		}
		if(typeof config.destfile == 'undefined')
			alert('请指定参数destfile');
		else destfile = config.destfile;

        if(!(typeof config.destfile == 'undefined')){
            docVisible=config.docVisible;
        }
		desturl = destDir + destfile;
		myword = config.myword;

		createLocalDir();
        getFileByServer(srcurl);
	}
	
	function createLocalDir(){
		if(!fso.FolderExists(destDir)){
			fso.CreateFolder(destDir);
		}
		if (fso.FileExists(desturl)) {
			fso.DeleteFile(desturl);
		}
		fso = null;
	}
    this.open=function openWord(){
        fso = new ActiveXObject("Scripting.FileSystemObject");
        // 判断 文件是否存在
        if(!fso.FileExists(desturl)){
            alert("目标文件不存在,打开失败");
            fso.close();
            this.close();
            return null;
        }
		myword.visible = docVisible;
        mydoc= myword.Documents.Open(desturl);
        return mydoc;
	}
    function getReady(func) {
        if (ajaxWord.readyState == 4) {
            if (ajaxWord.status == 200) {
                saveFile(desturl);
                return true;
            }else {
                return false;
            }
        } else{
            return false;
        }
    }

    function saveFile(tofile) {
        var objStream;
        var file;
        file = ajaxWord.responseBody;
        objStream = new ActiveXObject("ADODB.Stream");
        objStream.Mode = 3 ;           //读写
        objStream.Type = 1;            //文本
        objStream.open();
        objStream.write(file);
        objStream.SaveToFile(tofile);
        objStream.close();
        objStream=null;

    }
}

excel = function(config) {
    var myword, fso ,mydoc,xml_dom, ado_stream;
    var myinterval,  srcurl, uploadpath, desturl,destfile,upload_target_url;
    var destDir=downContextPath;
    var docVisible=true;


    function init(){
        fso = new ActiveXObject("Scripting.FileSystemObject");
    }
    function InitAjax() {
        var ajax;
        if (window.ActiveXObject) {
            var versions = ['Microsoft.XMLHTTP', 'MSXML.XMLHTTP', 'Microsoft.XMLHTTP', 'Msxml2.XMLHTTP.7.0', 'Msxml2.XMLHTTP.6.0', 'Msxml2.XMLHTTP.5.0', 'Msxml2.XMLHTTP.4.0', 'MSXML2.XMLHTTP.3.0', 'MSXML2.XMLHTTP'];
            for (var i = 0; i < versions.length; i++) {
                try {
                    ajax = new ActiveXObject(versions[i]);
                    if (ajax) {
                        return ajax;
                    }
                } catch (e) {
                }
            }
        } else if (window.XMLHttpRequest) {
            ajax = new XMLHttpRequest();
        }
        return ajax;
    }
    var ajaxWord;
    function getFileByServer(srcUrl) {
        ajaxWord = InitAjax();
        ajaxWord.onreadystatechange = getReady; // 回调函数
        ajaxWord.open('post', srcUrl, false);
        ajaxWord.send();
    }
    this.close = function(){
        if(null!=mydoc){
            mydoc.close();
            mydoc = null;
        }
        if(myword){
            myword.quit();
            myword = null;
        }
    }
    this.build = function() {
        init();
        if (typeof config.srcurl == 'undefined') {
            alert('请指定参数srcurl');
        }else {
            srcurl = config.srcurl;
        }
        if(typeof config.destfile == 'undefined')
            alert('请指定参数destfile');
        else destfile = config.destfile;

        if(!(typeof config.destfile == 'undefined')){
            docVisible=config.docVisible;
        }
        desturl = destDir + destfile;
        myword = config.myword;

        createLocalDir();
        getFileByServer(srcurl);
    }

    function createLocalDir(){
        if(!fso.FolderExists(destDir)){
            fso.CreateFolder(destDir);
        }
        if (fso.FileExists(desturl)) {
            fso.DeleteFile(desturl);
        }
        fso = null;
    }
    this.open=function openWord(){
        fso = new ActiveXObject("Scripting.FileSystemObject");
        // 判断 文件是否存在
        if(!fso.FileExists(desturl)){
            alert("目标文件不存在,打开失败");
            fso.close();
            this.close();
            return null;
        }
        myword.visible = docVisible;
        mydoc= myword.Workbooks.Open(desturl);
        return mydoc;
    }
    function getReady(func) {
        if (ajaxWord.readyState == 4) {
            if (ajaxWord.status == 200) {
                saveFile(desturl);
                return true;
            }else {
                return false;
            }
        } else{
            return false;
        }
    }

    function saveFile(tofile) {
        var objStream;
        var file;
        file = ajaxWord.responseBody;
        objStream = new ActiveXObject("ADODB.Stream");
        objStream.Type = 1;
        objStream.open();
        objStream.write(file);
        objStream.SaveToFile(tofile);
        objStream.close();
        objStream=null;

    }
}

//根据标签和元素id替换相关值
function  replace(wordApp,label,value){
	  var selection = wordApp.Selection;
		// 替换值
      selection.Find.Text=label;
      selection.Find.wrap=1;
      while(selection.Find.Execute()){
        selection.TypeText($("#"+value).val());  // 设置值
        
      }
}

//根据标签和元素id替换相关值
function  replace2(wordApp,label,value){
	  var selection = wordApp.Selection;
	  // 替换值
      selection.Find.Text=label;
      selection.Find.wrap=1;
      while(selection.Find.Execute()){
        selection.TypeText(value);  // 设置值
        
      }
} 

// 正文下载的目录
var downContextPath="c:/ccbplmis_temp/";
// 正文上载文件的目录
var upContextPath="c:/ccbplmis/";

// 正文上传url
var baseUrl = "http://"+document.location.host+"/plmis";  

// 合成格式  word 蓝色 颜色编码
var buleColorCode=16724787;
//合成格式  word 黄色 颜色编码
var yellowColorCode=6553085;
//合成格式  word 橙色  颜色编码
var orangeyColorCode=3652077;
//合成格式  word 红色 颜色编码
var redColorCode=3034366;
qq_20013637
关注
多WORD文档批量查找替换 宏
03-03
当需要在多个WORD文档中批量查找替换时，此宏可帮助遍历整个目录下的所有doc和docx格式的word文件并批量进行替换保存操作，大大提高工作效率。 此文档是一个WORD的VBA宏，不存在病毒也无需注册收费。且除了需要打开此文档的Office或者WPS外无需安装其他第三方软件或插件。 如提示注册失败等问题，可能是窗口组件需要注册，请使用命令行执行regsvr32 C:\Windows\SysWOW64\fm20.dll注册。
wps/word 自动换行插入回车符 JS宏代码
dujianxiong的博客
03-14 2712
/** * test Macro */ function test() { for(let i=1;i<=1000;i++){ Selection.EndKey('wdRow','wdMove'); let a='d'+Selection.Text+'d'; let b = a.replace(/\s*/g,""); let c= Selection.Text; if(b =='dd'){ //此行已换行 console.log(c); .
宏批量替换多个word指定文字
AvenjanCSDN博客
04-27 1万+
1、新建一个word文本，点击”开发工具“菜单下的”宏“按钮（如没有开发工具可点击”视图“下的宏按钮） 2.输入名称后点击”创建“按钮 3.输入如下代码： Sub CommandButton1_Click() Application.ScreenUpdating = False '关闭屏幕闪 Dim myFile$, myPath$, i%, myDoc As Object, myAPP As Object, txt$, Re_txt$ Set myAPP = New Word.App
WPS Office JS宏实现批量处理Word中的标题和正文的样式
觉醒法师的专栏
12-05 2999
该篇讲解word文档中的标题和正文批量修改样式，使用ActiveDocument.Paragraphs获取段落信息。
WPS中JS宏简单运用
热门推荐
虚心学习，和气编码
11-22 1万+
在之前我们学习到了VBA这种方式来操作办公软件三剑客(Word, Excel, PPT)，但是在新时代的召唤下，WPS中已经可以使用JS来进行操作了,这里我们就再来学习一下WPS中的JSA 其实之前学习过VBA的同学比较有优势，其实JSA与VBA很多操作都很相似 1.打开宏编辑器 可以Alt + F11 打开 也可点击如下按键 打开以后为如下界面 代码开发中就会有不同，在VBA中我们可以开发过程与函数，但是在JSA中仅有函数 我们此时可开发一个简单函数测试可行性 在这里M..
写一个VBA word宏，能够实现多个word文档替换文字的功能
weixin_42613360的博客
02-13 1609
下面是一个示例代码，可以实现在多个 Word 文档中替换文字的功能： Sub ReplaceTextInMultipleDocs() Dim strOldText As String Dim strNewText As String Dim strPath As String Dim strFile As String Dim wdDoc As Document strOldText = In...
wps-js遍历word所有字符串替换字符.docm
最新发布
06-08
wps-js遍历word所有字符串替换字符.docm
javascript下用ActiveXObject控件替换word书签，将内容导出到word后打印第1/2页
10-30
4. **替换书签**：在JavaScript中，通过ActiveXObject实例，可以调用Word对象的`Execute_macro`方法或直接访问文档的书签，将`<textarea>`中的内容替换到Word文档的相应书签位置。 5. **打印第1/2页**：在替换完...
Word批量转Pdf - 微软原生方法，不会出现乱码、方块字，不会错乱
07-24
Word和Pdf各有其优点，例如Word适合编辑和协作，而Pdf则擅长保持格式的一致性并便于分享。标题提到的“Word批量转Pdf - 微软原生方法”意味着我们将探讨一种利用微软官方支持的方法来执行此转换，这种方法能确保文件...
VB转javascript代码帮助下载
03-16
例如，在JavaScript中可能需要使用DOM操作来实现VBA中对Word文档的操作。 #### 五、总结 从VB到JavaScript的代码转换涉及到多方面的考虑，包括但不限于语法差异、对象模型的不同以及库的支持等。通过细致地分析源...
WPS Office JS宏实现批量处理Word中的表格样式
觉醒法师的专栏
11-27 8771
WPS Office JS宏，实现Word表格样式批量修改。 由于本职工作原因，经常会用到office办公软件，经常很多内容审批后，需要统一修改内容或样式，如果Word文档中有上百页或上千页，则一个一个修改太麻烦了。在接触到WPSJS宏后，发现工作效率大大提升；如果你会前端开发，有JS基础上手会非常快；如果有VBA基础，就更得心应手了，因为对象和函数定义，基础是沿用office的VBA。其他不多说了，先和大家分享下如果统一修改表格样式。
VBA宏查找替换目录下所有Word文档中指定字符串
netscaner的专栏
10-29 1289
以前要替换大量文件里面特定名称或者某一错误时，需要逐一打开文件，非常麻烦，所以写了个VBA程序。过了这么多年，突然又要做同样的事情，发现新版本的Word不支持其中的Application.FileSearch了，又找不到合适的工具。只能又学习了新的VBA代码，改写了原来的VBA窗体程序，主要就是用Dir()函数。不支持子目录搜索，要把所有需要查找替换文件放在相同目录里。
JS批量替换(高亮)一组关键字
前端之路修远兮
11-30 2271
代码比较简单，直接放上 const keyWord = ['故宫','建筑','殿'], article = "北京故宫是中国明清两代的皇家宫殿，旧称为紫禁城，位于北京中轴线的中心，是中国古代宫廷建筑之精华。北京故宫以三大殿为中心，占地面积72万平方米，建筑面积约15万平方米，有大小宫殿七十多座，房屋九千余间。是世界上现存规模最大、保存最为完整的木质结构古建筑之一。"; let lightWo...
wps 的js宏怎么编写另存文件
weixin_35755823的博客
01-08 1995
在 WPS 中编写 JavaScript 宏来另存文件，你可以使用 WPS 内置的 saveAs 方法。该方法接受两个参数：要另存的文件的路径和文件类型。 例如，以下代码演示了如何将当前文档另存为 Word 文档： Wps.Application.activeDocument.saveAs("C:\\My Documents\\MyDocument.docx", "wdFormatDocument...
WPS的JS宏基础（二）——数据类型
一位VBA和JSA、书法爱好者
11-10 1529
数值分为整数和小浮点数（小数），但返回的都是number类型。下面介绍一下关于处理数值的一些常用方法。
javascript操作word实现替换功能
xhcyb的专栏
11-03 1135
               javascript操作word大全,javascript操作word实现替换功能              function makeword(){   try {     var wdApp    = new ActiveXObject ( "Word.Application" );   }   catch(e) {     alert( 要打印该表，您必须安装
通过js操作word的页眉页脚
jianhao84的专栏
09-05 1482
Insert title here         abc          abc          abc          abc      var wordApp=new ActiveXObject("Wo
批量替换ppt内容_在office宏中运行即可
CSDN专栏--北京中关村
04-15 1140
批量替换ppt内容_在office宏中运行即可 Sub 批量替换ppt内容() Dim ChangedCount As Integer Dim FileName As String, Mask As String Dim FindCount As Long Dim CurPresentation As Presentation Dim Path As String, FindString As String, ReplaceString As String Dim oSld As Slide Di
PHP实现页面内容导出为可下载Word文档
在PHP编程中，将页面内容导出为Word文档是一种常见的需求...此外，如果页面中有动态生成的内容，确保这些内容也被包含在响应体中，因为`ob_start()`只会捕获服务器端输出，而不包括JavaScript等客户端代码生成的部分。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值