| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 76 人关注过本帖
标题:请问WIN10+VFP9环境下可以读取WPS文字组件编辑的DOCX或DOC文档里的批注信息 ...
只看楼主 加入收藏
shschy
Rank: 2
等 级:论坛游民
帖 子:87
专家分:20
注 册:2022-3-13
结帖率:35.29%
收藏
 问题点数:2 回复次数:1 
请问WIN10+VFP9环境下可以读取WPS文字组件编辑的DOCX或DOC文档里的批注信息吗
请问WIN10+VFP9环境下可以读取WPS文字组件编辑的DOCX或DOC文档里的批注信息吗?
需要读取WPS文字组件编辑的DOCX或DOC文档里的批注信息,在相近文档里同步标注
如果DOCX或DOC文档里没有表格、插图等元素,只有段落文字。
里面的批注大体结构不知是否如下。
(1)文件名称     C254【暂考虑内容字数少,不使用备注型字段】   
(2)批注对应起始 N8
(3)批注对应结束 N8
(4)批注对应内容 C254 【暂考虑内容字数少,不使用备注型字段】
(5)批注注解内容 C254 【暂考虑内容字数少,不使用备注型字段】

搜索更多相关主题的帖子: 内容 读取 文档 文字 DOC 
7 天前 06:15
shschy
Rank: 2
等 级:论坛游民
帖 子:87
专家分:20
注 册:2022-3-13
收藏
得分:0 
我尝试以下代码,只能读到一个参数 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
3 天前 07:38
快速回复:请问WIN10+VFP9环境下可以读取WPS文字组件编辑的DOCX或DOC文档里的批注 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018910 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved