'End Of File' i Word makro

Fandt dette i min VBA bog for Word, håber det kan bruge det

Do Until dokumentnavn.EOF

  din kode

Loop

Det virker ikke desværre. ;-(

først må jeg sige, at jeg ikke selv har brugt koden EOF nogen sinde, men er nysgerrig. Så jeg har fundet dette eksempel i hjælpefilen:

'This example uses the EOF function to detect the end of a file. This example assumes that MYFILE is a text file with a few lines of text.

Dim InputData
Open "MYFILE" For Input As #1    ' Open file for input.
Do While Not EOF(1)    ' Check for end of file.
    Line Input #1, InputData    ' Read line of data.
    Debug.Print InputData    ' Print to the Immediate window.
Loop
Close #1    ' Close file.

I VBA manualen

Det nævnte eks. duer ikke i mit tilfælde, da min makro læser selve teksten på skærmen ord for ord. Jeg ved ikke om der findes en funktion der gør dette og kan checkke EOF. Jeg er kommet omkring problemet ved at indbygge et "stopord" i koden, så skal jeg bare huske at skrive dette stopord i slutningen af teksten inden koden køres - lidt amatøragtigt, med det funger ;-)
Tak for interessen, derfor syntes jeg også vi skal dele points :-)

NEJ - DET VAR IKKE DET JEG VILLE. Jeg kom alligevel til at gi' mig selv det hele. Sory hov-sa, du må få chancen en anden gang ;-(

OK, jeg overlever nok.