请专家指点：VFP程序运行中，可打开已有WORD，并将数据写入WORD指定位置，比如我上传的这两个简单数据表和WORD文件，将单位名称和员工的姓名写在劳动合同封面对应位置横线中间，且横线的长度不变。

我学习了一上午，编了以下代码：
oWord=CREATEOBJECT('Word.Application')
    IF NOT TYPE("oWord") = "O"
      =MESSAGEBOX("Word对象创建失败，程序将中止！", 16, "错误")
      RETURN
    ENDIF
    cWordFile=GETFILE("Word 文档:Doc")
    IF .NOT. SUBSTR(SUBSTR(cWordFile,RAT("\",cWordFile)+1),1,AT(".",SUBSTR(cWordFile,RAT("\",cWordFile)+1))-1)=="劳动合同"
      =MESSAGEBOX("请打开“劳动合同”Word 文档",64,"系统提示")
      RETURN
    ENDIF

    oWord.Documents.Open("&cWordFile")
    oWord.Visible=.F.
    *=MESSAGEBOX(oWord.ActiveDocument.Paragraphs(1).Range(0,10).Text,64,"")
    oWord.ActiveDocument.Paragraphs(1).Range.Bold = .T.
    oWord.ActiveDocument.Save
    oWord.Visible=.T.
    oWord=.NULL.
别的都没问题，就这句“=MESSAGEBOX(oWord.ActiveDocument.Paragraphs(1).Range(0,10).Text,64,"")”总出错
不知在WORD中选取某段某几个字符的代码怎样写。

请高手帮帮忙啊，焦急中...

楼主的表结构不合理。只能这样，供参考：

谢谢了，我先学习一下

终于找到方法了：
oText=oWord.ActiveDocument.Paragraphs(n).Range   &&选取WORD某段落
oText.SetRange(oText.Start+I,oText.End-J)        &&重新设置选取部分的开始位置和结束位置
oText.text=text_string                           &&将文本数据替换/插入指定位置

我觉得是不是调用word的标签，是不是也可以？