Sub UpdateBookmarks()
Dim lngIndex As Long
Dim oRng As Range
Dim strName As String
  With ActiveDocument
    For lngIndex = 1 To .Bookmarks.Count
      Set oRng = .Bookmarks(lngIndex).Range
      strName = .Bookmarks(lngIndex).Name
      oRng.Text = InputBox("Please enter " & strName)
      .Bookmarks.Add strName, oRng
    Next
  End With
lbl_Exit:
  Exit Sub
End Sub