| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| (未填写程序集名) | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 变量名 | 类 型 | 数组 | 备 注 |
| word | 对象 | |
如果真 (word.
创建 (“Word.Application”,
) ＝
假)
信息框 (“无法创建Word对象，请检查Office是否安装！”, 0, ,
)返回 ()word.写属性 (“Visible”, 真)
取错误信息 (err
)信息框 (“错误代码：” ＋
到文本 (err.错误代码
) ＋
#换行符 ＋
“错误信息：” ＋ err.错误描述, 0, ,
)
| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| (未填写程序集名) | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 变量名 | 类 型 | 数组 | 备 注 |
| word | 对象 | |
| doc | 对象 | |
如果真 (word.
创建 (“Word.Application”,
) ＝
假)
信息框 (“Word未安装或COM组件异常！”, 0, ,
)返回 ()
doc ＝ word.
读对象型属性 (“Documents”).
方法 (“Add”) doc.
读对象型属性 (“Content”).
写属性 (“Text”, 内容
) 如果真 (doc.
方法 (“SaveAs”, 保存路径
) ＝
假)信息框 (“保存失败，检查路径权限！”, 0, ,
)doc.
方法 (“Close”,
假) word.
方法 (“Quit”) 释放Word对象 ()
| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 图片数组 | 文本型 | 0 |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| word | word类 | | |
| 目录 | 文本型 | | |
| i | 整数型 | | |
| j | 整数型 | | |
| 文本内容 | 文本型 | | |
| 路径 | 文本型 | | |
| 文件存在尝试次数 | 整数型 | | |
计次循环首 (10, i
)
word.
创建 ()word.
新建文档 ()目录 ＝
取运行目录 () ＋
“\” 
如果 (目录_是否存在 (目录 ＋
“图片素材”))
遍历图片文件 (目录 ＋
“图片素材”)
信息框 (“未找到图片素材文件夹！”, 16, ,
)
word.
退出 ()返回 () 
如果真 (文件是否存在 (目录 ＋
“文本素材.txt”))
文本内容 ＝
读入文本 (打开文件 (目录 ＋
“文本素材.txt”, 1,
),
)
计次循环首 (取数组成员数 (图片数组
), j
)如果真 (文件是否存在 (图片数组
[j
]))
word.
插入图片 (图片数组
[j
])word.
输入文本 (, 1
)word.
输入文本 (文本内容,
)word.
输入文本 (, 1
)
计次循环尾 () 路径 ＝ 目录 ＋
“test” ＋
时间_到文本 (, 3, ,
) ＋
“_” ＋
到文本 (i
) ＋
“.docx”word.
另存文档 (路径
) 文件存在尝试次数 ＝ 0
如果真 (文件是否存在 (路径
) ＝
假)判断循环首 (文件存在尝试次数 ＜ 5
)延时 (200
)文件存在尝试次数 ＝ 文件存在尝试次数 ＋ 1
判断循环尾 ()调试输出 (“文件保存状态: ”, 文件是否存在 (路径), “ 路径: ”, 路径)word.
关闭当前文档 ()word.
退出 () 延时 (500
)计次循环尾 ()信息框 (“完成”, 0, ,
)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 搜索结果 | 文本型 | | |
| 图片扩展名 | 文本型 | | 0 |
| 循环变量 | 整数型 | | |
清除数组 (图片数组
)图片扩展名 ＝
{ “.jpg”,
“.jpeg”,
“.png”,
“.bmp” }搜索结果 ＝
寻找文件 (文件夹路径 ＋
“\*.*”,
)判断循环首 (搜索结果 ≠
“”)计次循环首 (取数组成员数 (图片扩展名
), 循环变量
)如果真 (取文本右边 (搜索结果,
取文本长度 (图片扩展名
[循环变量
])) ＝ 图片扩展名
[循环变量
])加入成员 (图片数组, 文件夹路径 ＋
“\” ＋ 搜索结果
)计次循环尾 ()搜索结果 ＝
寻找文件 (,
)判断循环尾 ()复制指定文档内容 (,
)|
| 复制指定文档内容 | | |
|
| 文档名称 | 文本型 | | | |
word | word类 | | | |
