数据质量监控:vb6.0 ole 如何显示word文档（多页）?

来源：百度文库编辑：杭州交通信息网时间：2024/04/29 18:13:23

在ole容器，打开一个多页的word文档，我加了滚动条，但是只会显示一页，请问如何显示后面的页数？

Private wordtemps As New Word.Application

Private Sub Form_Load()
tempfilename = "d:\200641915421.doc"

wordtemps.Documents.Open FileName:=tempfilename, ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto

'wordtemps.Application.ActiveDocument.PageSetup.PageHeight = CentimetersToPoints(55)

'tempfilename = App.Path & "/ico/2006419153253.doc"

OLE1.CreateEmbed (tempfilename)

wordtemps.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

Picture1.Visible = True

Picture1.ScaleMode = 1
OLE1.SizeMode = 2 '设定ole自动调整大小，建议在设计阶段就设好
OLE1.Refresh '如此，这两行可以省下不用写
OLE1.Left = 0
OLE1.Top = 0
VScroll1.Max = OLE1.Height - Picture1.ScaleHeight
VScroll1.Min = 0
VScroll1.LargeChange = OLE1.Height \ 20
VScroll1.SmallChange = OLE1.Height \ 100

End Sub
'滚动条拉动时运行
Private Sub VScroll1_Change()

OLE1.Top = -1 * VScroll1.Value

End Sub

vb6.0 ole 如何显示word文档（多页）? 如何在 word文档上分行显示两页文档？ VB6 :如何在Activex控件中使用OLE 扫描的文件如何在word里以文档显示在Word文档中如何在首页不显示页眉？如何在vb6.0中显示更新过数据库如何合并WORD文档如何解密Word文档如何恢复Word文档？ word文档如何解密？