批量选中所有的感叹句

fasfas

求问各大神：

word中能否实现批量选中所有的感叹句，就是选中所有带"!"结尾的句子整句。

我想把一篇文章中所有感叹句提取出来，手动找实在太麻烦，查找功能搜索“!”会显示出各个感叹句的位置，但是还是不能把感叹句批量提取出来。

请大神帮忙设计一个代码，我想原理大概是找到"!"后，再向前选中到最近的一个或两个句点". "的位置，word原稿是外文，所以句号和感叹号都是半角的。

大谢！

fasfas

没有大神能回复一下啊T.T

13907933959

网友好！
你先要上传附件，把你要的效果模拟一下，才有人可能帮到你。

fasfas

各位，原文在附件，麻烦看一下，大谢~~

413191246se

1. Sub 提取感叹句()
   
2.     Dim i As String, v As Long, doc As Document
   
3.     i = ActiveDocument.Name
   
4.     Set doc = Documents.Add
   
5.     Documents(i).Activate
   
6. 
   
7.     Selection.EndKey Unit:=wdStory
   
8.     Selection.Find.ClearFormatting
   
9.     Do While Selection.Find.Execute(findtext:="!", Forward:=False)
   
10.         Do
    
11.             v = Len(Selection)
    
12.             Selection.MoveStart Unit:=wdCharacter, Count:=-1
    
13.             If Len(Selection) = v Then GoTo imhere
    
14.         Loop Until Selection Like "[.!?]*" '中括号内是分隔感叹句的标点符号，可自行增减
    
15.         Selection.MoveStart Unit:=wdCharacter, Count:=1
    
16.         If Selection.Characters(1) = " " Then Selection.MoveStart Unit:=wdCharacter, Count:=1
    
17. imhere:
    
18. '        Selection.Font.Color = wdColorRed '红色
    
19.         Selection.Copy
    
20.         doc.Content.Paste
    
21.         Selection.MoveLeft Unit:=wdCharacter, Count:=1
    
22.     Loop
    
23.     doc.Paragraphs(1).Range.Delete
    
24.     Documents(i).Close savechanges:=wdDoNotSaveChanges
    
25.     MsgBox "提取完毕！文档尚未保存，请自行保存！", vbOKOnly + vbExclamation, "提取感叹句"
    
26. End Sub

复制代码