wps通过脚本往最后的偶数页插入图片示例

原创
2014/04/22 09:35
阅读数 598

项目中有个需求需要在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>


展开阅读全文
加载中

作者的其它热门文章

打赏
0
0 收藏
分享
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部