Page length and numbering

[Fritters]

I'm trying to convert a Word document to a specific txt format used by court reporters (Amicus). 65 characters each line, 25 lines per page. Each page is numbered at the top left with page number padded by "0's" to five digits e.g. 00075; followed on the next line by the first line of text.

How can I do the page numbering? and lines per page?

TIA

[DataMystic Support]

I've posted the filter via email, the File\Export text is pasted below for reference:

Filter List
-----------
Filter options
| [ ] Log to file
| [X] Append to logfile
| Log filename: textpipe.log
| Threshold 500
|
|--Input from file(s)
| [ ] Confirm before processing each file
| [ ] Confirm before processing read/only files
| [ ] Delete input files after processing
| Process binary files
|
|--Convert Word documents to text
|
|--Convert Tabs to 2 spaces
|
|--Remove blanks from Start of Line
|
|--Remove blanks from End of Line
|
|--Remove blank lines
|
|--Word wrap (column width 70)
|
|--VBScript script Timeout: 10000 milliseconds
| 'add page number at top of every page
|
| dim page
| dim linecount
| const linesperpage = 25
|
| function processLine(line, EOL)
|
| linecount = linecount + 1
| if linecount >= linesperpage then
| linecount = 0
| page = page + 1
| processLine = "##PAGE " & page & " ## " & line & EOL
| else
| processLine = line & EOL
| end if
|
| end function
|
|
| sub startJob()
| page = 0
| linecount = linesperpage + 1
| end sub
|
|
| sub endJob()
| end sub
|
|
| function startFile()
| startFile = ""
| end function
|
|
| function endFile()
| endFile = ""
| end function
|
|--Split after 25 lines, filename %f.%e.%3.3d, number 0
|
|--Add header [\f]
|
+--Output to file(s)
[ ] Only update date on changed files
[ ] Keep original file's date and time
[ ] Append mode
[X] Change extension to: .txt
Output folder: C:\
[X] Maintain folder structure