VB提取Word中表格里的内容

'首先在窗体上添加一个文本框
'工程》引用》Microsoft Word ****
'在根目录下放置测试文档 1.doc


Private Sub Form_Load()
Dim myword As New Word.Application
Dim doc As New Word.Document
Set myword = CreateObject("word.application")
myword.Visible = False ‘屏蔽Word窗口
Set doc = myword.Documents.Open(App.Path & "\1.doc") '打开文件
Dim st As String
'******************************************关键语句*************************************************
st = doc.Tables(1).Cell(1, 2).Range.Text '提取第一张表的第一行第二个单元格的数据
Text1.Text = Left(st, Len(st) - 1) '去掉尾部小黑点
'****************************************************************************************************
doc.Close
myword.Quit
Text1.FontSize = 30
End Sub


'tronado 2014/6/4