word不间断导出失败，不知道什么原因求大佬支招啊

查过

word不间断导出失败，不知道什么原因求大佬支招啊




奉上源码
https://wwiw.lanzouo.com/iTn8k2vp6lub


补充内容 (2025-5-8 21:31):
50大洋求解决方法

卿卿吖

加入延迟和处理事件试试

  

程序_延时 (200, )
系统_处理事件 ()

.版本 2<br /> <br />     程序_延时 (200, )<br />     系统_处理事件 ()

zainex

原因是直接创建都失败了：

那么为什么会创建失败呢？是不是要先安装office办公软件呢？
我不知道，你得去找原作者：

查过

卿卿吖 发表于 2025-5-8 20:39
加入延迟和处理事件试试.版本 2

    程序_延时 (200, )

加过不行

查过

zainex 发表于 2025-5-8 20:52
原因是直接创建都失败了：

那么为什么会创建失败呢？是不是要先安装office办公软件呢？

估计老哥没装word

lisher

你这没资源目录就返回了呀 ,可不没啥反应,你资源文件也没打包呀

你的猫

Word未正确初始化

  

窗口程序集名	保 留	保 留	备 注
(未填写程序集名)
变量名	类 型	数组	备 注
变量名	类 型	数组	备 注
word	对象

子程序名	返回值类型	公开	备 注
初始化Word

如果真 (word.创建 (“Word.Application”, ) ＝ 假)
信息框 (“无法创建Word对象，请检查Office是否安装！”, 0, , )
返回 ()
word.写属性 (“Visible”, 真)  ' 调试时可见，正式发布可设为假

.版本 2<br /> .程序集变量 word, 对象<br /> <br /> .子程序 初始化Word<br /> .如果真 (word.创建 (“Word.Application”, ) ＝ 假)<br />     信息框 (“无法创建Word对象，请检查Office是否安装！”, 0, , )<br />    返回 ()<br /> .如果真结束<br /> word.写属性 (“Visible”, 真)  ' 调试时可见，正式发布可设为假

COM对象未释放导致进程残留

  

子程序名	返回值类型	公开	备 注
释放Word对象

word.清除 ()
处理事件 ()  ' 确保资源释放

.子程序 释放Word对象<br /> word.清除 ()<br /> 处理事件 ()  ' 确保资源释放

文件路径或名称非法

  

变量名	类 型	静态	数组	备 注
文件名	文本型

文件名 ＝ “D:\test.docx”  ' 避免特殊字符（如*?<>），路径用英文
如果真 (文件是否存在 (文件名))
删除文件 (文件名)  ' 覆盖前先删除旧文件

.局部变量 文件名, 文本型<br /> 文件名 ＝ “D:\test.docx”  ' 避免特殊字符（如*?<>），路径用英文<br /> .如果真 (文件是否存在 (文件名))<br />     删除文件 (文件名)  ' 覆盖前先删除旧文件<br /> .如果真结束

Word版本兼容性问题

  

word.方法 (“Documents”).方法 (“Add”)
word.读对象型属性 (“ActiveDocument”).方法 (“SaveAs”, 文件名)

word.方法 (“Documents”).方法 (“Add”)<br /> word.读对象型属性 (“ActiveDocument”).方法 (“SaveAs”, 文件名)

查看错误详情

  

子程序名	返回值类型	公开	备 注
错误处理

变量名	类 型	静态	数组	备 注
err	错误信息

