Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngIndex As Long
Dim oBM As Bookmark
Dim oRng As Range
Dim strName As String
For lngIndex = ActiveDocument.Bookmarks.Count To 1 Step -1
Set oBM = ActiveDocument.Bookmarks(lngIndex)
strName = oBM.Name
Set oRng = oBM.Range
oRng.Text = oBM.Name
ActiveDocument.Bookmarks.Add strName, oRng
Next
End Sub