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

最新推荐文章于 2024-12-11 23:09:11 发布

转载最新推荐文章于 2024-12-11 23:09:11 发布 · 320 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/psuyun/blog/224949

本文介绍如何使用VBA脚本在WPS文档的偶数页页脚中插入指定图片，包括处理文档页数为奇数时自动添加空白页的情况。此方法适用于特定版本的WPS。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

为什么80%的码农都做不了架构师？>>>

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

转载于:https://my.oschina.net/psuyun/blog/224949