以下示例从另一个WORD文档，并从中复制数据到本地表中

Private Sub CommandButton1_Click()

　　Dim i As Integer

　　Dim f As Document

　　Set f=Application.Documents.Open("************.doc")

　　For i=2 to  f.Tables(7).Rows.Count

　　　　Me.Tables(2).Cell(2+i,1).Range.Text=Mid(f.Tables(7).Cell(i,2).Range.Text,1,Len(f.Tables(7).Cell(i,2).Range.Text)-2)

　　Next i

End Sub