主题：[求助]提取word文档字符串

文件列  [裁判文书] 添加文件时，能否自动提取word文档内  标志性文字后的字符串？

1、将“判决”或“裁定”两个字符提取到  [裁判类型]；

2、将“判决如下：”或“裁定如下：”后面的内容提取到   [裁判内容]；

见下图： 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:提取文档内容.rar

 

此主题相关图片如下：image 1.jpg

*************************************

此主题相关图片如下：image 2.jpg
  

*************************************

此主题相关图片如下：image 3.jpg

谢谢甜老师！

能不能只出现一次文件打开窗口，因为在添加列文件时已经选过一次文件了，在事件里又要重选一次文件。

路径改为：

Dim doc = app.Documents.Open（ProjectPath & "裁判文书\" & e.DataRow("承办人") & "\" & e.DataRow("案号") & ".doc" ）

 

感觉没有错，但是弹出，未找到文件。

我的存放文件路径代码是：

DataTables("数据表").DataCols("裁判文书").DefaultFolder = ProjectPath & "裁判文书\" & e.DataRow("承办人") & "\"

 

列属性的存放地址没有设置，是空的，添加文件后变成“C:\Users\Administrator\Desktop\提取文档内容\裁判文书\AAA\”

怎么改？

还是提示：

 

此主题相关图片如下：image 4.jpg

请教老师一个问题，上面的代码哪一句是把添加的文件放入“裁判文书”里的，一直没看出来。

这句：Dim file = e.SourceFolder & "\" & e.filename，是来源目录吗？起什么作用？

 

要是局域网路径怎么改？

八楼的代码，下图中如果提取倒数第3,4,5段落文字，并显示为：“审判长于XX，审判员孙XX，人民陪审员张XX”，怎样修改？谢谢！

 

 

此主题相关图片如下：1520143960_48842.jpg

但是这样不能排除倒数第二行的日期。

如果以自然段作为识别方式的话，可以作为上面方法的补充。对固定格式的文档有很强的通用性。

因此，希望老师能够再提供下面的代码：

1、正数或倒数第几段（自然段）；

2、连续正数几段或连续倒数几段（段落之间用“换行符”分隔，就是我上面的问题）

谢谢！

甜老师，因为要提取的字符，开头和结尾的标志字符不固定，所以想用段落来识别提取。

不知可行不？

谢谢甜老师！

上边的代码怎么去掉段落为空的行，就是去掉只有回车符的行。

因为有的人用回车代替行间距，造成按照段落数提取数据不准确。

甜老师，楼上的代码，怎样：

1、显示段落开头字符为“本院认为”的段落；

2、显示段落中包含字符为“AAA”的段落。

谢谢！