生成word 多页

794532121

https://125.confly.eu.org/forum.php?mod ... &highlight=word

用的是上面大佬的模块


每一页都插入一个图片 但是图片下面很多空白的地方  用什么命令可以去掉空白的地方

大熊猫玩编程

望采纳---

  

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

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

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

' 调试输出 (目录 ＋ “图片素材\” ＋ 到文本 (i) ＋ “.png”)
word.插入图片 (目录 ＋ “图片素材\1.png”)
word.到文档尾 ()
word.输入文本 ( #换行符, )
word.到文档尾 ()
word.插入图片 (目录 ＋ “图片素材\1.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 /> .局部变量 图片数组, 文本型, , "0"<br /> .局部变量 word, word类<br /> .局部变量 目录, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 文本内容, 文本型<br /> .局部变量 路径, 文本型<br /> <br /> .计次循环首 (1, i)<br />     word.创建 ()<br />     word.新建文档 ()<br />     目录 ＝ 取运行目录 () ＋ “\”<br />     ' 获取图片<br />     .如果 (目录_是否存在 (目录 ＋ “图片素材”))<br />         遍历图片文件 (目录 ＋ “图片素材”)<br />     .否则<br />         返回 ()  ' 没有图片<br />     .如果结束<br /> <br />     ' 调试输出 (目录 ＋ “图片素材\” ＋ 到文本 (i) ＋ “.png”)<br />     word.插入图片 (目录 ＋ “图片素材\1.png”)<br />     word.到文档尾 ()<br />     word.输入文本 (#换行符, )<br />     word.到文档尾 ()<br />     word.插入图片 (目录 ＋ “图片素材\1.png”)<br />     word.到文档尾 ()<br />     word.输入文本 (#换行符, )<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, , )