这可不是钻牛角尖，这是很现实的问题，中文名字最多可以有七个字（甚至更多）

写个自定义函数

姓名中插入空格有什么作用？

怎麼插空格都不好看，對字符串來說，要麼全左對齊，要麼中間對齊。

SELECT * FROM Xsxx INTO CURSOR Temp
LOCAL cStr,nCnt,cXm
cStr=""
nCnt=0
SCAN
    * 去除 Name 前面的CHR(9)字符
    cXm=STRTRAN(ALLTRIM(Name),CHR(9),"")
    * 判断姓名是否是两个汉字
    cXm=IIF(LEN(cXm)=4,STUFF(cXm,3,0,SPACE(2)),cXm)
    DO CASE
        CASE INLIST(LEFT(cXm,6),"高81级","班主任")
             cStr=cStr+IIF(nCnt>0,0H0D0A,"")+cXm+0H0D0A
             nCnt=0
        OTHERWISE
            nCnt=nCnt+1
            cStr=cStr+cXm+IIF(MOD(nCnt,16)=0,0H0D0A,SPACE(1))
    ENDCASE
ENDSCAN
* 保存在文本文件中
=STRTOFILE(cStr,"学生名单.Txt")
MODIFY FILE 学生名单.Txt
* 保存在临时表中
CREATE CURSOR Md (XM C(120))
APPEND FROM 学生名单.Txt SDF 
BROWSE 
CLOSE DATABASES 

SET TALK OFF
SET SAFETY Off
CLOSE ALL
CLEAR ALL
CLEAR
WAIT "请打开存放数据的文件。。。。。"
USE ?
Word=CREATEOBJECT('word.application')  &&创建ＷＯＲＤ文档
Word.Visible=.t. &&显示ＷＯＲＤ文档
Word.Documents.add()  &&建立新文档
Word.ActiveDocument.PageSetup.TopMargin=2/0.035  &&设置上页边距
Word.ActiveDocument.PageSetup.BottomMargin=2/0.035  &&设置下页边距
Word.ActiveDocument.PageSetup.LeftMargin=2/0.035  &&设置左页边距
Word.ActiveDocument.PageSetup.RightMargin=2/0.035  &&设置右页边距
GO top
Word.Selection.Font.Size = 15  &&指定字号，9为小五号，10.5为五号，12为小四号
Word.Selection.Font.Name = "黑体"  &&设置字体
word.Selection.ParagraphFormat.Alignment=1
word.Selection.TypeParagraph
word.selection.typetext('学 生 名 单')
word.Selection.TypeParagraph
i=1
Word.Selection.Font.Size = 12.5  &&指定字号，9为小五号，10.5为五号，12为小四号
Word.Selection.Font.Name = "宋体"  &&设置字体
word.Selection.ParagraphFormat.Alignment=0
DO WHILE !eof() 
   IF LEN(ALLTRIM(name))>6
      word.Selection.TypeParagraph
     
      word.selection.typetext(ALLTRIM(name))
      word.Selection.TypeParagraph
      SKIP   
      i=1
   ELSE
      IF MOD(i,8)=0
        i=1
        word.Selection.TypeParagraph
      ELSE
         IF LEN(allt(name))=6
            word.selection.typetext( SUBSTR(name,1,8))
         ELSE
            word.selection.typetext( SUBSTR(name,1,2)+'  '+SUBSTR(name,3,4))
         ENDIF
         
         i=i+1
      ENDIF
      skip
   ENDIF

 ENDDO
  word.Selection.WholeStory

 word.Selection.ParagraphFormat.LineSpacingRule = 4   

 Word.Selection.ParagraphFormat.LineSpacing = 17

 USE

 SET TALK ON

 return  

也许能给你些帮助。我的程序是每行8人。直接输出到WORD文档。

非常感谢，问题得以解决。
现在需要咨询另一个问题：我有很多名单，其中的年级不一定都是“高81级”，还有可能是“高2012级”等等，不想在程序里面来修改年级标识，希望程序自动读取。
  比如说这样：  LIKEC("*班主任*", NAME) OR LIKEC("*高*级*", NAME)，，如何将其写入程序中？

上传完整文件，判断Name字段的长度，说明是否是学生姓名。

[ 本帖最后由 sdta 于 2015-8-16 09:10 编辑 ]

数据表看了吗

看了，不知道楼主的数据是从什么地方拷贝过来的，前面有三个ASC码为9的字符，后面还有，我提前做了处理。还有，现实中应该没有这样管理数据的。