A family of Microsoft word processing software products for creating web, email, and print documents.
Sub ScratchMacro() 'A basic Word Macro coded by Gregory K. Maxey Dim oRng As Range Dim oBM As Bookmark If MsgBox("Is the cursor at the point you want to create you BM list?", vbQuestion + vbYesNo, "LIST LOCATION") = vbYes Then Set oRng = Selection.Range oRng.Collapse wdCollapseEnd For Each oBM In ActiveDocument.Bookmarks oRng.InsertAfter vbCr & oBM.Name Set oRng = ActiveDocument.Hyperlinks.Add(oRng.Paragraphs.Last.Range, , oBM.Name, , oBM.Range.Text).Range oRng.InsertAfter " " & oBM.Range.Information(wdActiveEndPageNumber) oRng.Collapse wdCollapseEnd Next Else MsgBox "Put the cursor where you want the BM List to appear and try again" End If lbl_Exit: Exit Sub End Sub