Advice on extracting First line of actual text in a word doc?

[rudvs2]

Okay first of all thanks to those who reminded me of the open file syntax

Heres my current problem

I have managed to search for and extract the first line from each word document on a hdd.

however a ms word doc puts alsorts of rubbish in with the actual text.

what i need to be able to do is extract the first line of actual text from the document??

Is there any known methods for doing this eg for reading a word document or will i have to manually code a trim function to go through and sort all the rubbish out??

[MartinLiss]

If you are willing to open Word then it's fairly easy. One thing to remember about Word documents is that the first line may not be in a normal paragraph - it may be in a table.

Option Explicit
Private wdApp As Word.Application
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Sub GetFirstText()

    wdApp.Documents.Open ("C:\MyDoc")
    wdApp.ActiveDocument.Paragraphs(1).Range.Select
    MsgBox wdApp.Selection
    wdApp.Quit
    
End Sub

Private Sub Command1_Click()

    GetFirstText
    
End Sub

Private Sub Form_Load()

    Dim hWnd As Long
    
    ' Find out if Word is already running
    hWnd = FindWindow("OpusApp", vbNullString)
    If hWnd = 0 Then
        Set wdApp = New Word.Application
    Else
        Set wdApp = Word.Application
    End If

End Sub