word类会玩的来，50圆子求解决方法

查过

不苦小和尚 发表于 2025-5-10 15:53
怎么联系你？

q5083922
66666666666666666666

查过

lisher 发表于 2025-5-10 13:27
昨天不就发了一遍,你好歹把"文本素材.txt"格式发来呀,不然靠猜么

补充内容 (2025-5-10 13:32):

随便都行，插入内容 换行，在插入图片，另存就行

查过

大熊猫玩编程 发表于 2025-5-10 17:54
word.置内容 (#换行符)

试过不行.....................

查过

职业选手 发表于 2025-5-10 16:33
找都了吗~~

木有...................

lisher

查过 发表于 2025-5-10 18:31
随便都行，插入内容 换行，在插入图片，另存就行

没用你那模块,直接用的对象方法,给你详细的注释了 你看下吧
word批量生成工具.zip (871.62 KB, 下载次数: 1)

2025-5-10 20:13 上传

点击文件名下载附件

大熊猫玩编程

查过 发表于 2025-5-10 18:31
试过不行.....................

你试一下这个

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
word	word类
目录	文本型
i	整数型
文本内容	文本型
路径	文本型

计次循环首 (2, i)
word.创建 ()
word.新建文档 ()
目录 ＝ 取运行目录 () ＋ “\”
' 获取图片
如果 (目录_是否存在 (目录 ＋ “图片素材”))
遍历图片文件 (目录 ＋ “图片素材”)
返回 ()  ' 没有图片

调试输出 (目录 ＋ “图片素材\” ＋ 到文本 (i) ＋ “.png”)
word.插入图片 (目录 ＋ “图片素材\” ＋ 到文本 (i) ＋ “.png”)
word.到文档尾 ()
word.输入文本 ( #换行符, )
如果真 (文件是否存在 (目录 ＋ “文本素材.txt”))
文本内容 ＝ 读入文本 (打开文件 (目录 ＋ “文本素材.txt”, 1, ), )
调试输出 (文本内容)

word.到文档尾 ()
word.输入文本 (文本内容 ＋ #换行符, )
路径 ＝ 目录 ＋ “test” ＋ 时间_到文本 (, 3, , ) ＋ “.docx”
word.另存文档 (路径)
word.关闭当前文档 ()
word.退出 ()
调试输出 (文件是否存在 (路径))
程序_延时 (100, )
计次循环尾 ()
信息框 (“完成”, 0, , )

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 word, word类<br /> .局部变量 目录, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 文本内容, 文本型<br /> .局部变量 路径, 文本型<br /> <br /> .计次循环首 (2, i)<br />     word.创建 ()<br />     word.新建文档 ()<br />     目录 ＝ 取运行目录 () ＋ “\”<br />     ' 获取图片<br />     .如果 (目录_是否存在 (目录 ＋ “图片素材”))<br />         遍历图片文件 (目录 ＋ “图片素材”)<br />     .否则<br />         返回 ()  ' 没有图片<br />     .如果结束<br /> <br />     调试输出 (目录 ＋ “图片素材\” ＋ 到文本 (i) ＋ “.png”)<br />     word.插入图片 (目录 ＋ “图片素材\” ＋ 到文本 (i) ＋ “.png”)<br />     word.到文档尾 ()<br />     word.输入文本 (#换行符, )<br /> <br />     .如果真 (文件是否存在 (目录 ＋ “文本素材.txt”))<br />         文本内容 ＝ 读入文本 (打开文件 (目录 ＋ “文本素材.txt”, 1, ), )<br />         调试输出 (文本内容)<br />     .如果真结束<br /> <br />     word.到文档尾 ()<br />     word.输入文本 (文本内容 ＋ #换行符, )<br />     路径 ＝ 目录 ＋ “test” ＋ 时间_到文本 (, 3, , ) ＋ “.docx”<br /> <br />     word.另存文档 (路径)<br />     word.关闭当前文档 ()<br />     word.退出 ()<br />     调试输出 (文件是否存在 (路径))<br />     程序_延时 (100, )<br /> .计次循环尾 ()<br /> 信息框 (“完成”, 0, , )

补充内容 (2025-5-10 20:30):
程序_延时 (100, )
换成   程序_延时 (1000, )