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

sylun · 发表于 2010-10-13 15:14

现在程序是每次列出一个例句，能不能添加一个对话框，在程序执行前，可以自由输入想要给每个单词配几个句子。比如输入3，就会给单词列表里的单词配三个例句。

楼主的要求真是层出不穷啊。
以下代码将前面的相关代码进行了组合，以满足多种需要。但毕竟程序不可能完美，特别是对动词短语的搜索，请楼主将就着用吧。

Sub test6()
Dim a As String
Dim fs, f
Dim findtext() As String, temp As String
Dim i As Integer, n As Integer, c As Long, info As String
a = InputBox("请输入每个单词所需要的例句数。其中：" & vbCrLf & vbCrLf & _
"0　全部列出（默认）" & vbCrLf & "-1 指定一个单词搜索", , 0)
If a = "" Then Exit Sub
If a = "-1" Then
ReDim findtext(0)
findtext(0) = InputBox("请输入要查的单词", , "Number")
Else
Set fs = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "请指定单词列表文本文件"
.InitialFileName = ActiveDocument.Path
.AllowMultiSelect = False
If .Show <> -1 Then Exit Sub
Set f = fs.OpenTextFile(.SelectedItems(1))
findtext() = Split(f.ReadAll, vbCrLf)
f.Close
Set fs = Nothing
End With
End If
With ActiveDocument.Content.Find
For i = 0 To UBound(findtext)
.MatchAllWordForms = IIf(findtext(i) Like "*[!A-Za-z]*", False, True)
info = info & vbCrLf & findtext(i) & vbCrLf
.Text = findtext(i)
Do While .Execute
n = n + 1
c = c + 1
If Val(a) > 0 And n > Val(a) Then Exit Do
With .Parent
.Expand wdSentence
temp = .Text
If Right(temp, 1) <> Chr(13) Then temp = temp & vbCrLf
If Val(a) = 1 Then
If InStr(info, vbCrLf & temp) = 0 Then
info = info & temp
Else
info = Replace(info, vbCrLf & findtext(i) & vbCrLf, "")
info = Replace(info, vbCrLf & temp, "|" & findtext(i) & vbCrLf & temp)
c = c - 1
End If
Exit Do
Else
If InStr(info, vbTab & temp) > 0 Then temp = "*" & temp '用星号标记重复的例句
info = info & n & vbTab & temp
End If
.Collapse wdCollapseEnd
End With
Loop
n = 0
.Parent.WholeStory
Next
End With
info = "共搜索到" & c & "条。" & vbCrLf & info
If a = "-1" Then
info = "指定单词搜索：" & findtext(0) & vbCrLf & info
Else
info = "指定每个单词所需例句的搜索上限数：" & IIf(Val(a) = 0, "全部", a) & vbCrLf & info
End If
Documents.Add.Content.Text = info
End Sub

复制代码

jiuyuedefeng · 发表于 2010-10-13 15:31

谢谢老大，真的是太感激了，帮了我的大忙！代码很完美！祝老大万事如意，好运相随！

newpageone · 发表于 2014-5-16 15:23

如何增加词组的筛选呢

sz114 · 发表于 2014-12-21 23:00

sylun 发表于 2010-10-13 15:14
楼主的要求真是层出不穷啊。
以下代码将前面的相关代码进行了组合，以满足多种需要。但毕竟程序不可能完 ...

对您的代码表示万分感谢，我在学习英语，您的代码给我很大帮助，祝您万事如意。谢谢谢谢您~~~~~~~~~~

sz114 · 发表于 2014-12-22 10:28

sylun 发表于 2010-10-13 15:14
楼主的要求真是层出不穷啊。
以下代码将前面的相关代码进行了组合，以满足多种需要。但毕竟程序不可能完 ...

如果指定一篇文章，同时对指定的文章内容进行对关键词的搜索，代码该怎么写？

希望高手们将代码加上。

我刚学习，不知道表达的清楚否？希望高手们多多帮忙。

谢谢~~~~~~~~~

ammyc · 发表于 2018-12-12 15:30

好好学习，天天向上

newpageone · 发表于 2019-6-3 14:24

受益匪浅，那么词组呢？

geryjun · 发表于 2021-4-23 23:10

正需要，谢谢分享。

tcdatongye · 发表于 2021-4-25 17:09

本帖最后由 tcdatongye 于 2021-4-25 20:09 编辑

Dim rng As Range
t1 = "number"'关键词
t = t1 & Chr(13)
Set rng = Selection.Range
rng.StartOf unit:=wdStory
With rng.Find
.Text = t1
Do While .Execute
t = t & rng.Paragraphs(1).Range
Loop
End With
Documents.Add.Content.Text = t

复制代码

		自动登录	找回密码
密码			免费注册

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