如何将vfp查询的结果逐行写入word文档中，一个人一行，望高手赐教。万分感谢！！！

根据各班教师任课表jsrkb.dbf和教师名单jsmd.dbf查询每位教师任教的所有班级及学科，并写入word文档，每个教师一行〈如果是班主任，班主任要放在任教班级、学科前面〉。望高手赐教。

[此贴子已经被作者于2020-3-18 21:56编辑过]

压缩文件中的代码与这个问题无关，还请帮忙写一下具体代码，万分感谢！

生成的word文档格式如下：
阜宁县陈集中心小学课务分工
2018年春学期
1、周爱华：一（1）班主任，一（1）语文，一（1）自习1
2、
3、
……

clear
SELECT jsmd
GOTO top
rkmc=""
SCAN
    xm=姓名
    ?xm,
    rkmc=xm+","
    SELECT jsrkb
    GOTO top
    SCAN
        FOR i=1 TO 18
            m=FIELD(i)
            xm2= &m.
            IF ALLTRIM(xm2)=ALLTRIM(xm) then
                rkmc=rkmc+FIELD(i)+nj+bj+','            
            ENDIF
        NEXT i
    ENDSCAN
    ?rkmc
    WAIT
    SELECT jsmd
ENDSCAN
写到这里不会了

谢谢你！是这样的数据，但美中不足的是：1、班主任要显示在所有学科前面；2、能否用word文档表示。

如何根据教师名单jsmd.dbf、学校日课总表rkzb201803.dbf和教师仼课表jsrkb.dbf自动统计出每位教师每周课时数，并生成到word文档打印输出，望高手不吝赐教，万分感谢！！！

谢谢你！完全符合要求。

@xuminx 能提供关键简化代码吗？十分期盼！

@xuminxz 恳请提供关键部分代码，十分期盼！万分感谢！