悲哀啊，看来VB6开发Office2007应用是不行了……

Question

在Office2003下运行很正常的程序，在Office2007下一运行就报错崩溃了，直接在安装了VB6和Office2007的机子上调试，一运行，VB6也报错崩溃了，直接退出了……，换了台电脑，也是一样看来开发Office2007，VB6不行了

Answer 1

在PPT2003中可以用这样的语句:
  Set Ppt = CreateObject("PowerPoint.Application")
  Set Pst = Ppt.Presentations.Open(FileName, , , 0)
但是在Office2007下，Ppt.Presentations.Open这一句会出错，改用Ppt.Presentations.Open2007也会报错。所以不是我悲观，事实就是很悲观的啊……

Answer 2

你去找资料看看，说不定接口改变了呢，一般遇到这样的问题我总认为是人的问题。 它既然仍旧保留了vba二次开发技术，那么肯定是经过测试发布的，不可能bug重重。

Answer 3

我试了一下，不仅是Powerpoint，Word2007也发生了很大变化，上面说的一运行VB6就崩溃退出的，就是在Word2003下完全正常运行的程序。

Answer 4

肯定是接口有所变化。你查一下2007的VBA对象库，然后对照一下修改，重新编译。

Answer 5

现在VB6结合OFFICE的开发很多都是OFFICE2003的，OFFICE2007是有变化的。

Answer 6

俺用VB6 office2007
没有发现有楼主说的现象
楼主的系统出问题了

Answer 7

真的吗？我在Win2003和WinXP下测试都出现同样的问题：一个引用Word对象的工程，一运行，VB6就崩溃退出……

Answer 8

我也经常调用office，即便是2010也没有任何问题。

Answer 9

我原来有个程序用office2003的，在office2007能运行的。你改了库的引用了吗？

Answer 10

可能需要先点‘控制面板、添加或删除程序、Office 2007、更改’，然后选择安装‘Office共享功能\Visual Basic for Applications’

Answer 11

那请您解答一下我的问题:

http://topic.csdn.net/u/20111018/22/ac285742-43ac-492f-9d2c-9bf4e36fceec.html

Answer 12

我在 WinXP/SP1 + VB6.0 + Office 2003 下写的程序，在别人安装 WinXP/SP3 + Office 2007 下运行，完全正常。-_-!!!

Answer 13

你用到的是Word或Excel吧,请你按我的贴子试试,VB6还能不能打开PPT文档!

Answer 14

是 Excel 的。
我明天去试试 PPT 。

Answer 15

经测试，操作 PPT 文件也完全正常。

Answer 16

自认为NB,我说的不对的人,请到这里来回答我的贴子,我问了半年了,如果真是我水平不够你很NB,为什么我的三个贴子半年没人解答?
http://topic.csdn.net/u/20111018/17/86ba7260-fec4-4590-b8bd-2b07e62bb375.html
http://topic.csdn.net/u/20111018/22/23820ff6-5dee-4621-94ed-9026ee035528.htmlhttp://topic.csdn.net/u/20111018/22/ac285742-43ac-492f-9d2c-9bf4e36fceec.html
22楼的,你很NB吗,来回答下我的问题吧!

Answer 17

这几天上班任务较多，没时间细测了。
以上回的依稀记忆贴点代码给你参考一下吧，至少这样的代码在我这儿没有象楼主在2F中说的“Open”就出错的问题。Option ExplicitPrivate objApp As Object
Private objDoc As ObjectPrivate Sub Command1_Click()
' 打开文档
   Dim strFileName As String
   ' 这儿用适合你的程序环境的方式得到要打开文档的完整路径
   strFileName = "X:\Temp\演示文稿1.ppt"
   objApp.Visible = -1
   Set objDoc = objApp.Presentations.Open(strFileName, 0&, -1&)
End SubPrivate Sub Command2_Click()
' 关闭文档
   objDoc.Close
   Set objDoc = Nothing
End SubPrivate Sub Form_Load()
   Set objApp = CreateObject("Powerpoint.Application")
End Sub

Answer 18

楼主 你的情况我也遇到过   是office2007版本的事  我开始也一直以为解决不了ppt和word的问题 不过后来我们公司买了个正版的office2007 word问题解决了ppt还没试 国内盗版的2007有很多东西是不全的 你要不换个真版的试一试

Answer 19

这个是没问题，因为您是在Powerpoint2003下操作吧，在2003下确实正常，但2007下就不行了

Answer 20

建议你再次安装Visual Basic for Applications试试，我用2013版的OFFICE开发的POWERPOINT自动化完全没有此问题；另外，建议你引用高版本的OFFICE库；PS：LZ是来问问题，还是来吵架的！？看上面的回复，呵呵！