宏和js实现word内容替换

最新推荐文章于 2023-11-15 16:14:41 发布
最新推荐文章于 2023-11-15 16:14:41 发布
阅读量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
关注
wps/word 自动换行插入回车符 JS宏代码
dujianxiong的博客
03-14 2732
/** * 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宏实现一个文件夹内所有word文档的内容替换
03-22
NULL 博文链接：https://parra.iteye.com/blog/899893
javascript操作word实现替换功能
xhcyb的专栏
11-03 1136
               javascript操作word大全,javascript操作word实现替换功能              function makeword(){   try {     var wdApp    = new ActiveXObject ( "Word.Application" );   }   catch(e) {     alert( 要打印该表，您必须安装
JS调用word的模板 替换文字图片 设置图片大小
05-10
找了好久才调试成功，主要是导入图片设置图片尺寸比较麻烦，设置文字的demo比较多，但是很少有涉及到图片的demo ，好不容易找了一个分享一下
使用宏命令 批量替换 wordl中指定的文本内容
04-23
1，可批量替换word中的指定内容 ，亲测，实用。 ps：目录的深度超过3级后，有时替换不了。
宏批量替换多个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
多WORD文档批量查找替换 宏
03-03
当需要在多个WORD文档中批量查找替换时，此宏可帮助遍历整个目录下的所有doc和docx格式的word文件并批量进行替换保存操作，大大提高工作效率。 此文档是一个WORD的VBA宏，不存在病毒也无需注册收费。且除了需要打开...
javascript下用ActiveXObject控件替换word书签，将内容导出到word后打印第1/2页
10-30
4. **替换书签**：在JavaScript中，通过ActiveXObject实例，可以调用Word对象的`Execute_macro`方法或直接访问文档的书签，将`<textarea>`中的内容替换到Word文档的相应书签位置。 5. **打印第1/2页**：在替换完...
wps-js遍历word所有字符串替换字符.docm
最新发布
06-08
wps-js遍历word所有字符串替换字符.docm
Word批量转Pdf - 微软原生方法，不会出现乱码、方块字，不会错乱
07-24
Word和Pdf各有其优点，例如Word适合编辑和协作，而Pdf则擅长保持格式的一致性并便于分享。标题提到的“Word批量转Pdf - 微软原生方法”意味着我们将探讨一种利用微软官方支持的方法来执行此转换，这种方法能确保文件...
VBA中关于WORD的基本应用 比如批量改页眉页脚，从文件名取数字作为页眉等等。
qq_44588207的博客
04-19 4965
VBA中关于WORD的基本应用 比如批量改页眉页脚，从文件名取数字作为页眉等等。 以下是代码，直接在Word的VBA编辑器里粘贴上去就OK了。 Sub 批量转PDF() Dim i As Variant Dim t As Variant Dim str As String, n As Long, fd, Nam As String On Error GoTo err '如果程序执行错误 跳转...
VBA宏查找替换目录下所有Word文档中指定字符串
netscaner的专栏
10-29 1308
以前要替换大量文件里面特定名称或者某一错误时，需要逐一打开文件，非常麻烦，所以写了个VBA程序。过了这么多年，突然又要做同样的事情，发现新版本的Word不支持其中的Application.FileSearch了，又找不到合适的工具。只能又学习了新的VBA代码，改写了原来的VBA窗体程序，主要就是用Dir()函数。不支持子目录搜索，要把所有需要查找替换文件放在相同目录里。
JS批量替换(高亮)一组关键字
前端之路修远兮
11-30 2272
代码比较简单，直接放上 const keyWord = ['故宫','建筑','殿'], article = "北京故宫是中国明清两代的皇家宫殿，旧称为紫禁城，位于北京中轴线的中心，是中国古代宫廷建筑之精华。北京故宫以三大殿为中心，占地面积72万平方米，建筑面积约15万平方米，有大小宫殿七十多座，房屋九千余间。是世界上现存规模最大、保存最为完整的木质结构古建筑之一。"; let lightWo...
写一个VBA word宏，能够实现多个word文档替换文字的功能
weixin_42613360的博客
02-13 1614
下面是一个示例代码，可以实现在多个 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...
批量替换ppt内容_在office宏中运行即可
CSDN专栏--北京中关村
04-15 1157
批量替换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
JavaScript控制WORD文档
JavaEE架构与开发
01-13 289
由HTML输入的东西替换WORD文档中相应的标签方法如下　： var BookMarkName = "temp"; if (TANGER_OCX_OBJ.ActiveDocument.Bookmarks.Exists(BookMarkName) ){ TANGER_OCX_OBJ.ActiveDocument.Bookmarks(BookMarkName).select()    var bk...
Office Word 中的宏
u010804417的博客
11-15 2652
宏是一个批量处理程序命令，微软的office软件允许用户自己编写，叫VBA的脚本来增加其灵活性，进一步扩充它的能力，具体做法是在“工具”菜单“宏”－“宏”弹出的对话框输入宏名，然后按“创建”按钮会打开visual basic编辑器，你就可以编程了，这个就是宏。
JS实现文字替换
tusunjan
09-18 3558
<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title></title> <style type="text/css"> p{ width: 300px; background-color: aqua; padding: 10px; margin: 10px auto; } form{ b.
【Word】Word 2010录制宏批量替换选中文本中的段落标记
学而时习之
05-12 2327
文章目录录制宏代码修正 Word 2010替换功能非常强大，最近将PDF文件中的文本 copy 到 Word 进行整理时发现里边有很多的段落标记，一个一个替换非常麻烦，于是就想录制一个宏，偷偷懒！ 录制宏 选中需替换的文本内容，点击视图>>宏>>录制宏>>设置“宏名”，确定，开始录制过程："ctrl+H"调出“替换”对话框，在“查找内容”中输入“^p”，在“替换为”中留空，点击“全部替换”，跳出“word已完成对所选内容的搜索，是否搜索其余部分”，选“否”，点击“视图&g
使用JavaScript操作Word和Excel的实现代码详解
JavaScript 操作 Word 和 Excel 的实现代码 在本文中，我们将详细介绍如何使用 JavaScript 操作 Word 和 Excel 文档，包括创建新的 Word 文档、复制表格到 Word 文档、插入图片等操作。 创建新的 Word 文档 在 ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值