Tekst uit word naar variabelen

[kjbolhuis]

Hallo;

Ik krijg een groot aantal uniforme word-documenten toegemaild. Ik wil data uit deze documenten automatisch uitlezen:

Onderstaande macro voer ik uit in outlook nadat ik de bewuste berichten heb geselecteerd. Nu print deze ze uit en vervolgens zit ik de data over te typen naar een tabel.

Hoe moet ik de volgende code aanpassen om het document te doorzoeken op het woord "Ref. " en alles op de zelfde regel te plaatsen in een variabele. Als het in een variabele staat, kan ik hem wel weer laten wegschrijven in een database

In een actief document lukt het me met find alleen niet met het wordobject.

Alvast bedankt voor een duwtje in de goede richting

Dim myOlApp As Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim Wordobj As Object
Dim Doc_Loc As String 'Lokatie voor bestanden
Dim x As Integer 'Teller
Dim Doc_Name As String 'Bestandsnaam van bijlage
Dim Doc_ext As String 'Geselecteerde extensie

Set Wordobj = CreateObject("Word.Application")
Set myOlExp = ActiveExplorer
Set myOlSel = myOlExp.Selection
Doc_Loc = "c:\" 'Lokatie voor bestanden
Doc_ext = "doc"

For x = 1 To myOlSel.Count
Doc_Name = Doc_Loc & myOlSel.Item(x).Attachments.Item(1).DisplayName
If myOlSel.Item(x).Attachments.Count <> 0 And _
Right(Doc_Name, 3) = Doc_ext Then
myOlSel.Item(x).Attachments.Item(1).SaveAsFile (Doc_Name)
Wordobj.Documents.Open Doc_Name
Wordobj.Documents.Activate
wordobj.PrintOut Background:=False
Wordobj.Documents.Close
End If
Next x
End Sub