丰富文本框的图文怎么导出到word

734030986

突然有个需求，就是将图文保存到word文档去。
用了论坛的丰富文本框模块，其他黑月自绘和云外归鸟的不会用。（下载了个黑月自绘的，没有窗口，不知道怎么载入他自绘这个窗口去，他例程是直接1个窗口直接运行，我的工具是有很多窗口，所以不知道怎么载入）

【图文混合编辑框，简单丰富文本框，支持图片拖放，复制粘贴，支持设置图片存储文件夹
https://bbs.125.la/forum.php?mod=viewthread&tid=14594932
(出处: 精易论坛)】


另外，解决了丰富文本之后，导入word文档又成了一大难题。不知道怎么把图片也一起导入进去。


丰富文本框的图文如下：


需要的就是用易语言编辑图文，然后导出到word目前有2个问题。
1、不用丰富文本框的话，有没有别的方式实现。
2、用丰富文本框的话，导入到Word的代码应该怎么写？

求大佬们指点下，感激不尽

阿丁

一直寻找word二次开发的方法，那个大神给一个

734030986

阿丁 发表于 2023-6-11 22:15
一直寻找word二次开发的方法，那个大神给一个

这个帖子会沉了，看来这个问题涉及到的问题不一般呐

阿丁

734030986 发表于 2023-6-12 08:48
这个帖子会沉了，看来这个问题涉及到的问题不一般呐

可能市场太小，代码太复杂，没人做

734030986

阿丁 发表于 2023-6-22 21:58
可能市场太小，代码太复杂，没人做

哎···  也是，只是针对少数人可能用到

tw1

请教一下，怎么操作将编辑框数据写入word表格中去。

734030986

tw1 发表于 2023-9-5 13:39
请教一下，怎么操作将编辑框数据写入word表格中去。

  

子程序名	返回值类型	公开	备 注
导出WORD

变量名	类 型	静态	数组	备 注
文件名称	文本型
寻找标题	文本型
文件名称2	文本型
保存的文档	文本型

