Private
Function
CopyTableFromWordDocument(WordDocumentPath
As
String
)
As
Excel.Workbook
Dim
objWdApp
As
Object
Dim
objWdDoc
As
Object
Set
objWdApp = CreateObject(
"Word.Application"
)
<span style=
"background-color:#e74c3c"
>
Set
objWdDoc = objWdApp.Documents.Open(WordDocumentPath,
ReadOnly
:=
True
)</span>
Dim
wkb
As
Excel.Workbook
Set
wkb = Workbooks.Add
With
wkb.Worksheets(1)
Call
objWdDoc.Tables(1).Range.Copy
Call
.Paste(Destination:=.Range(
"A1"
))
End
With
Call
objWdApp.Quit(Savechanges:=
False
)
Set
CopyTableFromWordDocument = wkb
UserForm1.Hide
Range(
"L5"
).
Select
Range(
"L5"
) =
".."
End
Function