给Word中所有图片批量添加水印软件源码

欲压缩目录名 ＝ 欲压缩目录名 ＋ 选择 (取文本右边 (欲压缩目录名, 1) ≠ “\”, “\”, “”)
临时文件 ＝ 取临时文件名 ()
写到文件 (临时文件, { })
处理事件 ()
zip.创建压缩文件 (保存文件名)
zip.打开文件 (保存文件名)
枚举 (欲压缩目录名, 局_文件名组, 局_目录名组)
目录总数 ＝ 取数组成员数 (局_目录名组)
文件总数 ＝ 取数组成员数 (局_文件名组)
.计次循环首 (目录总数, i)
显示名称 ＝ 子文本替换 (局_目录名组 [i].全路径, 欲压缩目录名, “”, , , 真)
.判断开始 (显示名称 ＝ “”)
zip.预订文件 (临时文件, 局_目录名组 [i].目录名 ＋ “\”, )
.默认
zip.预订文件 (临时文件, 显示名称 ＋ 局_目录名组 [i].目录名 ＋ “\”, )
.判断结束
' 调用子程序 (回调子程序, , , 目录总数, 文件总数, 0, 局_目录名组 [i].全路径, 局_目录名组 [i].目录名)
处理事件 ()
.计次循环尾 ()
.计次循环首 (文件总数, i)
显示名称 ＝ 子文本替换 (局_文件名组 [i].全路径, 欲压缩目录名, “”, , , 真)
.判断开始 (显示名称 ＝ “”) ' 当前目录
zip.预订文件 (局_文件名组 [i].全路径 ＋ 局_文件名组 [i].文件名, 局_文件名组 [i].文件名)
.默认
zip.预订文件 (局_文件名组 [i].全路径 ＋ 局_文件名组 [i].文件名, 显示名称 ＋ 局_文件名组 [i].文件名)
.判断结束
' 调用子程序 (回调子程序, , , 目录总数, 文件总数, 1, 局_文件名组 [i].全路径, 局_文件名组 [i].文件名)
.计次循环尾 ()
zip.压缩文件 ()
zip.关闭文件 ()
删除文件 (临时文件)
处理事件 ()