word文档中的“书签名”没有必要用语句判断，用WORD打开文档，点“插入”菜单下“书签”命令，就可以看见全部已经存在的“书签”，你可以对已有的书签进行定位（看插在什么地方），删除或新添加。书签是用来定位和插入数据的，“书签名”可根据个人喜好任意增、删、改，只要好记好用就行，没有一定的规则。在WORD文档中插入所需的“书签”后，要立即着手设计相应的prg文件，prg中所引用的“书签名”一定要与word文档中已经存在的书签名相对应，方能保证在正确位置插入数据，如果引用了一个不存在或错误的书签名，则程序会出现运行错误。

我的意思是加入判断语句可避免“如果引用了一个不存在或错误的书签名，则程序会出现运行错误”的程序意外终止

    附件中的“WORD直读报表.prg”就是我多年使用的word直读报表扫描程序，只要在1工作区打开一个数据表（库），再选择一个报表模板，就可以生成所需的word报表，而无需编写针对具体事务和专门要求的专用报表程序，具有很好的通用性。为了保证小数位和日期型数据处理正确，本程序附带了相应的处理程序。
    word报表模板插入数据的位置，既可以用与字段名相同的“书签”来标识（如本专题的“通知书.doc”中用了“班名”和“姓名”等)，也可以用书签与表达式（用于插入照片的变量必须用成对的“#”括起来，其它的变量表达式必须用成对的“^”括起来）混合标识（如本专题的“通知书1.doc”用了书签“班名”、“姓名”，各科成绩则用了表达式)，还可以只用表达式来标识。一般情况下，正文部分要用“书签”标识，表格部分可用“表达式”标识，以保证正确扫描（正文部分用表达式不能正确识别）。
    举例使用方法：1区打开“期末.sheet1.dbf”(由期末.xls导入生成的），运行“word直读报表.prg”,选择报表模板“通知书.doc”或“通知书1.doc”，就可完成本专题的报表打印工作。分类打印功能可按需选用，生成的word报表可以输入一个便于理解和识别的文件名，然后就按文件名1，文件名2...保存在c:\my documents文件夹下，不输的话，就以报表1，报表2...保存。生成各个分文档的同时，还会生成“报表汇总”文档。
    其它的管理事务可以依法炮制，都可快速达成希望的目标。（前面所挂附件有缺陷，请已下载的网友重下）
   
         

[此贴子已经被作者于2016-1-21 14:19编辑过]

谢谢！慢慢地学习消化

非常感谢

试了下 运行不完整

谢谢，就是上面我帖子中的用法，已经实现了。

执行到 pp1=Alltrim(WordApp.Selection.Tables(1).Cell(pk,pk1).Range.Text)
这一句时，提示CELL不是对象

程序中设置有以下语句：
*逐一选中各表的第一单元格以选中该表
WordApp.ActiveDocument.Tables(ydlh).Cell(1,1).Select
   在扫描WORD模板过程中，遇到表格时，自动选中该表的第一单元格以选中该表，在此基础上方能对全表进行全面扫描，故在程序运行过程中，切忌点动鼠标，以防止光标插入点移动，导致扫描失败。

可能是VF8.0的缘故吧。是CELL识别不了