Pre-populating a Word Table from Excel

[AshleyHolmes]

I have a word template that I would like to have pre-populate certain cells in a word table from an existing excel spreadsheet when it is opened.

Any pointers would really be appreciated.

Many thanks.

 

[SkipVought]

Hi,

Maybe an example would be helpful, so we don't have to guess what you're working with.

What does you Excel source data look like? Is it a table or random cells?

Skip,

_{When a diminutive clarvoyant had disappeared from detention, headlines read...
Small Medium at Large}

 

[AshleyHolmes]

Thanks, but I did the following in the end. Basically I selected the value from an Excell cell into a variable and then inserting the value into word using a bookmark.

Their is probably a better way of doing it but I'm a Unix boy by trade and not that good with this Microsoft stuff. I would have preferred to put the whole table in an array. Is that possible?

' Create a Excel application object
Set ExcelObj = CreateObject("Excel.Application")

' Open a spreadsheet detailed in testbox4 into this object
ExcelObj.Workbooks.Open (TextBox4.Value)

' Get a values from the spreadsheet
ReqEDRYear1 = ExcelObj.Worksheets("Results").Cells(2, 2).Value
ReqEDRYear2 = ExcelObj.Worksheets("Results").Cells(2, 3).Value
ReqEDRYear3 = ExcelObj.Worksheets("Results").Cells(2, 4).Value
SubsYear1 = ExcelObj.Worksheets("Results").Cells(3, 2).Value
SubsYear2 = ExcelObj.Worksheets("Results").Cells(3, 3).Value
SubsYear3 = ExcelObj.Worksheets("Results").Cells(3, 4).Value

' Print the values to bookmarks
With ActiveDocument
.Bookmarks("ReqEDRYear1").Range.InsertAfter ReqEDRYear1
.Bookmarks("ReqEDRYear2").Range.InsertAfter ReqEDRYear2
.Bookmarks("ReqEDRYear3").Range.InsertAfter ReqEDRYear3
.Bookmarks("SubsYear1").Range.InsertAfter SubsYear1
.Bookmarks("SubsYear2").Range.InsertAfter SubsYear2
.Bookmarks("SubsYear3").Range.InsertAfter SubsYear3
End With