Word VBA:如何修复每个循环，为每个句子添加书签？

Sub AddBookmarkToSentences()
    Dim doc As Document
    Dim rng As Range
    Dim sentence As Range
    
    ' 获取当前活动文档
    Set doc = ActiveDocument
    
    ' 设置范围为整个文档
    Set rng = doc.Content
    
    ' 将文档范围的格式设置为普通文本，以确保正确识别句子
    rng.Select
    Selection.ClearFormatting
    
    ' 循环遍历每个句子并添加书签
    For Each sentence In rng.Sentences
        ' 添加书签，书签名称为句子的文本内容
        doc.Bookmarks.Add sentence.Text, sentence
    Next sentence
    
    ' 清除选择
    Set rng = Nothing
    Set sentence = Nothing
    Set doc = Nothing
End Sub