Code:
Sub GetWordTable()
Dim vFile, arr(), tmp As String
Dim lR As Long, lC As Long, lRs As Long, lCs As Long, i As Long
On Error Resume Next
vFile = Application.GetOpenFilename("Word files (*.doc),*.doc")
If TypeName(vFile) = "String" Then
With GetObject(vFile)
If...