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

查过

word不间断导出失败，不知道什么原因求支招 奉上源码 https://wwiw.lanzouo.com/iTn8k2vp6lub q5083922

大熊猫玩编程

之前发的帖子不是跟你说过了么？

查过

大熊猫玩编程 发表于 2025-5-10 17:43
之前发的帖子不是跟你说过了么？

已回--------------------------

MYSTERDEVIL

简单

lisher

源码已在上个贴子给出

你的猫

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
wordApp	对象
wordDoc	对象

子程序名	返回值类型	公开	备 注
导出Word文档	逻辑型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
文件路径	文本型
导出内容	文本型

如果真 (wordApp.是否为空 ())
wordApp.创建 ("Word.Application", )
wordApp.写属性 ("Visible", 假)  ' 不可见模式运行

如果真 (wordApp.是否为空 ())
信息框 ("无法创建Word应用程序对象", 0, "错误")
返回 (假)

wordDoc ＝ wordApp.对象型方法 ("Documents.Add")

' 写入内容
wordApp.获取属性 ("Selection").对象型方法 ("TypeText", 导出内容)

' 保存文档
wordDoc.方法 ("SaveAs", 文件路径)

' 关闭文档但不退出Word应用（保持进程继续运行）
wordDoc.方法 ("Close", 假)

返回 (真)

子程序名	返回值类型	公开	备 注
结束Word进程

如果真 (wordApp.是否为空 () ＝ 假)
wordApp.方法 ("Quit")
wordApp.清除 ()
wordDoc.清除 ()

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库

.版本 2<br /> .支持库 eExcel2000<br /> <br /> .程序集 程序集1<br /> .程序集变量 wordApp, 对象<br /> .程序集变量 wordDoc, 对象<br /> <br /> .子程序 导出Word文档, 逻辑型<br />     .参数 文件路径, 文本型<br />     .参数 导出内容, 文本型<br />     <br />     .如果真 (wordApp.是否为空 ())<br />         wordApp.创建 ("Word.Application", )<br />         wordApp.写属性 ("Visible", 假)  ' 不可见模式运行<br />     .如果真结束<br />     <br />     .如果真 (wordApp.是否为空 ())<br />         信息框 ("无法创建Word应用程序对象", 0, "错误")<br />         返回 (假)<br />     .如果真结束<br />     <br />     wordDoc ＝ wordApp.对象型方法 ("Documents.Add")<br />     <br />     ' 写入内容<br />     wordApp.获取属性 ("Selection").对象型方法 ("TypeText", 导出内容)<br />     <br />     ' 保存文档<br />     wordDoc.方法 ("SaveAs", 文件路径)<br />     <br />     ' 关闭文档但不退出Word应用（保持进程继续运行）<br />     wordDoc.方法 ("Close", 假)<br />     <br />     返回 (真)<br /> <br /> .子程序 结束Word进程<br />     .如果真 (wordApp.是否为空 () ＝ 假)<br />         wordApp.方法 ("Quit")<br />         wordApp.清除 ()<br />     .如果真结束<br />     wordDoc.清除 ()

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
wordApp	整数型
wordDocs	整数型

子程序名	返回值类型	公开	备 注
启动Word引擎	逻辑型

Co初始化 (0)
wordApp ＝ 创建对象 ("Word.Application")
如果真 (wordApp ＝ 0)
信息框 ("无法启动Word引擎", 0, )
返回 (假)

置属性值 (wordApp, "Visible", 假)  ' 后台运行
wordDocs ＝ 取属性值 (wordApp, "Documents")
返回 (真)

子程序名	返回值类型	公开	备 注
快速导出文档	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
内容数组	文本型
保存目录	文本型

.局部变量 i, 整数型
.局部变量 doc, 整数型
.局部变量 保存路径, 文本型

计次循环首 (取数组成员数 (内容数组), i)
doc ＝ 调用方法 (wordDocs, "Add")
调用方法 (取属性值 (wordApp, "Selection"), "TypeText", 内容数组 [i])