取错误信息 (err)
信息框 (“错误代码：” ＋ 到文本 (err.错误代码) ＋ #换行符 ＋ “错误信息：” ＋ err.错误描述, 0, , )

.子程序 错误处理<br /> .局部变量 err, 错误信息<br /> 取错误信息 (err)<br /> 信息框 (“错误代码：” ＋ 到文本 (err.错误代码) ＋ #换行符 ＋ “错误信息：” ＋ err.错误描述, 0, , )

  

窗口程序集名	保 留	保 留	备 注
(未填写程序集名)
变量名	类 型	数组	备 注
变量名	类 型	数组	备 注
word	对象
doc	对象

子程序名	返回值类型	公开	备 注
导出到Word
参数名	类 型	参考	可空	数组	备 注
内容	文本型
保存路径	文本型

如果真 (word.创建 (“Word.Application”, ) ＝ 假)
信息框 (“Word未安装或COM组件异常！”, 0, , )
返回 ()

doc ＝ word.读对象型属性 (“Documents”).方法 (“Add”)  ' 创建新文档
doc.读对象型属性 (“Content”).写属性 (“Text”, 内容)  ' 写入内容
如果真 (doc.方法 (“SaveAs”, 保存路径) ＝ 假)
信息框 (“保存失败，检查路径权限！”, 0, , )

doc.方法 (“Close”, 假)  ' 关闭文档不保存变更（已通过SaveAs保存）
word.方法 (“Quit”)  ' 退出Word
释放Word对象 ()

.版本 2<br /> .程序集变量 word, 对象<br /> .程序集变量 doc, 对象<br /> <br /> .子程序 导出到Word<br /> .参数 内容, 文本型<br /> .参数 保存路径, 文本型<br /> <br /> .如果真 (word.创建 (“Word.Application”, ) ＝ 假)<br />     信息框 (“Word未安装或COM组件异常！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> doc ＝ word.读对象型属性 (“Documents”).方法 (“Add”)  ' 创建新文档<br /> doc.读对象型属性 (“Content”).写属性 (“Text”, 内容)  ' 写入内容<br /> <br /> .如果真 (doc.方法 (“SaveAs”, 保存路径) ＝ 假)<br />     信息框 (“保存失败，检查路径权限！”, 0, , )<br /> .如果真结束<br /> <br /> doc.方法 (“Close”, 假)  ' 关闭文档不保存变更（已通过SaveAs保存）<br /> word.方法 (“Quit”)  ' 退出Word<br /> 释放Word对象 ()

lxh1230

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
图片数组	文本型	0

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

变量名	类 型	静态	数组	备 注
word	word类
目录	文本型
i	整数型
j	整数型
文本内容	文本型
路径	文本型
文件存在尝试次数	整数型

计次循环首 (10, i)
' 确保每次循环都使用新的Word对象
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.退出 ()
' 释放Word对象
' word ＝ 空
' 给系统一些时间释放资源
延时 (500)
计次循环尾 ()
信息框 (“完成”, 0, , )

子程序名	返回值类型	公开	备 注
遍历图片文件
参数名	类 型	参考	可空	数组	备 注
文件夹路径	文本型

变量名	类 型	静态	数组	备 注
搜索结果	文本型
图片扩展名	文本型		0
循环变量	整数型

清除数组 (图片数组)
图片扩展名 ＝ { “.jpg”, “.jpeg”, “.png”, “.bmp” }
搜索结果 ＝ 寻找文件 (文件夹路径 ＋ “\*.*”, )
判断循环首 (搜索结果 ≠ “”)
计次循环首 (取数组成员数 (图片扩展名), 循环变量)
如果真 (取文本右边 (搜索结果, 取文本长度 (图片扩展名 [循环变量])) ＝ 图片扩展名 [循环变量])
加入成员 (图片数组, 文件夹路径 ＋ “\” ＋ 搜索结果)

计次循环尾 ()
搜索结果 ＝ 寻找文件 (, )
判断循环尾 ()

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

复制指定文档内容 (, )

子程序名	返回值类型	公开	备 注
复制指定文档内容
参数名	类 型	参考	可空	数组	备 注
文档名称	文本型				传进来你自己的文档名称
word	word类

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 图片数组, 文本型, , "0"<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 word, word类<br /> .局部变量 目录, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 文本内容, 文本型<br /> .局部变量 路径, 文本型<br /> .局部变量 文件存在尝试次数, 整数型<br /> <br /> .计次循环首 (10, i)<br />     ' 确保每次循环都使用新的Word对象<br />     word.创建 ()<br />     word.新建文档 ()<br /> <br />     目录 ＝ 取运行目录 () ＋ “\”<br /> <br />     ' 获取图片<br />     .如果 (目录_是否存在 (目录 ＋ “图片素材”))<br />         遍历图片文件 (目录 ＋ “图片素材”)<br />     .否则<br />         信息框 (“未找到图片素材文件夹！”, 16, , )<br />         word.退出 ()<br />         返回 ()  ' 没有图片，退出子程序<br />     .如果结束<br /> <br />     ' 获取文本<br />     .如果真 (文件是否存在 (目录 ＋ “文本素材.txt”))<br />         文本内容 ＝ 读入文本 (打开文件 (目录 ＋ “文本素材.txt”, 1, ), )<br />     .如果真结束<br /> <br />     ' 使用不同的循环变量名<br />     .计次循环首 (取数组成员数 (图片数组), j)<br />         .如果真 (文件是否存在 (图片数组 [j]))<br />             word.插入图片 (图片数组 [j])<br />             word.输入文本 (, 1)<br />             word.输入文本 (文本内容, )<br />             word.输入文本 (, 1)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     ' 生成更精确的时间戳，避免文件名冲突<br />     路径 ＝ 目录 ＋ “test” ＋ 时间_到文本 (, 3, , ) ＋ “_” ＋ 到文本 (i) ＋ “.docx”<br /> <br />     word.另存文档 (路径)<br /> <br />     ' 确认文件是否成功保存<br />     文件存在尝试次数 ＝ 0<br />     .如果真 (文件是否存在 (路径) ＝ 假)<br />         .判断循环首 (文件存在尝试次数 ＜ 5)<br />             延时 (200)<br />             文件存在尝试次数 ＝ 文件存在尝试次数 ＋ 1<br />         .判断循环尾 ()<br /> <br />     .如果真结束<br />     调试输出 (“文件保存状态: ”, 文件是否存在 (路径), “ 路径: ”, 路径)<br /> <br />     word.关闭当前文档 ()<br />     word.退出 ()<br /> <br />     ' 释放Word对象<br />     ' word ＝ 空<br /> <br />     ' 给系统一些时间释放资源<br />     延时 (500)<br /> .计次循环尾 ()<br /> <br /> 信息框 (“完成”, 0, , )<br /> <br /> .子程序 遍历图片文件<br /> .参数 文件夹路径, 文本型<br /> .局部变量 搜索结果, 文本型<br /> .局部变量 图片扩展名, 文本型, , "0"<br /> .局部变量 循环变量, 整数型<br /> <br /> 清除数组 (图片数组)<br /> 图片扩展名 ＝ { “.jpg”, “.jpeg”, “.png”, “.bmp” }<br /> 搜索结果 ＝ 寻找文件 (文件夹路径 ＋ “\*.*”, )<br /> <br /> .判断循环首 (搜索结果 ≠ “”)<br />     .计次循环首 (取数组成员数 (图片扩展名), 循环变量)<br />         .如果真 (取文本右边 (搜索结果, 取文本长度 (图片扩展名 [循环变量])) ＝ 图片扩展名 [循环变量])<br />             加入成员 (图片数组, 文件夹路径 ＋ “\” ＋ 搜索结果)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     搜索结果 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 复制指定文档内容 (, )<br /> <br /> .子程序 复制指定文档内容<br /> .参数 文档名称, 文本型, , 传进来你自己的文档名称<br /> .参数 word, word类<br /> <br /> <br /> <br /> .子程序 __启动窗口_创建完毕

查过

你的猫 发表于 2025-5-8 22:19
Word未正确初始化
[e=2].版本 2
.程序集变量 word, 对象

老哥留个私聊下