READING A WORD DOCUMENT ONE LINE AT THE TIME FROM WITHIN ACCESS 1

[HLEE1167]

I need to be able to read a Word document from within Access using VBA. How could I read one line of text to populate an Access Variable?

Thank you

 

[PHV]

A starting point:
Dim oDoc As Object, oPara As Object
Set oDoc = GetObject("\path\to\document.doc")
For Each oPara In oDoc.Paragraphs
Debug.Print oPara.Range.Text
Next
oDoc.Close False
Set oDoc = Nothing

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[AccessGuruCarl]

Not sure if this one works with word documents, I beleive the main code is one PHV post's... But it reads one line at a time.

But I use a select case statement.

Partial Code...

Const ForReading = 1
Dim FSO As Object, TF As Object, arr
Set FSO = CreateObject("Scripting.FileSystemObject")
'Set TF = FSO.OpenTextFile("\path\to\file.txt", ForReading)
Set TF = FSO.OpenTextFile(strFilePath, ForReading)
arr = Split(TF.ReadAll, vbCrLf)
TF.Close
For i = 0 To UBound(arr) - 1
' do stuff with arr(i)
Select Case i  'Line Number
Case 24   'Assign First & Last Name
  x = InStr(1, arr(i), strSpace)
  y = Mid(arr(i), 1, x)
    ContactFirstName.Value = y
  x = InStrRev(arr(i), strSpace)
  y = Right(arr(i), x)
  ContactLastName.Value = y
Case 25    'Assign Address
  BillingAddress.Value = Trim(arr(i))

Case 26 'Assign City, State & Postal Code
  ...
  ...
End Select
Next

Hope this helps....


AccessGuruCarl
Programmers helping programmers
you can't find a better site.

 

[HLEE1167]

Thank you both for the help. I used the technique from PHV and work very nicely.