 |
关于Word在窗口中显示，有一个最简单的办法：使用系统自带的WebBrowser控件，该控件需要你自己添加到工具箱中，具体可在工具箱上点右键--->点“部件”--->在控件中找到“Microsoft Internet Controls”控件并选择，这样该控件就被添加到你的工具箱中。
关于 WebBrowser + Word 的使用：
Private Sub Form_Load()
WebBrowser1.Navigate "C:\Test.doc" '将 Word 文件载入到控件中
End Sub
如果你需要对载入的 Word 文件进行VBA操作，最好先引一下Office的类库以及Word的类库(Microsoft Word X.0 Object Library & Microsoft Office X.0 Object Library)，这些都是在菜单(工程\引用)里添加的。
例如：要载入一份Word，然后选择全部内容，并复制到剪粘板：
Private Sub Form_Load()
WebBrowser1.Navigate "C:\Test.doc" '将 Word 文件载入到控件中
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Selection.WholeStory '全选
Selection.Copy '复制
End Sub
虽然可以做到这一步，你并不能指望不能有什么控件能让你把Word的工具栏也给你放上去，本人经过很长时间的摸索都没有搞定，最好还是自己画工具栏，然后调宏代码，我觉得这是比较可行的办法，Over...
 linzl的意见：
用WebBrowser + Word 可以把Word的工具栏放上去，方法是：
先引用Office的类库
Dim Wordbar As Office.CommandBar
Set Wordbar = Web1.Document.CommandBars(1)
Wordbar.Visible = True
Wordbar.Enabled = True
工具栏可以放上去，但Word 菜单不能放上去，各位有什么办法？另外，用WebBrowser + Word 在有些电脑上会出现程序忙，或正在下载等信息，而不能很好使用等问题？用OLE+Word的方法，本人还没有找到放上Word 菜单及工具栏的方法。谁知道望能告知。
此问题由涂海宁回答。
附加关键字：编程, 源程序, programming, source code, 其他语言, asm, vba, vbscript, Office开发, office, ms office, office xp, office 97。
|
如何使在vba下添加的用户窗体被吸附到word200的主界面中
