O
over_worked_Rob
Firstly a big thanks to the mighty Norie for getting me this far.
Right I have this code:
Sub test()
Dim wdObj As Object
Dim wdDoc As Object
Dim wdFF As Object
Dim I As Long
Set wdObj = CreateObject("Word.Application")
Set wdDoc = wdObj.documents.Open("C:\Form1.doc")
I = 1
For Each wdFF In wdDoc.Formfields
Range("A" & I) = wdFF.Name
Range("B" & I) = wdFF.Result
I = I + 1
Next
Set wdDoc = Nothing
Set wdObj = Nothing
End Sub
Which strips out the form elements from a word document and brings the
into excel. What I am after now is the ability to pull data of a larg
number of word files 1000nds of them. The file names would all b
different but they would all be in one folder. So basically I what thi
script to run on all word files contended in a folder and output to
list (row 1 = form1, row 2 = form2. Can it be don? Can anyone help m
please.
Thanks
Over worked ro
Right I have this code:
Sub test()
Dim wdObj As Object
Dim wdDoc As Object
Dim wdFF As Object
Dim I As Long
Set wdObj = CreateObject("Word.Application")
Set wdDoc = wdObj.documents.Open("C:\Form1.doc")
I = 1
For Each wdFF In wdDoc.Formfields
Range("A" & I) = wdFF.Name
Range("B" & I) = wdFF.Result
I = I + 1
Next
Set wdDoc = Nothing
Set wdObj = Nothing
End Sub
Which strips out the form elements from a word document and brings the
into excel. What I am after now is the ability to pull data of a larg
number of word files 1000nds of them. The file names would all b
different but they would all be in one folder. So basically I what thi
script to run on all word files contended in a folder and output to
list (row 1 = form1, row 2 = form2. Can it be don? Can anyone help m
please.
Thanks
Over worked ro