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