保存路径 ＝ 保存目录 ＋ "\文档_" ＋ 到文本 (i) ＋ ".docx"
调用方法 (doc, "SaveAs", 保存路径)
调用方法 (doc, "Close", 假)
释放对象 (doc)
计次循环尾 ()

返回 (i)

子程序名	返回值类型	公开	备 注
关闭Word引擎

如果真 (wordApp ≠ 0)
调用方法 (wordApp, "Quit")
释放对象 (wordDocs)
释放对象 (wordApp)
wordApp ＝ 0
Co卸载 ()

.版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 wordApp, 整数型<br /> .程序集变量 wordDocs, 整数型<br /> <br /> .子程序 启动Word引擎, 逻辑型<br />     Co初始化 (0)<br />     wordApp ＝ 创建对象 ("Word.Application")<br />     .如果真 (wordApp ＝ 0)<br />         信息框 ("无法启动Word引擎", 0, )<br />         返回 (假)<br />     .如果真结束<br />     <br />     置属性值 (wordApp, "Visible", 假)  ' 后台运行<br />     wordDocs ＝ 取属性值 (wordApp, "Documents")<br />     返回 (真)<br /> <br /> .子程序 快速导出文档, 整数型<br />     .参数 内容数组, 文本型, 数组<br />     .参数 保存目录, 文本型<br />     .局部变量 i, 整数型<br />     .局部变量 doc, 整数型<br />     .局部变量 保存路径, 文本型<br />     <br />     .计次循环首 (取数组成员数 (内容数组), i)<br />         doc ＝ 调用方法 (wordDocs, "Add")<br />         调用方法 (取属性值 (wordApp, "Selection"), "TypeText", 内容数组 <i>)<br />         <br />         保存路径 ＝ 保存目录 ＋ "\文档_" ＋ 到文本 (i) ＋ ".docx"<br />         调用方法 (doc, "SaveAs", 保存路径)<br />         调用方法 (doc, "Close", 假)<br />         释放对象 (doc)<br />     .计次循环尾 ()<br />     <br />     返回 (i)<br /> <br /> .子程序 关闭Word引擎<br />     .如果真 (wordApp ≠ 0)<br />         调用方法 (wordApp, "Quit")<br />         释放对象 (wordDocs)<br />         释放对象 (wordApp)<br />         wordApp ＝ 0<br />     .如果真结束<br />     Co卸载 ()

  

子程序名	返回值类型	公开	备 注
生成简易Word文档	逻辑型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
文件路径	文本型
内容文本	文本型

.局部变量 文件号, 整数型
.局部变量 头部, 文本型
.局部变量 尾部, 文本型

' 构建RTF格式文档
头部 ＝ "{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fnil\fcharset134 Microsoft YaHei;}}"
头部 ＝ 头部 ＋ "\viewkind4\uc1\pard\f0\fs24"  ' 设置字体大小

尾部 ＝ "\par}"

文件号 ＝ 打开文件 (文件路径, #重写, )
如果真 (文件号 ＝ 0)
返回 (假)

写出文本 (文件号, 头部 ＋ 内容文本 ＋ 尾部)
关闭文件 (文件号)

返回 (真)

.版本 2<br /> <br /> .子程序 生成简易Word文档, 逻辑型<br />     .参数 文件路径, 文本型<br />     .参数 内容文本, 文本型<br />     <br />     .局部变量 文件号, 整数型<br />     .局部变量 头部, 文本型<br />     .局部变量 尾部, 文本型<br />     <br />     ' 构建RTF格式文档<br />     头部 ＝ "{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fnil\fcharset134 Microsoft YaHei;}}"<br />     头部 ＝ 头部 ＋ "\viewkind4\uc1\pard\f0\fs24"  ' 设置字体大小<br />     <br />     尾部 ＝ "\par}"<br />     <br />     文件号 ＝ 打开文件 (文件路径, #重写, )<br />     .如果真 (文件号 ＝ 0)<br />         返回 (假)<br />     .如果真结束<br />     <br />     写出文本 (文件号, 头部 ＋ 内容文本 ＋ 尾部)<br />     关闭文件 (文件号)<br />     <br />     返回 (真)

都试试