WORD2PPT

seetop · 发表于 2012-8-15 08:58

最近一直在找WORD转为PPT的工具，发现没有。WORD转PPT只能转文字，不能转图片或表格，而且文字太多了又会死机。

经过2天的钻研，编写了简单的WORD转PPT的宏，功能简单，难免存在些错误BUG，目前只在PPT2003用过，PPT2007还用不了。希望有兴趣的可以来完善它。

WordToPPT.rar (10.13 KB, 下载次数: 114)

kakaco · 发表于 2012-8-15 09:15

怎么用啊。亲。。

lzqlaj · 发表于 2012-8-15 09:22

用这个需要引用什么吗?为什么运行后提示Private Sub copyWD2PP1(wdRng1 As Word.Range, ppPTN As Presentation未定义。

chuhaiou · 发表于 2012-8-15 12:02

本帖最后由 chuhaiou 于 2012-8-15 12:05 编辑

有实际价值，值得完善！
有这样几个问题：
1、没能实现原格式转换，如数字上、下标转换后不见了
2、没能实现图片的转换
3、最好能通过调用对话框打开需要转换的WORD文档

chuhaiou · 发表于 2012-8-15 12:06

本帖最后由 chuhaiou 于 2012-8-15 12:14 编辑

lzqlaj 发表于 2012-8-15 09:22
用这个需要引用什么吗?为什么运行后提示Private Sub copyWD2PP1(wdRng1 As Word.Range, ppPTN As Presentat ...

要引用Microsoft word 11.0 object Library

lzqlaj · 发表于 2012-8-15 13:32

chuhaiou 发表于 2012-8-15 12:06
要引用Microsoft word 11.0 object Library

谢谢。能否提供"计划手册1.doc"供测试，改名其它word文件为'计划手册1.doc"，放在同一文件夹下，运行错误。。

chuhaiou · 发表于 2012-8-15 19:00

lzqlaj 发表于 2012-8-15 13:32
谢谢。能否提供"计划手册1.doc"供测试，改名其它word文件为'计划手册1.doc"，放在同一文件夹下，运行错误 ...

虽有运行错误的提示，但仍然还是转换了。

lzqlaj · 发表于 2012-8-15 19:37

chuhaiou 发表于 2012-8-15 19:00
虽有运行错误的提示，但仍然还是转换了。

没转换成功，不知为什么。

chuhaiou · 发表于 2012-8-15 23:22

本帖最后由 chuhaiou 于 2012-8-15 23:23 编辑

lzqlaj 发表于 2012-8-15 19:37
没转换成功，不知为什么。

奇了，我能转换成功！但格式变了、图片不见了！

banjinjiu · 发表于 2014-4-29 18:07

工具—引用microsoft office word 11.0 object library，但是在运行“Sub 导入WORD文档()”宏时，到Set wdApp1 = New Word.Application，出现，运行时错误'430'，类不支持自动化(automation)或不支持期待的接口。改成Set wdApp1 = CreateObject(Word.Application)，还是出现同样的提示，请指教。

		自动登录	找回密码
密码			免费注册