Quote Originally Posted by stephen_
Another option that works for me;

Add VBA below; (Open VBA editor by Alt & F11)
[vba]
Sub CollateForms()
Dim myPath As String
Dim myWord As New Word.Application
Dim myDoc As Word.Document
Dim myField As Word.FormField
Dim n As Long, m As Long
Dim fs, f, f1, fc
Range("A2").Select
myPath = InputBox("Path?")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(myPath)
Set fc = f.Files
m = 0
For Each f1 In fc
n = 0
Set myDoc = myWord.Documents.Open(myPath & "\" & f1.Name)
For Each myField In myDoc.FormFields
ActiveCell.Offset(m, n).Value = myField.Result
n = n + 1
Next
myDoc.Close wdDoNotSaveChanges
m = m + 1
Next
Set myField = Nothing
Set myDoc = Nothing
Set myWord = Nothing
End Sub[/vba]


In VBA click on Tools > References > Click for Microsoft Word Object Library.

Close VBA

Now run the macro

Click on cell A2 > add path to either file or folder with collection of same files (word forms)

Hopefully the magic will work.

Make sure your forms are the same format otherwise the rows will contain different fields.

Hope this helps someone out there searching even though the original post was 6 years ago!
Hi stephen,

I tried with your guide but after inputing path, but it not worked. A "Micorosft Visual Basic" msgbox appeared with 2 option of "OK" and "Help". Can you help me with this. Tks