VBA获取所有Word书签名

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的多行文本框