急急急！！！！！有谁直到OLE嵌入word文档的具体用法，重赏！！！！不够以后补上...

[jackam]

只是在OLE中显示文档内容不可编辑......而且必须有滚动条.

[ozw]

把你的OLE控件放在一个PictureBox里，加一个垂直滚动条

Private Sub Form_Load()
OLE1.CreateEmbed "C:\temp\test.doc"
OLE1.Action = 1
OLE1.SizeMode = 2
End Sub

Private Sub VScroll1_Change()
OLE1.Top = -VScroll1.Value
End Sub

[ozw]

完善一点，再加一个水平滚动条
Private Sub Form_Load()
OLE1.CreateEmbed "C:\temp\test.doc"
OLE1.Action = 1
OLE1.SizeMode = 2
VScroll1.Max = OLE1.Height
HScroll1.Max = OLE1.Width
End Sub

Private Sub HScroll1_Change()
OLE1.Left = -HScroll1.Value
End Sub

Private Sub VScroll1_Change()
OLE1.Top = -VScroll1.Value
End Sub

[jackam]

沧浪客,你所做的还没达到我的效果啊.....我所要求的是要象word那样啊.....要不你留下E_Mail，我再详细给你讲讲.

[ozw]

[e-mail]
也许我也解决不了，不过可以给你提供点参考

[newyon]

安装ie5.0后，用VB的Webbrowser控件可能打开编辑Word文档！

[dzbswl]

[szxfp]

我的EMAIL是[e-mail],有兴趣可以和我联系，我做过这方面的工作。我不知道你要做到什么效果，如果是要做到直接使用WORD全部界面和功能，只用3、4条语句就可以实现了，使用VBA的语句。

[newyon]

Me.WebBrowser1.Navigate App.Path & "\使用word.doc"
DoEvents
Set m_WordDoc = Me.WebBrowser1.Document
'Set m_WordApp = m_WordDoc.Application
Set m_WordApp = Me.WebBrowser1.Document.Application