说明:
文档的每一页用图片覆盖文一部分
脚本思路:
1. 在第一页调整好图片,再将此图片及格式应用到其他页
使用说明:
1. 运行一次即可
2. 使用前备份文件
function setImage(){
// 清理日志
let myStart = InputBox("请输入从第几页开始插入图片", "输入框", 2, undefined, undefined)
Console.log("输入内容是:"+myStart)
Console.clear();
ActiveDocument.Shapes.Item(1).Select();
Selection.Copy();
let count = Application.ActiveDocument.ActiveWindow.Panes.Item(1).Pages.Count;
Console.log("总共有"+count+"页");
for(let i=myStart;i<=count;i++){
let currPage = Application.ActiveDocument.ActiveWindow.Panes.Item(1).Pages.Item(i)
let pageRange = Application.ActiveDocument.Range().GoTo(wdGoToPage,wdGoToFirst,i);
Selection.SetRange(pageRange.Start,pageRange.End);
Selection.PasteAndFormat(wdUseDestinationStylesRecovery);
}
alert("运行完成");
}