创建目录 (取运行目录 () ＋ “\生成的文案”)
文件名称 ＝ 文本_取出文本中汉字 (文本_取出中间文本 (编辑框1.内容, “标题：”, “段落”, ))
文件名称2 ＝ 到文本 (取月份 (取现行时间 ())) ＋ “.” ＋ 到文本 (取日 (取现行时间 ()))
保存的文档 ＝ 文本_替换 (编辑框1.内容, , , , “段落一：”, “”, “段落二：”, “”, “段落三：”, “”)
Word程序1.创建 ()
Word文档集1.置程序 (Word程序1, 真)
Word文档集1.输入文本 (0, 保存的文档 ＋ #换行符 ＋ #换行符 ＋ “自定义文本~”)
如果 (文件名称 ≠ “”)
Word文档集1.保存 (取运行目录 () ＋ “\生成的文案\” ＋ 文件名称 ＋ “.docx”)
Word文档集1.保存 (取运行目录 () ＋ “\生成的文案\” ＋ 文件名称2 ＋ “.docx”)
调试输出 (文件名称)
调试输出 (文件名称2)
Word文档集1.关闭 ()
Word文档集1.销毁 ()
Word程序1.退出 ()
Word程序1.销毁 ()

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

.版本 2<br /> .支持库 eWord2000<br /> .支持库 spec<br /> <br /> .子程序 导出WORD<br /> .局部变量 文件名称, 文本型<br /> .局部变量 寻找标题, 文本型<br /> .局部变量 文件名称2, 文本型<br /> .局部变量 保存的文档, 文本型<br /> <br /> 创建目录 (取运行目录 () ＋ “\生成的文案”)<br /> 文件名称 ＝ 文本_取出文本中汉字 (文本_取出中间文本 (编辑框1.内容, “标题：”, “段落”, ))<br /> 文件名称2 ＝ 到文本 (取月份 (取现行时间 ())) ＋ “.” ＋ 到文本 (取日 (取现行时间 ()))<br /> 保存的文档 ＝ 文本_替换 (编辑框1.内容, , , , “段落一：”, “”, “段落二：”, “”, “段落三：”, “”)<br /> Word程序1.创建 ()<br /> Word文档集1.置程序 (Word程序1, 真)<br /> Word文档集1.输入文本 (0, 保存的文档 ＋ #换行符 ＋ #换行符 ＋ “自定义文本~”)<br /> .如果 (文件名称 ≠ “”)<br />     Word文档集1.保存 (取运行目录 () ＋ “\生成的文案\” ＋ 文件名称 ＋ “.docx”)<br /> .否则<br />     Word文档集1.保存 (取运行目录 () ＋ “\生成的文案\” ＋ 文件名称2 ＋ “.docx”)<br /> .如果结束<br /> 调试输出 (文件名称)<br /> 调试输出 (文件名称2)<br /> Word文档集1.关闭 ()<br /> Word文档集1.销毁 ()<br /> Word程序1.退出 ()<br /> Word程序1.销毁 ()

这是我做的一个AI生成文章的一段编辑框保存到word的代码，可以参考下

tw1

734030986 发表于 2023-9-7 08:15
[e=1].版本 2
.支持库 eWord2000
.支持库 spec

谢谢帮助，现在遇到一个新问题，怎么将多条数据写入word表格去，这个又怎么处理呢？

734030986

734030986 发表于 2023-9-7 08:15

  

[/quote]
下面这段是我做的多线程的，我对多线程不是很熟悉，代码就随便看下吧。这代码有个检测word程序是否关闭的动作，在程序打开后word会在后台启动了很多个，或者是前面关闭了又关闭失败的，导致程序崩溃或者保存出错，这儿用代码直接关闭完。
[e=1].版本 2

子程序名	返回值类型	公开	备 注
多线程导出

变量名	类 型	静态	数组	备 注
文件名称	文本型
寻找标题	文本型
文件名称2	文本型
保存的文档	文本型
分割文章数组	文本型		0
I	整数型
卧槽	正则表达式类

如果 (编辑框1.内容 ≠ “”)
卧槽.创建 (“标题” ＋ “.*?”, 编辑框1.内容)
导出线程数 ＝ 卧槽.取匹配数量 ()
透明标签1.标题 ＝ “文案导出中，耐心等待-（当前开启的多线程）” ＋ “  获得的文章数为：” ＋ 到文本 (导出线程数) ＋ “篇文章”



创建目录 (取运行目录 () ＋ “\生成的文案”)
计次循环首 (导出线程数, )
I ＝ 文本_分割文本 (编辑框1.内容, “标题：”, I, 分割文章数组)
保存的文档 ＝ “标题：” ＋ 文本_替换 (分割文章数组 [I], , , , “段落一：”, “”, “段落二：”, “”, “段落三：”, “”, , , , )
文件名称 ＝ 文本_取出文本中汉字 (文本_取出中间文本 (“标题：” ＋ 分割文章数组 [I], “标题：”, “段落”, ))
文件名称2 ＝ 到文本 (取月份 (取现行时间 ())) ＋ “.” ＋ 到文本 (取日 (取现行时间 ())) ＋ “.” ＋ 到文本 (取秒 (取现行时间 ()))
调试输出 (“保存的文档：” ＋ 保存的文档)
调试输出 (“文件名称：” ＋ 文件名称)
调试输出 (“文件名称2：” ＋ 文件名称2)
Word程序1.创建 ()
Word文档集1.置程序 (Word程序1, 真)
Word文档集1.输入文本 (0, 保存的文档 ＋ #换行符 ＋ #换行符 ＋ “自定义文案~”)
如果 (文件名称 ≠ “”)
Word文档集1.保存 (取运行目录 () ＋ “\生成的文案\” ＋ 文件名称 ＋ “.docx”)
Word文档集1.保存 (取运行目录 () ＋ “\生成的文案\” ＋ 文件名称2 ＋ “.docx”)
处理事件 ()
计次循环尾 ()
Word文档集1.关闭 ()
Word文档集1.销毁 ()
Word程序1.退出 ()
Word程序1.销毁 ()
透明标签1.标题 ＝ “保存成功！”
延迟 (5000)
如果 (透明标签1.标题 ＝ “保存成功！” ＝ 真)
判断循环首 (进程是否存在 (“wps.exe”))
如果 (终止进程 (“wps.exe”) ＝ 真)
调试输出 (“wps.exe  结束成功！”)
调试输出 (“wps.exe  结束失败！”)

判断循环尾 ()

子程序名	返回值类型	公开	备 注
进程是否存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
待检测进程	文本型

变量名	类 型	静态	数组	备 注
进程数组	进程信息		0
n	整数型

进程数组 ＝ 取系统进程列表 ()
计次循环首 (取数组成员数 (进程数组), n)
如果真 (到小写 (进程数组 [n].进程名称) ＝ 到小写 (待检测进程))
返回 (真)

计次循环尾 ()
返回 (假)

i支持库列表	支持库注释
eWord2000	WORD2000支持库
spec	特殊功能支持库
iext	扩展界面支持库一
eAPI	应用接口支持库

.版本 2<br /> .支持库 eWord2000<br /> .支持库 spec</blockquote></div><br /> 下面这段是我做的多线程的，我对多线程不是很熟悉，代码就随便看下吧。这代码有个检测word程序是否关闭的动作，在程序打开后word会在后台启动了很多个，或者是前面关闭了又关闭失败的，导致程序崩溃或者保存出错，这儿用代码直接关闭完。<br /> <br /> <br /> [e=1].版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 eWord2000<br /> .支持库 eAPI<br /> <br /> .子程序 多线程导出<br /> .局部变量 文件名称, 文本型<br /> .局部变量 寻找标题, 文本型<br /> .局部变量 文件名称2, 文本型<br /> .局部变量 保存的文档, 文本型<br /> .局部变量 分割文章数组, 文本型, , "0"<br /> .局部变量 I, 整数型<br /> .局部变量 卧槽, 正则表达式类<br /> <br /> .如果 (编辑框1.内容 ≠ “”)<br />     卧槽.创建 (“标题” ＋ “.*?”, 编辑框1.内容)<br />     导出线程数 ＝ 卧槽.取匹配数量 ()<br />     透明标签1.标题 ＝ “文案导出中，耐心等待-（当前开启的多线程）” ＋ “  获得的文章数为：” ＋ 到文本 (导出线程数) ＋ “篇文章”<br /> .否则<br /> <br /> .如果结束<br /> <br /> 创建目录 (取运行目录 () ＋ “\生成的文案”)<br /> .计次循环首 (导出线程数, )<br />     I ＝ 文本_分割文本 (编辑框1.内容, “标题：”, I, 分割文章数组)<br />     保存的文档 ＝ “标题：” ＋ 文本_替换 (分割文章数组 [I], , , , “段落一：”, “”, “段落二：”, “”, “段落三：”, “”, , , , )<br />     文件名称 ＝ 文本_取出文本中汉字 (文本_取出中间文本 (“标题：” ＋ 分割文章数组 [I], “标题：”, “段落”, ))<br />     文件名称2 ＝ 到文本 (取月份 (取现行时间 ())) ＋ “.” ＋ 到文本 (取日 (取现行时间 ())) ＋ “.” ＋ 到文本 (取秒 (取现行时间 ()))<br />     调试输出 (“保存的文档：” ＋ 保存的文档)<br />     调试输出 (“文件名称：” ＋ 文件名称)<br />     调试输出 (“文件名称2：” ＋ 文件名称2)<br />     Word程序1.创建 ()<br />     Word文档集1.置程序 (Word程序1, 真)<br />     Word文档集1.输入文本 (0, 保存的文档 ＋ #换行符 ＋ #换行符 ＋ “自定义文案~”)<br />     .如果 (文件名称 ≠ “”)<br />         Word文档集1.保存 (取运行目录 () ＋ “\生成的文案\” ＋ 文件名称 ＋ “.docx”)<br />     .否则<br />         Word文档集1.保存 (取运行目录 () ＋ “\生成的文案\” ＋ 文件名称2 ＋ “.docx”)<br />     .如果结束<br />     处理事件 ()<br /> .计次循环尾 ()<br /> Word文档集1.关闭 ()<br /> Word文档集1.销毁 ()<br /> Word程序1.退出 ()<br /> Word程序1.销毁 ()<br /> 透明标签1.标题 ＝ “保存成功！”<br /> 延迟 (5000)<br /> .如果 (透明标签1.标题 ＝ “保存成功！” ＝ 真)<br />     .判断循环首 (进程是否存在 (“wps.exe”))<br />         .如果 (终止进程 (“wps.exe”) ＝ 真)<br />             调试输出 (“wps.exe  结束成功！”)<br />         .否则<br />             调试输出 (“wps.exe  结束失败！”)<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 进程是否存在, 逻辑型<br /> .参数 待检测进程, 文本型<br /> .局部变量 进程数组, 进程信息, , "0"<br /> .局部变量 n, 整数型<br /> <br /> 进程数组 ＝ 取系统进程列表 ()<br /> .计次循环首 (取数组成员数 (进程数组), n)<br />     .如果真 (到小写 (进程数组 [n].进程名称) ＝ 到小写 (待检测进程))<br />         返回 (真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)

734030986

tw1 发表于 2023-9-7 08:20
谢谢帮助，现在遇到一个新问题，怎么将多条数据写入word表格去，这个又怎么处理呢？ ...

word表格？  表格的你直接用excel 就好啦  ，word表格我也不太会操作， 超级列表框导入到excel的话很简单