I did this with a bookmark inside RichTextControl to just move it above / below the other with two buttons on the action bar. For example, to move up, where "bm" is lower than the selected bookmark:
Dim pageBookmark As Microsoft.Office.Tools.Word.Bookmark
pageBookmark = Globals.ThisDocument.Controls.Item(bm)
pageBookmark.Range.Relocate(Direction:=Word.WdRelocate.wdRelocateUp)
, , , richtext (, "tag" ), , , / , "" , , . . Application.ScreenUpdating = False = True .