求大神，如何快速摘录带有特定文字的段落，去掉其他内容

zlf5588

RT。
想针对《民法典》法条中含有“另有约定”的法条，摘录下来做个汇编。怎么做才能快速准确选取包含字符的从“第*条 ……依照其规定”这一段呢。比如

第六十五条   法人的实际情况与登记的事项不一致的，不得对抗善意相对人。

第六十六条   登记机关应当依法及时公示法人登记的有关信息。

第六十七条   法人合并的，其权利和义务由合并后的法人享有和承担。

法人分立的，其权利和义务由分立后的法人享有连带债权，承担连带债务，但是债权人和债务人另有约定的除外。

---------------------------------------

如何才能快速选定从“第六十七条…………另有约定的除外。”  求大神指点一二。

zlf5588

自己顶一下

kuangben8

如果是Word版本的，直接查找关键字就可以 了吧？

zlf5588

kuangben8 发表于 2020-12-17 12:47
如果是Word版本的，直接查找关键字就可以 了吧？

可能我没有清晰表达意思，是一次性从一千多条里把包含这一字符串“另有约定”的法条都选定，不然只能手动一条条定位到然后复制。就想知道有没有快捷方法。。

kuangben8

zlf5588 发表于 2020-12-17 15:02
可能我没有清晰表达意思，是一次性从一千多条里把包含这一字符串“另有约定”的法条都选定，不然只能手动 ...

方法应该是有的。等待高手看看了。

413191246se

《中华人民共和国民法典》摘录另有约定段落(如果打不开请用7-Zip解压).rar (222.97 KB, 下载次数: 14)

2020-12-17 23:35 上传

点击文件名下载附件

zlf5588

413191246se 发表于 2020-12-17 23:35

感谢！求教一下怎么做到的，真的厉害了！想学习啊

413191246se

楼主，VBA宏一键摘录，后期用通配符查找替换添加了下划线。

zlf5588

413191246se 发表于 2020-12-18 10:21
楼主，VBA宏一键摘录，后期用通配符查找替换添加了下划线。

多谢指点，但是目前因为对VBA宏丝毫不了解，不懂您说的怎么实现如果有代码的话 可以发下吗

413191246se

1. Sub 摘录民法典_另有约定_段落()
   
2.     Dim i As Paragraph, s$
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         With i.Range
   
5.             If .Text Like "*另有约定*" Then
   
6.                 .Font.ColorIndex = wdRed
   
7.                 If .Text Like "第[一二三四五六七八九十百千]*[一二三四五六七八九十百千]条*" Then
   
8.                     s = s & vbCr & .Text
   
9.                 Else
   
10.                     .Select
    
11.                     With Selection
    
12.                         Do
    
13.                             .MoveStart 4, -1
    
14.                         Loop Until .Text Like "第[一二三四五六七八九十百千]*[一二三四五六七八九十百千]条*"
    
15.                         s = s & vbCr & .Text
    
16.                     End With
    
17.                 End If
    
18.             End If
    
19.         End With
    
20.     Next
    
21.     Documents.Add.Content.Text = s
    
22.     MsgBox "文档尚未保存！", 0 + 16
    
23. End Sub

复制代码