如何在一篇英文中把含有某个单词的句子都列出来？

jiuyuedefeng

如附件，WORD给出英文原始文本，
问题一：设计一个查询程序，输入查询的单词比如（number），则在文档结果一中会列出该篇英文中所有包含number的句子。
问题二：给出一个txt文档，里面有单词列表，在原始文章中查询txt中每个单词，把含有这个单词的句子分别列出来，都显示在文档结果二中。
恳请各位高手帮助。
求助.rar (18.78 KB, 下载次数: 84)

2010-10-11 03:49 上传

点击文件名下载附件

yyqq16888

复制到EXCEL处理

szh9388

2楼老师，具体如何操作

errorjoy

不知道，帮顶

sylun

可试试如下代码：
问题一：

1. Sub test1()
   
2.     Dim findtext As String, n As Integer, info As String
   
3.     findtext = InputBox("请输入要查的单词", , "Number")
   
4.     If findtext <> "" Then
   
5.         With ActiveDocument.Content.Find
   
6.             .Text = findtext
   
7.             .MatchAllWordForms = True
   
8.             Do While .Execute
   
9.                 n = n + 1
   
10.                 With .Parent
    
11.                     .Expand wdSentence
    
12.                     If .Text Like "*" & Chr(13) Then .End = .End - 1
    
13.                     info = info & n & vbTab & .Text & Chr(13)
    
14.                     .Collapse wdCollapseEnd
    
15.                 End With
    
16.             Loop
    
17.         End With
    
18.         With Documents.Add.Content
    
19.             .Text = info
    
20.         End With
    
21.     End If
    
22. End Sub

复制代码

问题二：

1. Sub test2()
   
2.     Dim fs, f
   
3.     Dim Dlg As FileDialog, findtext() As String
   
4.     Dim i As Integer, n As Integer, c As Long, info As String
   
5.    
   
6.     Set fs = CreateObject("Scripting.FileSystemObject")
   
7.     Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
   
8.     With Dlg
   
9.         .InitialFileName = ActiveDocument.Path
   
10.         .AllowMultiSelect = False
    
11.         If .Show <> -1 Then Exit Sub
    
12.         Set f = fs.OpenTextFile(.SelectedItems(1))
    
13.         findtext() = Split(f.ReadAll, vbCrLf)
    
14.     End With
    
15.     With ActiveDocument.Content.Find
    
16.         .MatchAllWordForms = True
    
17.         For i = 0 To UBound(findtext)
    
18.             info = info & vbCrLf & findtext(i) & vbCrLf
    
19.             .Text = findtext(i)
    
20.             Do While .Execute
    
21.                 n = n + 1
    
22.                 c = c + 1
    
23.                 With .Parent
    
24.                     .Expand wdSentence
    
25.                     If .Text Like "*" & Chr(13) Then .End = .End - 1
    
26.                     info = info & n & vbTab & .Text & Chr(13)
    
27.                     .Collapse wdCollapseEnd
    
28.                 End With
    
29.             Loop
    
30.             .Parent.WholeStory
    
31.             n = 0
    
32.         Next
    
33.     End With
    
34.     info = "共搜索到" & c & "条。" & vbCrLf & info
    
35.     Documents.Add.Content.Text = info
    
36. End Sub

复制代码

honggexjq

楼上高人，实力不济只简单做了第一个

[ 本帖最后由 honggexjq 于 2010-10-11 16:58 编辑 ]

hhb6085

回答问题1
查找number
替换内容空，选择样式：标题（1-8）均可，完成替换后，右击替后的标题，选择格式相同文本，复制粘贴到别的地方即可！

hhb6085

请问各位，现在论坛不能传动画文件了么？gif格式的

[ 本帖最后由 hhb6085 于 2010-10-12 01:47 编辑 ]

jiuyuedefeng

谢谢各位老大的帮助，非常感谢！

jiuyuedefeng

谢谢sylun老大的解答。烦请老大把问题二的代码再修改一下，比如单词表里有number，……，那么在原文中只要第一次找到含有number的例句，把这个例句摘出来后，就直接搜索下一个单词。也就是每个单词一个例句。应该是改一下循环语句，第一次找到就跳出，但是不会修改，烦请老大帮帮忙。