do until record count word vba

i currently use a macro that outputs each record of a merged document as a text file, but what we do is add the word "end "
to the last entry in the excel data source
the word macro loops through each record until it sees the word "end" then stops! but with an error ,well that ok but its messy, how can i change it so that once the last record is found it stops!(a message box with "20 generated" or similar would be nice!
here's the code.

Please Login or Register  to view this content.

i just realise that this code doesnt ever do the first record! i have managed to do all of above and everything now works. if anyone relly wants the code ill put it up but judging by the lack of response hardly anyone seems to use vba in word!