Question

如何用VB调用WORD文档，请高手进，谢谢~！~

用VB6.0 通过控键按钮，调用WORD文档，有高手知道代码不，谢谢~~！

Answer 1

知道,不过不能直接读取,因为微软没有公布加密方式,所以要调用WORD来读取,然后获取它

先在工程的引用里面加上Microsoft Word 11.0 Object Library

Dim 剪切板文本
Dim Word文字处理系统界面 As Word.Application '建立一个word.application对象
Dim Word文档 As Word.Document
Dim Word文档文本 As Word.Selection '在word文字处理系统中添加一个文档

Set Word文字处理系统界面 = CreateObject("Word.Application") '选择对象

Word文字处理系统界面.Visible = False '不显示word.application，即word文字处理系统界面

Set Word文档 = Word文字处理系统界面.Documents.Open(文件路径)

Set Word文档文本 = Word文字处理系统界面.Selection
Word文档文本.WholeStory

Word文档文本.Copy
剪切板文本 = Clipboard.GetText(vbCFText) '放到text1中

Text1.Text = 剪切板文本

'Clipboard.SetData Temp

Word文档.Close '关闭文档
Word文字处理系统界面.Application.Quit
Set Word文字处理系统界面 = Nothing '清空变量
Set Word文档文本 = Nothing
'完成操作

我通过剪切板来获取文本,因为这样可以保留格式(本人独创)
如果直接获取也是可以的,不过格式全部丢失,所以我的方法会更好一点

Answer 2

我写的一个VBA程序，用的就是vb语言以下是blog的链接，里面有源代码 http://congjl2002.javaeye.com/admin/blogs/143247摘要如下：前言受同事的委托，要我帮忙做一个将word批注提取出来导入到Excel中的工具以前听说过office有VBA，宏之类的东西，而且和VB相似（本人以前做过简单的VB开发，但基本都忘没了），就答应了下来经过一番苦战，终于完成了，回头看一下自己走过来的路，发现又学到很多东西，同时发现了一片新大陆，在Microsoft Office\OFFICE11\2052路径下，有VBA API的文档，而且是装了office以后自带的，这些宝贝在那待了那么长时间浪费啦。接下来我就说一下这次的开发过程吧，也算是一个小的总结。

Answer 3

直接调用OFFICE控件``