1、用webbrowser 控件
Private Sub Command1_Click()
UserControl.WebBrowser1.Navigate2 "d:\sdas.doc"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'错误处理
'On Error Resume Next
UserControl.WebBrowser1.ExecWB OLECMDID_HIDETOOLBARS, OLECMDEXECOPT_DODEFAULT
End Sub
2、或者
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 Long
Dim h As Long
Dim wd As Object
Set wd = CreateObject("Word.Application")
wd.Visible = True
h = FindWindow("OpusApp", wd.Caption)
h = SetParent(h, frame1.hwnd)