=================== Code Follows =====================
Private Sub TestNewLooping_Click()

Dim wdObject As Object
Dim lineObject As Object
Dim filespec As String

Set wdObject = CreateObject("Word.Application")
wdObject.Visible = True

lineObject = wdObject.Documents.Goto(wdGoToLine, wdGoToFirst) <--- VBA
does not
recognize these Constants :(

MsgBox lineObject.Text
Set wdObject = Nothing
End Sub

=============================================================
Any hits or clues will be greatly appreciated,

-Jacque

Lines in a Word document are not objects. You have to work with the
Selection or Range objects. For the Selection object, try something like
this:

Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst
ActiveDocument.Bookmarks("\Line").Range.Select
MsgBox Selection.Text

Of course, you may have to modify it to refer to the Word application object
you have created as this is the syntax used if you do it directly from Word
VBA.

Hope this helps.

| Does anyone have code that can read in a Microsoft Word Document line by
| line?
| I am working in VBA and Access 97. I have figured out how to get to the
| Document Object but cannot
| figure out the method to read through the file line by line. The code
| below is as far as I have gotten.
| VBA does not recognize the wdGoToLine and wdGoToFirst constants.
|
| =================== Code Follows =====================
| Private Sub TestNewLooping_Click()
|
| Dim wdObject As Object
| Dim lineObject As Object
| Dim filespec As String
|
| Set wdObject = CreateObject("Word.Application")
| wdObject.Visible = True

| lineObject = wdObject.Documents.Goto(wdGoToLine, wdGoToFirst) <--- VBA
| does not
| recognize these Constants :(
|
| MsgBox lineObject.Text
| Set wdObject = Nothing
| End Sub
|
| =============================================================
| Any hits or clues will be greatly appreciated,
|
| -Jacque
|

   i uses paragraphs to move down the entire word document.

dim para as paragraph
for each para in ActiveDocument.paragraphs
  msgbox para
next para

   you should be able to move down the document.hope it helps.
regards,
James

Something like this has worked for me:

   ' Move the insertion point to the beginning of the document.
      Selection.HomeKey Unit:=wdStory, Extend:=wdMove
      ' Loop number of lines in document.
       x = ActiveDocument.BuiltInDocumentProperties("NUMBER OF LINES")
      For i = 1 To x
         ' Select a line.
         ActiveDocument.Bookmarks("\LINE").Select
         Indhold = Trim(Selection)

        'here you can do whatever you want to the line contained in the var.
Indhold

        ' Display line number. Just for test reasons, don't do it on your
150.000 lines new book manuscript ;-)
         MsgBox "Line: " & i
         ' Move to next line.
         Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdMove
      Next i

--
Med venlig hilsen / Kind regards
from ?lstykke, Denmark

Kim

home: http://home2.inet.tele.dk/kim-niel/
business: http://viviankisoft.hypermart.net/