用VBA列出Word文档的所有书签

Sub fadsfa()

Dim bookmark As bookmark

i = 1

For Each bookmark In ActiveDocument.Bookmarks
    Debug.Print i, bookmark.Name, "     ", bookmark.Range.Text
    i = i + 1
Next

End Sub

用VBA列出Word文档的所有书签。