运行时让WORD在VB的窗体中出现,而不是链接到WORD主界面,不能返回!

解决方案 »

  1.   

    找到word窗口句柄后用api函数setparent
      

  2.   

    不好意思,可能是我没有表叙清楚,我要的是把WORD的整个窗口嵌入VB窗口,而不是只嵌入WORD的编辑窗口!如有实例,立即送分!
      

  3.   

    Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub MDIForm_Load()
    Dim h As Long
    Dim wd As Object
    Set wd = CreateObject("Word.Application")
    wd.Visible = True
    h = FindWindow("OpusApp", wd.Caption)
    SetParent h, Me.hWnd
    End Sub
      

  4.   

    好像有到理啊那不是说我能够把它放入OCX控件中,进而在网页中显示出来么,太好了,不管行不行,先谢谢你,估计是不行。
      

  5.   

    hhjjhjhj(大头),谢谢你,我试过你的那段代码了,接近我想要的要求了!但还不是这样的!应该在你那个显示结果上再加点要求,一运行时就要内部的窗口最大化,而且不能改变,只能最大化,并且要去掉内部WOED窗口的标题栏,这样让内外两个窗口看上去成为一个窗口,内WORD的窗口大小只能随着外VB窗口的大小改变!
      

  6.   

    如果说不是放到窗体的某一个位置,而是放到OCX控件中,然后显示在网页中的某一个部位,不知道应该怎么做,请各位大侠帮忙,不胜感激!