Word VBA书签超链接列表生成异常：条目挤在一行

你的代码核心问题是添加超链接后没有正确更新rng的位置。调用Hyperlinks.Add时，超链接会插入到当前rng指向的位置，但rng并不会自动扩展到超链接的末尾。后续执行rng.InsertParagraphAfter时，实际是在原rng的起始位置插入段落，导致所有超链接被挤到最后一行，同时产生大量无效空行。

Sub Contents1FrmBookmarksWLinks()
    Dim bmk As Bookmark ' 避免和内置Bookmark对象类型名冲突
    Dim rng As Range
    Dim linkText As String
    
    ' 在文档末尾创建新区域并添加分页符
    Set rng = ActiveDocument.Range
    rng.Collapse wdCollapseEnd
    rng.InsertBreak wdPageBreak

    ' 添加标题并换行
    rng.InsertAfter "List of Bookmarks:"
    rng.Collapse wdCollapseEnd
    rng.InsertParagraphAfter
    rng.Collapse wdCollapseEnd

    ' 遍历所有书签
    For Each bmk In ActiveDocument.Bookmarks
        linkText = bmk.Name
        
        ' 添加超链接到当前rng位置
        ActiveDocument.Hyperlinks.Add _
            Anchor:=rng, _
            Address:="", _
            SubAddress:=linkText, _
            TextToDisplay:=linkText
        
        ' 关键：将rng移动到超链接文本的末尾
        rng.MoveEnd wdCharacter, Len(linkText)
        ' 插入段落分隔符并重新定位rng到新段落开头
        rng.InsertParagraphAfter
        rng.Collapse wdCollapseEnd
    Next bmk

    MsgBox "Bookmark list with links created."
End Sub

• 变量重命名：把bookmark改为bmk，避免和Word内置的Bookmark对象类型名冲突，减少潜在语法错误。
• 更新范围位置：添加超链接后，用rng.MoveEnd wdCharacter, Len(linkText)将rng的结束位置移动到超链接文本末尾，确保段落分隔符插入到每个超链接的后方。
• 段落定位逻辑：插入段落分隔符后，再次折叠rng到文档末尾，为下一个超链接的插入准备正确位置。

• 若需跳过Word自动生成的隐藏书签（通常以_开头），可在循环内添加判断：If Not bmk.Name Like "_*" Then ...
• 可以将书签名称存入数组排序后再生成链接，让输出列表更整洁有序。

内容的提问来源于stack exchange，提问作者CDuv