word automation

[vbgladiator]

Hey,

How can I read a word document line by line using automation?
Links to examples would be great.

thanks,

[Bruce Fox]

Here is some pseudo code:
Add a Reference to Word Library, and make the appropriate changes (ie Application will become your Word Object reference)

Sub ReadWord()
Dim strArr() As String
Dim intCount As Integer
Dim intIdx As Integer
 
    'Capture the Word Text
    ActiveDocument.Select
 
    'Load an Array with each line
    strArr() = Split(Selection.Text, vbCr)
 
    intCount = UBound(strArr) - 1
 
    For intIdx = 0 To intCount
        MsgBox strArr(intIdx)
    Next
 
End Sub

[Bruce Fox]

Here is a working version that dosn't require a Library Reference:

(Just have the instance of Word open)

Option Explicit
 
'Note: NO reference to MS Word Object Library x.x is required in this example
 
Private Sub Form_Load()
Dim objWord As Object
Dim strArr() As String
Dim intCount As Integer
Dim intIdx As Integer
 
On Error GoTo Err_Handler
 
    Set objWord = GetObject(, "Word.Application")
 
    'Capture the Word Text
    objWord.ActiveDocument.Select
 
    'Load an Array with each line
    strArr() = Split(objWord.Selection.Text, vbCr)
 
    intCount = UBound(strArr) - 1
 
    For intIdx = 0 To intCount
        MsgBox strArr(intIdx)
    Next
 
    Set objWord = Nothing
 
Exit Sub
 
Err_Handler:
    If Not (objWord Is Nothing) Then Set objWord = Nothing
    
    MsgBox "Number: " & Err.Number & vbCrLf & _
    "Description: " & Err.Description, vbOKOnly + vbCritical, "Error!"
End Sub

[vbgladiator]

Thanks a lot.

How about going through each page in the document?

[Bruce Fox]

Are the pages seperated by Page Breaks?

[vbgladiator]

yes, each page is separated by a page break.

[Bruce Fox]

You might be able to get some ideas here:
http://support.microsoft.com/?kbid=293861

[vbgladiator]

I've seen this article. I don't have any section breaks. I only have page breaks in my document. I have no control over the creation of the document, I just have to import the data.