求一个易语言生成PPT文件的例子

wh1234567

求一个易语言生成PPT文件的例子，不知道用易语言能不能实现将文本文件或图片等自动插入到PPT文件里？


补充内容 (2025-4-21 20:25):
如何用易语言将Word内容转换成多页PPT,(多个幻灯片)?求例子

花间一壶酒

可以生成  但是没有现成的例子  得根据你的具体情况定制  office系列  貌似除了Excel  还没有别的大佬造易语言轮子

wh1234567

花间一壶酒 发表于 2025-4-20 18:51
可以生成  但是没有现成的例子  得根据你的具体情况定制  office系列  貌似除了Excel  还没有别的大佬造易 ...

按您的经验先写个例子吧，

wh1234567

花间一壶酒 发表于 2025-4-20 18:51
可以生成  但是没有现成的例子  得根据你的具体情况定制  office系列  貌似除了Excel  还没有别的大佬造易 ...

将Word内容导入PPT里，自动分页，求例子

花间一壶酒

wh1234567 发表于 2025-4-21 08:38
将Word内容导入PPT里，自动分页，求例子

你这要求直接去定制吧  这里没办法给你干.......真不是5精币能干的事

wh1234567

花间一壶酒 发表于 2025-4-21 14:49
你这要求直接去定制吧  这里没办法给你干.......真不是5精币能干的事

只是想学习而已，写这个功能很复杂吗？易语言有没有相关命令？

花间一壶酒

wh1234567 发表于 2025-4-21 19:52
只是想学习而已，写这个功能很复杂吗？易语言有没有相关命令？

.....要调用COM对象啊  要看微软的文档啊  谁没事帮你去查文档啊

wh1234567

花间一壶酒 发表于 2025-4-21 20:03
.....要调用COM对象啊  要看微软的文档啊  谁没事帮你去查文档啊

  

子程序名	返回值类型	公开	备 注
_启动程序	整数型		, , 返回整数型

变量名	类 型	静态	数组	备 注
内容文本	文本型
ppt应用	对象型
ppt演示文稿	对象型
ppt幻灯片	对象型
word文档路径	文本型

word文档路径 = "C:\example.docx" ' Word文档路径
' 读取Word文档内容
内容文本 = 从Word读取内容 (word文档路径)
' 创建PPT应用和演示文稿
ppt应用 = 新建对象 ("PowerPoint.Application")
ppt演示文稿 = ppt应用.Presentations.Add ()
' 分割内容到多个幻灯片
分割内容到幻灯片 (内容文本, ppt演示文稿)
' 保存PPT文件
ppt演示文稿.SaveAs2 ("C:\output.pptx")
ppt演示文稿.Close ()
ppt应用.Quit ()
返回 0

子程序名	返回值类型	公开	备 注
分割内容到幻灯片			ppt演示文稿, , ,

变量名	类 型	静态	数组	备 注
分割位置	整数型
单页内容	文本型

分割位置 = 1
循环直到 (分割位置 > 0)
分割位置 = 定位文本 (内容文本, "段落结束标记", 分割位置) ' 这里假设“段落结束标记”是你用来分割内容的标记，如"\n\n"或其他特定格式
如果 (分割位置 > 0) 则
单页内容 = 中间文本 (内容文本, 分割位置 - Length ("段落结束标记"), 分割位置) ' 获取一段内容并移除分隔符
' 添加到新的幻灯片
ppt幻灯片 = ppt演示文稿.Slides.Add (1, ppLayoutText) ' 根据需要选择布局类型，这里使用文本布局
ppt幻灯片.Shapes (1).TextFrame.TextRange.Text = 单页内容 ' 设置幻灯片文本
分割位置 = 分割位置 + Length ("段落结束标记") ' 更新分割位置以指向下一个段落
否则退出循环
终止循环

子程序名	返回值类型	公开	备 注
从Word读取内容	文本型		, , 返回文本型

' 这里需要具体的实现细节，例如使用OLE或第三方库来读取Word文档内容。这里仅为示意。
返回 "这里是示例文本。" ' 应替换为实际从Word读取内容的代码。

.版本 2<br /> <br /> .子程序 _启动程序, 整数型, , , , 返回整数型<br /> .局部变量 内容文本, 文本型<br /> .局部变量 ppt应用, 对象型<br /> .局部变量 ppt演示文稿, 对象型<br /> .局部变量 ppt幻灯片, 对象型<br /> .局部变量 word文档路径, 文本型<br /> <br /> word文档路径 = "C:\example.docx" ' Word文档路径<br /> ' 读取Word文档内容<br /> 内容文本 = 从Word读取内容(word文档路径)<br /> ' 创建PPT应用和演示文稿<br /> ppt应用 = 新建对象("PowerPoint.Application")<br /> ppt演示文稿 = ppt应用.Presentations.Add()<br /> ' 分割内容到多个幻灯片<br /> 分割内容到幻灯片(内容文本, ppt演示文稿)<br /> ' 保存PPT文件<br /> ppt演示文稿.SaveAs2("C:\output.pptx")<br /> ppt演示文稿.Close()<br /> ppt应用.Quit()<br /> 返回 0<br /> <br /> .子程序 分割内容到幻灯片, , , ppt演示文稿, , ,<br /> .局部变量 分割位置, 整数型<br /> .局部变量 单页内容, 文本型<br /> <br /> 分割位置 = 1<br /> 循环直到 (分割位置 > 0)<br /> 分割位置 = 定位文本(内容文本, "段落结束标记", 分割位置) ' 这里假设“段落结束标记”是你用来分割内容的标记，如"\n\n"或其他特定格式<br /> 如果 (分割位置 > 0) 则<br /> 单页内容 = 中间文本(内容文本, 分割位置 - Length("段落结束标记"), 分割位置) ' 获取一段内容并移除分隔符<br /> ' 添加到新的幻灯片<br /> ppt幻灯片 = ppt演示文稿.Slides.Add(1, ppLayoutText) ' 根据需要选择布局类型，这里使用文本布局<br /> ppt幻灯片.Shapes(1).TextFrame.TextRange.Text = 单页内容 ' 设置幻灯片文本<br /> 分割位置 = 分割位置 + Length("段落结束标记") ' 更新分割位置以指向下一个段落<br /> 否则退出循环<br /> 终止循环<br /> <br /> .子程序 从Word读取内容, 文本型, , , , 返回文本型<br /> <br /> ' 这里需要具体的实现细节，例如使用OLE或第三方库来读取Word文档内容。这里仅为示意。<br /> 返回 "这里是示例文本。" ' 应替换为实际从Word读取内容的代码。

求修正



补充内容 (2025-4-21 20:36):
用AI生成的，不能使用，看来目前AI功能能力还太小

wh1234567

有没有研究者方面的老师指点一下？