If you create Word application object, uou can use
Selection.Range
to tell the application: "use current selection" or you should create range object in context:
Sub cxzcxz()
Dim doc As Word.Document
Dim rng As Word.range
Set doc = Documents(1)
Set rng = doc.Paragraphs(1).range
End Sub
How to create bookmark using VBA (Word application)?
Sub test()
Dim oBkm As Word.Bookmark
Set oBkm = AddBookmark("Bookmark1", Selection.Range)
MsgBox oBkm.Name, vbInformation, "Message"
End Sub
Function AddBookmark(ByVal sName As String, ByRef oRange As Word.Range) As Word.Bookmark
Set AddBookmark = oRange.Bookmarks.Add(sName, oRange)
End Function
sorry, for my language I'm still learning