Word macro - How to add bookmark between specified text?

gmayor · #1 01-30-2023, 10:06 PM

Without seeing the document:

Code:

Sub Macro1()
Dim orng As Range
    Set orng = ActiveDocument.Range
    With orng.Find
        Do While .Execute(findText:="CEO*together.", MatchWildcards:=True)
            orng.Bookmarks.Add "mark"
            Exit Sub
        Loop
    End With
End Sub

syl3786 · #2 01-31-2023, 12:33 AM

Many thanks for your help! The macro runs well! May I know if this Macro can add bookmarks for many times and name the bookmark automatically? For example, my document contains lots of "CEO:XXX" and his/her speech end with a full stop. I wish the Macro can automatically select them one by one and add as bookmark. Or is it too demanding for the Microsoft Word to do so?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to insert different sets of text at bookmark depending on sequence of selected check boxes	chipper09	Word VBA	0	06-21-2018 01:49 PM
Macro to transfer data from Word to another Word document with bookmark	Jovan Yong	Word VBA	3	04-17-2018 04:27 AM
macro to save as pdf with name from bookmark	pamtupac	Word VBA	3	06-06-2017 08:23 PM
Macro to return a word count of text contained within a bookmark	tomsrv	Word VBA	13	08-24-2016 02:26 AM
Word 2003 - IncludeText Does Not Include Bookmark Text if in a Form Text Control	skarden	Word	1	12-12-2011 10:39 PM