要求：遍历文档中的所有段落，看看这些段落是否包含某些特定的字符，如果包含，那么，就返回该段落的第二句。
关键字：word vba
要实现这种功能，得在word中使用vba才可以。下面为大家介绍代码。
Dim SearchStr
SearchStr = "特定字符请自行修改"
For i = 1 To ActiveDocument.Paragraphs.Count
If (InStr(ActiveDocument.Paragraphs(i).Range.Text, SearchStr) = 0) Then
Else
MsgBox "出现在第" & i & "段"
MsgBox ActiveDocument.Paragraphs(i).Range.Sentences.Item(2).Text '返回该段落的第二个句子，句子是根据句号来区分的
Exit For
End If
Next i
执行的结果如下图所示。
注意哦，段落是根据段落标记来划分的，换行符或软回车符号不能代码段落。
部分代码解释：
ActiveDocument.Paragraphs.Count 当前文档所有段落
InStr(ActiveDocument.Paragraphs(i).Range.Text, SearchStr) = 0 如果SearchStr字符包含在该ActiveDocument.Paragraphs(i).Range.Text段落中，那么，返回的数字必大于0