在工作中,经常遇到在Word文档中某特定位置写入内容,同事之前的做法是在Word文档需要写内容的地方做一个标志(插入一段作为表示的文字),然后在代码中执行宏进行替换。这个方法有个不好的地方就是占用服务器资源,而且进程必须要以管理员权限的帐号启动,否则速度特别慢。为了解决这个问题,我决定用JavaScript实现。今天写了一个脚本,测试了一下,觉得速度挺快的,发出来给需要的朋友参考:
//功能:在Word文档插入文字和图片,shimin.huaug
//参数一:insertType 插入内容类型,0为图片,1为文字
//参数二:filePath Word文档的路径
//参数三:tagArray Word文档中插入内容的定位标志
//参数四:insertArray 插入内容,可以为文字或图片的路径
function WordInsert(insertType,filePath,tagArray,insertArray)
{
//ShowWaitingPrompt();
if(tagArray.length != insertArray.length)
{
alert('参数数组长度不相同!');
return;
}
var arrayLength = tagArray.length;
var wordApp = null;
try
{
wordApp = new ActiveXObject('Word.Application');
}
catch(e)
{
alert(e+', 原因分析: 浏览器安全级别较高导致不能创建Word对象或者客户端没有安装Word软件');
return;
}
var wordDoc = wordApp.Documents.Open(filePath);
wordDoc.Activate();
var Selection = wordApp.Selection;
Selection.Find.Replacement.Text = '';
Selection.Find.Forward = true;
Selection.Find.Wrap = 1;
Selection.Find.Format = false;
Selection.Find.MatchCase = false;
Selection.Find.MatchWholeWord = false;
Selection.Find.MatchByte = true;
Selection.Find.MatchWildcards = false;
Selection.Find.MatchSoundsLike = false;
Selection.Find.MatchAllWordForms = false;
for(i = 0; i < arrayLength; i++)
{
Selection.Find.ClearFormatting();
Selection.Find.Text = tagArray[i];
while(Selection.Find.Execute())
{
if(insertType == 0)
{
Selection.InlineShapes.AddPicture(insertArray[i], false, true);
}
else if(insertType == 1)
{
Selection.TypeText(insertArray[i])
}
else
{
alert("没有定义该插入内容类型!")
return;
}
}
}
//CloseWaitingPrompt();
//wordDoc.PrintOut();
wordApp.visible = true;
}
转载于:https://www.cnblogs.com/sinmen/archive/2007/12/13/993096.html