Find word, Insert Paragraph and bookmark

[gattaca714]

Hello I found this macro and Im trying to modify it to fit my application.



If the word Roll Call exist, select it and insert a paragraph after it, insert a bookmark. Any leads would be appreciate it.

Sub macro2()
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="Roll Call", Forward:=False
If myRange.Find.Found = True Then Selection.TypeParagraph
ActiveDocument.Bookmarks.Add Name:="mark"
End Sub

[gmayor]

The following should do the job

Sub macro2()
Dim myRange As Range
    Set myRange = ActiveDocument.Content
    With myRange.Find
        Do While .Execute(FindText:="Roll Call", MatchCase:=True) 'Find the text
            myRange.InsertParagraphAfter 'insert a paragraph break after it
            myRange.End = myRange.End + 1 'move the end of the range beyond the paragraph break
            myRange.Collapse 0 'Collapse the range to its end
            ActiveDocument.Bookmarks.Add Name:="mark", Range:=myRange 'add a bookmark at the range
            myRange.Select 'optionally select it
            Exit Do 'Stop looking for the text
        Loop
    End With
End Sub

[gattaca714]

Thank you, this appears to work as expected