[AccessD] Get data from Word Doc - A2K

Bryan Carbonnell Bryan_Carbonnell at cbc.ca
Tue Apr 13 07:25:17 CDT 2004


If the info you need is in a consistant format, you can loop through the
paragraphs in the word doc and then parse it that way, something like:

Dim objWord As Word.Application
Dim doc As Document
Dim para As Paragraph
Dim strPara As String

Set objWord = CreateObject("Word.Application")

Set doc = objWord.Documents.Open("c:\full\path\to\Filename.doc")

For Each para In doc.Paragraphs
  'Get the text of the paragraph
  strPara = para.Range.Text
  'Parse strPara here looking for what you need
Next

Set para = Nothing
doc.Close
Set doc = Nothing
objWord.Quit
Set objWord = Nothing

Bryan Carbonnell
bryan_carbonnell at cbc.ca

>>> reuben at gfconsultants.com 12-Apr-04 5:40:22 PM >>>
I have a 393 page Word document that has data about bridges.  Every 3
pages
is one bridge meaning every third page is formatted exactly alike (Page
1
and Page 4 are alike, Page 2 and Page 5, Page 3 and 6).   There are
about 10
pieces of data I would like to extract about every bridge, a little bit
on
each of the three pages.

Is it possible to scan thru this document somehow and 'extract' these
10
items from it to Access?

I have tried to copy the document to Excel, but a lot of the text from
Word
will end up in one cell rather than split into a cell of its own.

Thanks.

Reuben Cummings
GFC, LLC
phone: 812.523.1017
email: reuben at gfconsultants.com 



-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com 
http://databaseadvisors.com/mailman/listinfo/accessd 
Website: http://www.databaseadvisors.com



More information about the AccessD mailing list