句柄问题，请进！

Question

Set AppWord = CreateObject("Word.Application")
AppWord.Visible = True
SetParent AppWord, Frame1.hWnd
SetParent函数的第一个参数要求是句柄hwnd,可是用createobject函数返回的是一个对象，我用这个对象名来作为setparent函数的第一个参数，可是却提示类型不匹配？请问，我该怎么得到appword这个对象的句柄？

Answer 1

没做过。不过应该是用FindWindow Win32 API来作吧。Word对象模型里没有相关函数。

Answer 2

这样：
Private Sub Command3_Click()
Dim hwd As Long
Set AppWord = CreateObject("Word.Application")
DoEvents
hwd = FindWindow(vbNullString, AppWord.Caption)
SetParent hwd, Frame1.hWnd
AppWord.Visible = True
MsgBox "ok"
End Sub

Answer 3

你可以用 findwindow 来获取句柄

Answer 4

已经解决多谢lsftest
结帖！