title: Word VBA: How to Fix FOR EACH loop to add bookmark to each sentence?
body: <p>Within a Word docx: I'm trying to add a bookmark to each sentence. For example, at first sentence would be bookmark "bmarkpg01" and second sentence would be bookmark ""bmarkpg01ln01col01"". My code adds only one bookmark to first sentence and doesn't loop through to end of document.</p>
  
  <p>I've tried a for each loop to attempt each sent in sentences and each bmark in bookmark. </p>
  
  <pre><code>Sub tryAddBmarkatSentence()
  Dim myRange As Range
  Set myRange = ActiveDocument.Content
  Dim bmark As Bookmark
  
  Application.ScreenUpdating = False
  
  For Each MySent In ActiveDocument.Sentences
      For Each bmark In ActiveDocument.Bookmarks
          ActiveDocument.Bookmarks.Add Name:="pmark" &amp; bmark.Range.Information(wdActiveEndAdjustedPageNumber), Range:=myRange 'bmark name would have added info of page, line, and col number. here as example is pagenumber.
  
      Next
  Next
  
  End Sub
  </code></pre>
  
  <p>EXPECTED RESULT: Within entire document, each sentence has a corresponding bookmark and bookmark name ("bmarkpg01ln01col01", "bmarkpg01ln02col10", etc.)</p>
  
  <p>ACTUAL RESULTS: only one bookmark is added to the first sentence of the document.</p>