ole对象的操作

我在ole中插入了一个word对象，我在form窗体中加入了如下代码
Private Sub Form_Load()
OLE1.DoVerb.AppIsRunning = ture
End Sub
为了使vb在运行时可以直接操作ole中的word对象，而不用选择编辑
但是，在运行过程中出现了如下问题：
    缺少函数或对象
有哪位仁兄可以告诉我是什么原因吗？
如果要实现一运行就可以操作word，我该怎么操作
而且，我可以在按钮里面编写程序使其保存为一个我预先把名称定义好的word文档吗

解决方案 »

  1.   

    ole 好像无法保存，我以前试着找过，行不通。不知道是不是下的功夫不够
    最好还是用word.application来操作，功能全，也比较好控制
      

  2.   

    Private Sub Form_Load()
    'OLE1.AppIsRunning = ture  '这是预先运行APP。但不是进入编辑状态
    OLE1.DoVerb -1             '这是进入编辑状态
    End Sub
      

  3.   

    ////////我可以在按钮里面编写程序使其保存为一个我预先把名称定义好的word文档吗/////OLE1.object.application.documents(1).saveas "D:\test.doc"
      

  4.   

    楼上的仁兄，OLE1.DoVerb -1 确实可以进入编辑状态了，但是头上的对word操作的按钮似乎没有了，这是怎么回事啊
      

  5.   

    后面的保存word，我试过了，但是它出来说是
    saveas 方法或属性应该文档正在另一个应用程序中进行编辑而无效
    这又是什么原因呢？
      

  6.   

    a_cer(玩家) ，word.application可以把word嵌入到vb窗体中吗？
      

  7.   

    ///////////楼上的仁兄，OLE1.DoVerb -1 确实可以进入编辑状态了，但是头上的对word操作的按钮似乎没有了，这是怎么回事啊/////////////
    不是在Form_Load中执行就会有菜单，可用一个Timer来控制////////saveas 方法或属性应该文档正在另一个应用程序中进行编辑而无效
    这又是什么原因呢？/////
    没问题啊，
    OLE1.object.application.documents(1).saveas "D:\test.doc"
      

  8.   

    但是我运行了，他就是弹出来说
    “saveas 方法或属性应该文档正在另一个应用程序中进行编辑而无效”
    真实奇怪呀
      

  9.   

    我在按钮里面执行了
    OLE1.DoVerb -1    
    确实可以直接编辑了，多谢了，
    不过觉得有点美中不足的是，ole弹出来的编辑框太扁了， 给他预先设置一个高度吗？