1. Get a reference to Excel and open the workbook --
Dim pxlApp as Excel.Application
Dim pxlBook as Excel.Workbook
Set pxlApp = Excel.Application
Set pxlBook = pxlApp.Wordbooks.Open(FileName:=....)
2. Iterate the formfields in the document and insert the values into Excel.
Dim pFormField as Word.Formfield
For each pFormField in ActiveDocument.FormFields
pxlBook.Sheets([datasheet name]).Cells(Row,Column) = pFormField.Result
Next
How you set the row and column obviously depends on how you set up the
workbook. If each form becomes a new row in the workbook, name the target
columns using the same names as used for the Word formfields. Check
worksheet UsedRange property to get the last used row, then add one.
> We have a client who has created a Microsoft Word 2003 form template to
> capture risk investment information from managers in our organization.
[quoted text clipped - 17 lines]
>
> Thanks again for any insight on this one.