我自己试了一下，用一个PictureBox控件容器，打开的Word显示在PictureBox里,
在模块用到了两个API函数
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 LongPrivate 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
问题：
这样写后在Picture框里可以显示word了，不过我想让打开的word能自动填满picture，请问要怎么做啊？还有就是想让picture框里的word文档在隔一段时间后自动翻页（假设word里有多页的话）
2006-03-28 11:47
