Question

Word嵌入到VB窗体里的问题

Answer 1

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub OpenWord()
'打开Word文档
Dim hWndWordApp As Long
Dim WordObject As Word.Application
Dim WordDocument As Word.Document

Picture1.Visible = True

Set WordObject = CreateObject("Word.application")
WordObject.Visible = True
SetAttr FilePath, vbReadOnly 'FilePath为Word文档的路径

hWndWordApp = FindWindow("OpusApp", "Microsoft Word")
Call SetParent(hWndWordApp, Picture1.hwnd)

Set WordDocument = WordObject.Documents.Open(FilePath)
End Sub