There are much easier ways to process a text file with VBA than that. For
one:

1. Read the file directly into an array --

Dim pLines() as string
Dim pFileNum as long
Dim pIndex as long

pFileNum = FREEFILE
Open "c:\.....\myfile.txt" for input as pFileNum
pLines = split(input(LOF(#pFileNum,pFileNum)), vbCr)
Close pFileNum

2. Process the lines --
For pIndex = lbound(pLines) to ubound(plines)
   ... do whatever with pLines(pIndex)
Next

Am Mon, 6 Nov 2006 03:17:01 UTC,  schrieb Allen N
<AllenN@discussions.microsoft.com>  auf
microsoft.public.word.vba.general :

 Alternatively to reading all the document into an array (one entry
per line), you could avoid using MS-Word altogether and write a script
reading the mainframe outpout as a text stream object, and copying it
to a new text stream; scanning each line for the characteristics of
the page break and headers, and dropping those lines from the copy
process, or skipping the fixed number of lines from the source file
with the SkipLine method.

 something like this (untested and uncompiled) script in VBScript:

 
 Dim fso, inFile, outFile, myLine
 const nameInFile = "C:\tmp\mainframe_original.txt")  ' example
 const nameOutFile = "C:\tmp\mainframe_edited.txt")   ' another
example
 const pageMarker = "String which marks the begin of the m/f page
break"

 set fso = CreateObject("Scripting.FileSystemObject")
 set inFile = fso.OpenTextFile(nameInfile, ForReading, TriStateFalse)
' false : read as ASCII
 set outFile = fso.CreateTextFile(nameOutFile, ForWriting,
TriStateFalse)
 myLine = inFile.ReadLine
 Do While NOT inFile.AtEndOfStream
   IF InStr(myLine, pageMarker) = 0  ' alternatively use the RegExp
object
     outFile.WriteLine(myLine)
   Else
     For i = 1 to 5
       inFile.SkipLine
     Next
   End If
   myLine = inFile.ReadLine
 Loop
 inFile.Close
 outFile.Close

'############### end of script ###############

 One could make it into a SUB and pass the filenames as parameters,  
or better pass them on the commandline, and processing the commandline
parameters as the WshArguments object.

 Some error handling should also be added for missing parameters,
non-existing files, writing or reading errors, etc.

Yours,
L.W.