Попробуйте перегнать данные в буфер обмена, переключить раскладку на русский через API функции, открыть word и через paste передать данные
в файл.
Выигрыш во времени от 5 до 10 раз.
Закомментировано формирование колонтитулов и форматирование листа,
может пригодится.

fontf="courier new"
fontr=10

hlayout = loadkeyboardlayout(kbdru, 0) && переключение раскладки
activatekeyboardlayout(hlayout, 0)

SELECT _p1
clp=''
GO TOP
SCAN
clp=clp+strk+CHR(13) && формируем готовый вид строки
ENDSCAN

*!* #DEFINE wdfielddate 31
*!* #DEFINE wdfieldtime 32
*!* #DEFINE wdfieldnumpages 26
*!* #DEFINE wdfieldpage 33

PUBL tword,odoc
LOCAL tword AS WORD.APPLICATION

tword = CREATEOBJECT("Word.application")
odoc=tword.documents.ADD('normal', .T.)
*!* tword.activewindow.activepane.VIEW.TYPE= 3 && wdPrintView

*!* WITH tword.activedocument

*!* WITH .pagesetup
*!* .ORIENTATION =0 && wdOrientPortrait

*!* .topmargin = 30 &&30
*!* .bottommargin = 30 &&30
*!* .leftmargin = 30 &&40 &&60
*!* .rightmargin = 30 &&30 &&
*!* ENDWITH

*!* .RANGE.FONT.NAME =fontf &&"courier new"
*!* .RANGE.FONT.SIZE =fontr &&10
*!* .SAVEAS(sb1)
*!* ENDWITH

*!* tword.activewindow.activepane.VIEW.seekview = 10 && wdSeekCurrentPageFooter

*!* WITH tword.SELECTION
*!* .FONT.SIZE =7
*!* .FONT.italic =1

*!* .typetext(CHR(13))
*!* .FIELDS.ADD(tword.SELECTION.RANGE,wdfielddate)
*!* .typetext(' ')

*!* .FIELDS.ADD(tword.SELECTION.RANGE,wdfieldtime)
*!* .typetext(' ')
*!* .FONT.bold=1

*!* ENDWITH

*!* tword.normaltemplate.autotextentries("Ïîëíîå èìÿ ôàéëà").INSERT(tword.SELECTION.RANGE, .T.)
*!* tword.SELECTION.FONT.bold=0
*!* tword.SELECTION.typetext(SPACE(100))

*!* tword.normaltemplate.autotextentries("Ñòð. <¹> èç <âñåãî>").INSERT(tword.SELECTION.RANGE,.T.)

*!* tword.activewindow.activepane.VIEW.seekview = 9 && wdSeekCurrentPageHeader = 10 && wdSeekCurrentPageFooter
*!* tword.SELECTION.FONT.bold =1
*!* tword.SELECTION.FONT.SIZE =fontr

*!* twoRd.SELECTION.paragraphformat.ALIGNMENT = 1 && wdAlignParagraphCenter = 2 && wdAlignParagraphRight

*!* FOR EACH a10 IN zag
*!* IF !EMPTY(a10)
*!* tword.SELECTION.typetext(a10+crlf) && ðèñóåì øàïêó èç ìàññèâà
*!* ENDIF
*!* ENDFOR

*!* tword.activewindow.activepane.VIEW.seekview = 0 && wdSeekMainDocument óáðàòü ïàíåëü êîëîíòèòóëà
*!* tword.activedocument.RANGE.FONT.bold =0

tword.SELECTION.paste

*tword.activewindow.activepane.verticalpercentscrolled = 100

tword.activedocument.SAVE

tword.QUIT
hlayout = loadkeyboardlayout(kbden, 0) && переключение раскладки
activatekeyboardlayout(hlayout, 0)