请教：如何判断文中某一段中是否包含某一字符串

maoecr1

如题，如何判断文中某一段中是否包含某一字符串，比如我想判断一下最后文中一段是否含有“本发明”三个字，如果含有的话则执行某操作，想用代码实现一下，烦请各位老师指教！

daibao88

find f1 看看帮助文件

413191246se

1. Sub 经典代码_循环遍历段落法_ForEachNext_判断段落是否含有关键词()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         If i.Range Like "*本发明*" Then
   
5.             i.Range.Font.Color = wdColorRed '红色
   
6.         End If
   
7.     Next
   
8. End Sub

复制代码

duquancai

下面代码将就用，如有坑，请自己出坑！

1. Sub main()
   
2.     Dim j As Long, doc As Document
   
3.     Set doc = ActiveDocument
   
4.     j = InStr(doc.Content.Text, "本发明")
   
5.     If j > 0 Then
   
6.         With doc.Range(j, j).Paragraphs(1).Range
   
7.             .Font.Color = wdColorRed '红色
   
8.         End With
   
9.     End If
   
10. End Sub

复制代码

duquancai

1. Sub main()
   
2.     With ActiveDocument.Bookmarks("\EndOfDoc").Range.Paragraphs(1).Range.Find
   
3.         If .Execute("本发明") Then
   
4.             .Parent.Paragraphs(1).Range.Font.Color = wdColorRed '红色
   
5.         End If
   
6.     End With
   
7. End Sub

复制代码

maoecr1

413191246se 发表于 2019-7-4 10:46

辛苦，如果我就是判断最后一段呢，不做循环，应该咋改改呢

413191246se

Sub LastPara()
    If ActiveDocument.Paragraphs.Last.Range Like "*本发明*" Then MsgBox "OK!", 0 + 48 Else MsgBox "NO!", 0 + 48
End Sub

413191246se

楼主，有时间建议学习学习《微软官方VBA帮助》CHM文档，会有帮助的。

413191246se

杜老师 的代码很高级，我的很低级。

maoecr1

413191246se 发表于 2019-7-4 14:45
杜老师 的代码很高级，我的很低级。

嗯嗯，确实应该好好学习下，这不是着急用，所以偷个懒，直接请教各位了