一、用vb如何读取光盘上的word文档
在Command1_click下加入一行：
shell "Word的路径winword.exe" 光盘里word文件的路径
假如word在C:Program FilesMicrosoft officeOFFICE11,光盘里word文档的路径为G:abc.doc则添加这样一行即可：
Private sub Command1_Click()
shell "C:Program FilesMicrosoft OfficeOFFICE11winword.exe" G:abc.doc
End sub
二、vb读取word跟txt问题
Dim wp As New Word.Application, doc As Word.Document, arr As Variant
wp.Visible = True
Set doc = wp.Documents.Open("C:/1.doc")
Text1 = doc.Content.Text
arr = Split(Text1, vbCr)
For Each i In arr
List1.AddItem i
Next
Set wp = Nothing
Set doc = Nothing
三、vb如何提取word表格中的数据
选择表格第一行的内容右键点击复制，在新的区域点击鼠标右键粘贴；
请点击输入图片描述
因为是逐个粘贴，文本自然没有边框，将表格内的内容提取出来采用如此方法重复多次即可，之前的方法虽然简单，但当数量比较多时非得让手抽筋不可。
请点击输入图片描述
现在介绍个简单的方法，当鼠标移动到表格区域的时候在表格的左上角会出现一个符号，点击这个符号，点击之后整个表格都被选中；
请点击输入图片描述
选中表格之后点击右键选择复制，复制之后在新的区域选择鼠标右键，在弹出的菜单中选择最后一个粘贴，粘贴文本；
请点击输入图片描述
点击粘贴之后表格中的所有内容都被提取了出来，这样只要一个回合就可以完成之前多步的操作，轻松不少。粘贴为文本以后原来表格中的格式全部都被去除，如果需要原来表格的文字格式则需要重新设置，除此之外，当旧的表格不再需要的时候则还要手动去删除之前旧的表格。
请点击输入图片描述
另外再介绍一种一步到位的方法，即保留了原本文字的格式同时又去除掉表格框而且不用再另外去删除之前的旧表格，选择整个表格以后点击布局工具栏中的转换为文本，在弹出的对话框中点击确定；
请点击输入图片描述
相比较之前的方法更加的方便快速，如此一个回合word中的表格边框被删除，而且文字保持了原有样式。
请点击输入图片描述
