Hi Divs,
Yes, this is not hard to do. I recommend giving each textbox a name (in Word) so that they can be referred to clearly in your code. Here is an example of some code that reads Word textboxes and places the values in worksheet cells. This example also reads a set Word form checkbox values.
Note that in this example cell B1 on the active worksheet contains the name of the Word form to be read.
Sub ReadWordForm()
Dim Wd As Object
Set Wd = GetObject([b1].Value)
'Read data from word onto spreadsheet
[b3] = Wd.formfields("TitleTB").Result
[b4] = Wd.formfields("OriginatorTB").Result
[b5] = Wd.formfields("DateTB").Result
[b6] = Wd.formfields("TimeTB").Result
'Now read checkbox status values
Dim CB As Object
Dim iRow As Integer
iRow = 8
For Each CB In Wd.formfields
If CB.CheckBox.valid Then
Cells(iRow, 1) = CB.Name
Cells(iRow, 2) = CB.CheckBox.Value
iRow = iRow + 1
End If
Next CB
Wd.Close
Set Wd = Nothing
End Sub
I hope this helps.
Damon