打开VBA编辑器 Alt+F11
Sub Test()
' MsgBox (ActiveDocument.Bookmarks(1).Name)
Dim s
s = ""
For i = 1 To ActiveDocument.Bookmarks.Count Step 1
s = s & ActiveDocument.Bookmarks(i).Name & vbCrLf
Next
Form1.txt1.Text = s
Form1.Show
End Sub
还要额外建一个叫Form1的用户窗体,窗体上要弄一个叫txt1的多行文本框