'ThisDocument
Option Explicit
'Add a reference to MS Excel xx.0 Object Library
Private moApp As Excel.Application
Private Sub Document_Open()
Dim oWB As Excel.Workbook
Dim oTable As Word.Table
'ToDo: Check for Excel files in some directory.
'
'If file(s) are found then create an Excel object
Set moApp = New Excel.Application
moApp.Visible = False 'Dont know if you want to show the workbook or not.
'Open the first workbook
Set oWB = moApp.Workbooks.Open("D:\Test1.xls")
Set oTable = Documents(1).Tables(1)
'Add the Excel Cell value to a Word table cell
oTable.Cell(2, 1).Range.Text = oWB.Sheets(1).Cells(1, 1).Value
oWB.Close
Set oWB = Nothing
moApp.Quit
Set moApp = Nothing
Set oTable = Nothing
End Sub