Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何比较多个WORD文件内容？


  共有2907人关注过本帖树形打印复制链接

主题：如何比较多个WORD文件内容？
帅哥哟，离线，有人找我吗？
南望
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3290 威望：0 精华：0 注册：2014/4/9 10:04:00 		如何比较多个WORD文件内容？  发帖心情 Post By：2020/9/16 13:53:00 [显示全部帖子]

现在有一项目，有很多WORD文件，如何对比其内容知道多个WORD前的重复率？麻烦有经验的老师给个思路呗？

 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3290 威望：0 精华：0 注册：2014/4/9 10:04:00 		  发帖心情 Post By：2020/12/5 1:24:00 [显示全部帖子]

我的大概思路是这样：批量读取word中每个段落内容，按每个段落为单位抽取到foxtable数据库中/（即word中一个段落为数据库的一行）然后在foxtable数据库中做精确的排重操作。 1、此思路是否可行 2、论坛可有相关例子供参考

 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3290 威望：0 精华：0 注册：2014/4/9 10:04:00 		  发帖心情 Post By：2020/12/8 16:59:00 [显示全部帖子]

beyondcompare实现比对WORD的数量也是有限，不能太多个比较。

 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3290 威望：0 精华：0 注册：2014/4/9 10:04:00 		  发帖心情 Post By：2020/12/8 17:11:00 [显示全部帖子]

下列代码如何按WORD中以逗号为分隔提取内容？

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
    For Each k As object In doc.Paragraphs
        output.show(k.Range.text)
    Next
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.quit
End try
 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3290 威望：0 精华：0 注册：2014/4/9 10:04:00 		  发帖心情 Post By：2020/12/8 20:28:00 [显示全部帖子]

谢谢老师，您前面提到的段落1包含段落2是怎么实现的？

 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3290 威望：0 精华：0 注册：2014/4/9 10:04:00 		  发帖心情 Post By：2020/12/9 0:05:00 [显示全部帖子]

收到，谢谢老师。再问一下，用上面的代码提取的WORD段落可以保留标记不？如：字体、颜色、字号等等原WORD的完整信息一并一起提取出来，这样有利把提出的数据处理后回填到WORD中保持WORD样式不变。

 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3290 威望：0 精华：0 注册：2014/4/9 10:04:00 		  发帖心情 Post By：2020/12/16 16:23:00 [显示全部帖子]

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
    For Each k As object In doc.Paragraphs
        查找关键字或句，找到即替换怎么实现？
    Next
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.quit
End try
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询