#2
shschy2024-11-02 07:38
我尝试以下代码,只能读到一个参数 oWPS.(i).Author &&作者
希望可以获取帮助,希望能读到批注内容,批注应用内容的信息(字符串类型) 最希望能读到的无法实现 commentsArray(temp,3)=oWPS.(i).Scope &&批注引用内容 ?commentsArray(temp,3) &&此句为异常显示 (对象) commentsArray(temp,4)=oWPS.(i).Range &&批注内容 ?commentsArray(temp,4) &&此句为异常显示 (对象) 代码段如下 * 定义变量 LOCAL oWPS AS OBJECT LOCAL lcDocPath AS CHARACTER * 设置要打开的.docx文件路径 lcDocPath = "D:\!!海南\海南.docx" && docx文件路径 * 创建WPS应用对象 oWPS = CREATEOBJECT("Word.Application") * 检查对象是否创建成功 IF VARTYPE(oWPS) = "O" THEN * 显示WPS应用程序(可选) oWPS.Visible = .T. * 打开指定的.docx文档 oWPS.Documents.Open(lcDocPath) * 设置焦点到WPS窗口(可选) oWPS.Activate ELSE MESSAGEBOX("无法创建WPS对象,请确保WPS Office已安装。") ENDIF rows=0 rows =oWPS. WAIT WINDOWs "有"+STR(rows)+"条批注" nowait DIMENSION commentsArray(rows,5) temp=0 For i=1 To rows temp =temp +1 &&commentsArray(temp,1)=oWPS.(i).Scope.Information(wdActiveEndPageNumber)&&页码 &&commentsArray(temp,2)=oWPS.(i).Scope.Information(wdFirstCharacterLineNumber)&&行号 commentsArray(temp,3)=oWPS.(i).Scope &&批注引用内容 ?commentsArray(temp,3) &&此句为异常显示 (对象) commentsArray(temp,4)=oWPS.(i).Range &&批注内容 ?commentsArray(temp,4) &&此句为异常显示 (对象) commentsArray(temp,5)=oWPS.(i).Author &&作者 ?commentsArray(temp,5) &&此句可正常显示 MESSAGEBOX("wait") NEXT oWPS = .NULL |
请问WIN10+VFP9环境下可以读取WPS文字组件编辑的DOCX或DOC文档里的批注信息吗?
需要读取WPS文字组件编辑的DOCX或DOC文档里的批注信息,在相近文档里同步标注
如果DOCX或DOC文档里没有表格、插图等元素,只有段落文字。
里面的批注大体结构不知是否如下。
(1)文件名称 C254【暂考虑内容字数少,不使用备注型字段】
(2)批注对应起始 N8
(3)批注对应结束 N8
(4)批注对应内容 C254 【暂考虑内容字数少,不使用备注型字段】
(5)批注注解内容 C254 【暂考虑内容字数少,不使用备注型字段】