如何使用VB.NET在Word中添加书签？求实现方案

嘿，我刚好在用OpenXML SDK做Word文档操作的项目，给你补全代码并拆解一下实现步骤吧～

你已经引入了正确的命名空间，接下来的核心是：Word的书签需要成对的BookmarkStart和BookmarkEnd元素，它们必须共享同一个唯一的Id属性，并且要包裹住你想要标记的内容（或者放在你想标记的位置前后）。

完整实现代码 #

把这些内容整合到你的Add_bookmark_Load方法里即可：

Private Sub Add_bookmark_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Using doc As WordprocessingDocument = WordprocessingDocument.Open(fileName, True)
        Dim docBody As Body = doc.MainDocumentPart.Document.Body

        ' 生成唯一的书签ID，避免和现有书签冲突
        Dim existingBookmarkIds = doc.MainDocumentPart.Document.Descendants(Of BookmarkStart)().Select(Function(b) Integer.Parse(b.Id.Value)).ToList()
        Dim newBookmarkId As Integer = If(existingBookmarkIds.Any(), existingBookmarkIds.Max() + 1, 1)

        ' 创建书签起始标记和结束标记，ID必须完全一致
        Dim bookmarkStart As New BookmarkStart() With {
            .Name = bookmarkName,
            .Id = New StringValue(newBookmarkId.ToString())
        }
        Dim bookmarkEnd As New BookmarkEnd() With {
            .Id = New StringValue(newBookmarkId.ToString())
        }

        ' 选择书签要标记的目标位置：这里选文档的第一个段落，你可以按需修改
        Dim targetParagraph As Paragraph = docBody.Elements(Of Paragraph)().FirstOrDefault()

        If targetParagraph IsNot Nothing Then
            ' 把书签起始标记插入到段落最前面，结束标记插入到段落最后面
            targetParagraph.InsertBefore(bookmarkStart, targetParagraph.FirstChild)
            targetParagraph.AppendChild(bookmarkEnd)
        Else
            ' 如果文档为空，就新建一个带书签的段落
            Dim newPara As New Paragraph()
            Dim run As New Run(New Text("这是带书签的新增内容"))
            newPara.AppendChild(bookmarkStart)
            newPara.AppendChild(run)
            newPara.AppendChild(bookmarkEnd)
            docBody.AppendChild(newPara)
        End If

        ' 保存文档更改
        doc.MainDocumentPart.Document.Save()
    End Using

    MessageBox.Show("书签添加完成！")
End Sub

关键注意点 #

• 书签的Id必须唯一，否则Word会识别异常，所以我们先获取现有书签的最大ID再加1来生成新ID
• BookmarkStart和BookmarkEnd必须成对出现，且两者的Id属性值必须完全匹配
• 你可以根据需求调整书签位置：比如要标记特定文本，就找到该文本对应的Run元素，把起始标记插在Run前，结束标记插在Run后即可

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