以下示例从另一个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
