Hi eholz1,

how do you define rng in your code?

This is a simple example of setting bookmarks
to the first three words in a word doc.
The bookmarks are Mark1, Mark2, Mark 3.

Sub BookmarkinWord()
' early binding assumed
Dim WdApp As Word.Application
Dim MyDoc As Word.Document
Dim rTmp As Word.Range
Dim lCnt As Long
Set WdApp = CreateObject("Word.Application")
Set MyDoc = WdApp.Documents.Open("c:\test\lazy.doc")
Set rTmp = MyDoc.Range
With WdApp
..Visible = True
..WindowState = wdWindowStateMinimize 'wdWindowStateMaximize
End With
For lCnt = 1 To 3
With MyDoc.Bookmarks
.Add name:="Mark" & CStr(lCnt), _
Range:=MyDoc.Words(lCnt)
End With
Next
End Sub

HTH

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"