I had created a sub long time ago to do that -- just to make it easy on my self
I created 2 empty bookmarks and ran drv1 to put something in
Then ran drv2 to make sure they were updated
Option Explicit
Sub drv1()
Call FillABookmark("MARK1", "aaaaaaaaaaaaaaaaaaaaaaaaa")
Call FillABookmark("MARK2", "bbbbbbbbbbbbbbbbbbbbbbbbb")
End Sub
Sub drv2()
Call FillABookmark("MARK1", "ccccccccccccccccccccccccc")
Call FillABookmark("MARK2", "ddddddddddddddddddddddddd")
End Sub
Sub FillABookmark(strBM_Name As String, strBM_Text As String)
Dim oRange As Word.Range
Set oRange = ActiveDocument.Bookmarks(strBM_Name).Range
ActiveDocument.Bookmarks(strBM_Name).Range.Text = strBM_Text
With oRange
.Collapse Direction:=wdCollapseEnd
.MoveEnd Unit:=wdCharacter, Count:=Len(strBM_Text)
End With
ActiveDocument.Bookmarks.Add strBM_Name, Range:=oRange
End Sub