项目中有个需求需要在word文档中最后一页偶数页的页脚(没有偶数页的情况下,新增一页)插入指定的图片,下面是示例代码,注意跟wps的版本有关系,我使用的版本是8.1,这段代码是不起作用的,高版本下可行,仅供参考。
<html>
<head>
<script>
function runWps(){
try{
var wpsObj = new ActiveXObject("KWPS.Application");
wpsObj.Visible = true;
wpsObj.ScreenUpdating = false;
var wpsdoc = wpsObj.Documents.Open("C:\\Users\\pengzong\\Desktop\\问题.docx",true);
var icount = wpsdoc.BuiltInDocumentProperties(14);
if((icount%2)>0){
wpsdoc.Content.Select();
wpsdoc.ActiveWindow.Selection.EndKey();
wpsdoc.ActiveWindow.Selection.InsertBreak(7);
icount = icount + 1;
}
wpsdoc.ActiveWindow.Selection.GoTo(1,1,icount);
wpsdoc.ActiveWindow.Selection.InsertBreak(2);
wpsdoc.ActiveWindow.ActivePane.View.SeekView = 10;
wpsdoc.ActiveWindow.Selection.HeaderFooter.LinkToPrevious = false;
var pic = "C:\\Users\\pengzong\\Desktop\\1.png";
wpsdoc.ActiveWindow.Selection.InlineShapes.AddPicture(pic);
wpsdoc.ActiveWindow.Selection.ParagraphFormat.Alignment = 2;
wpsdoc.ActiveWindow.ActivePane.View.SeekView = 10;
wpsdoc.ActiveWindow.Selection.GoTo(1,1,icount);
wpsdoc.ActiveWindow.Selection.TypeBackspace;
wpsdoc.ActiveWindow.Selection.GoTo(1,1,1);
wpsObj.ScreenUpdating = true;
}catch(e){
alert("DLL加载错误");
}
}
</script>
</head>
<body>
<input type="button" name="t" id="t" onclick="runWps()" value="执行WPS"/>
</body>
<html>