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