问一个问题，谢谢！

Question

我现在希望做一个程序，程序可以打开word，excel。但是我希望打开word后，word是运行在我的程序里面，也就是希望word象我的子窗体一样，这样该如何做？

Answer 1

FAQ里面有一个FAQ是我提的，你自己找一下偶要下班闪人了的。。

Answer 2

Option Explicit
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 Command1_Click()
    Dim wdApp  As Word.Application
    Dim docNew As Word.Document
    Set wdApp = New Word.Application
    'Set docNew = wdApp.Documents.Add
    Set docNew = Word.Documents.Open("C:\Test.doc")
    wdApp.Visible = True
    Call SetParent(FindWindow("OpusApp", vbNullString), Me.Picture1.hWnd)
    wdApp.WindowState = wdWindowStateMaximize
End Sub窗体上放一个Button1和一个Pictrue1

Answer 3

直接在窗体中加一个OLE控件，并设置为WORD文档也是一法。