如何避免带项目符号的Word书签在VBA更新时发生重叠？

我有一份包含大量书签的Word文档，需要通过Excel VBA自动更新这些书签，书签对应的项目符号原始内容如下：

-   Fixe_2 
-   Fixe_3:

o   Fixe_4
o   Fixe_5

但更新书签时出现了重叠问题，比如将Fixe_4设为Blablabla后，Fixe_5的书签会占据原Fixe_4的项目符号位置，显示效果变成：

-   Fixe_2 
-   Fixe_3:

o   BlablablaFixe_5

以下是用于更新书签的简化VBA代码：

If Range("G10") = "Fixe" Then
    wdDoc.Bookmarks("Fixe_2").Range.Text = "Blablabla "
    wdDoc.Bookmarks("Fixe_3").Range.Text = " Blablabla"
    wdDoc.Bookmarks("Fixe_4").Range.Text = " Blablabla "
    wdDoc.Bookmarks("Fixe_5").Range.Text = " Blablabla "
Else
    wdDoc.Bookmarks("Fixe_2").Range.Text = ""
    wdDoc.Bookmarks("Fixe_3").Range.Text = " "
    wdDoc.Bookmarks("Fixe_4").Range.Text = " "
    wdDoc.Bookmarks("Fixe_5").Range.Text = " "
End If

请问如何确保更新时这些带项目符号的书签不会重叠？

问题根源是直接修改书签Range的文本会破坏Word项目符号的段落结构，导致后续列表项偏移。以下是几种可行的解决方法：

方法1：更新文本时保留书签 #

直接替换文本会删除原书签，后续操作容易出错。可以先记录书签位置，替换后重新添加书签：

Sub UpdateBookmarkPreserve(wdDoc As Object, bookmarkName As String, newText As String)
    Dim bmRange As Object
    On Error Resume Next
    Set bmRange = wdDoc.Bookmarks(bookmarkName).Range
    On Error GoTo 0
    
    If Not bmRange Is Nothing Then
        ' 记录书签的起始位置
        Dim startPos As Long
        startPos = bmRange.Start
        
        ' 替换文本
        bmRange.Text = newText
        
        ' 重新添加书签，覆盖新内容
        wdDoc.Bookmarks.Add Name:=bookmarkName, Range:=wdDoc.Range(startPos, startPos + Len(newText))
    End If
End Sub

调用时替换原代码中的直接赋值：

If Range("G10") = "Fixe" Then
    UpdateBookmarkPreserve wdDoc, "Fixe_2", "Blablabla "
    UpdateBookmarkPreserve wdDoc, "Fixe_3", " Blablabla"
    UpdateBookmarkPreserve wdDoc, "Fixe_4", " Blablabla "
    UpdateBookmarkPreserve wdDoc, "Fixe_5", " Blablabla "
Else
    UpdateBookmarkPreserve wdDoc, "Fixe_2", ""
    UpdateBookmarkPreserve wdDoc, "Fixe_3", " "
    UpdateBookmarkPreserve wdDoc, "Fixe_4", " "
    UpdateBookmarkPreserve wdDoc, "Fixe_5", " "
End If

方法2：调整书签范围（从根源避免问题） #

检查Word文档中的书签设置：

• 不要将项目符号本身（比如o）或段落标记包含在书签内，仅选中项目符号后面的文本内容（例如只选Fixe_4文字部分）。
• 这样修改文本时只会替换段落内的内容，不会破坏项目符号的段落结构。

方法3：更新后修复列表格式 #

如果已经出现格式混乱，可以在所有书签更新完成后，重新应用项目符号格式：

' 假设Fixe_4和Fixe_5属于同一段落范围，先定位该范围
Dim listRange As Object
Set listRange = wdDoc.Range(wdDoc.Bookmarks("Fixe_4").Range.Start, wdDoc.Bookmarks("Fixe_5").Range.End)
' 重新应用默认项目符号
listRange.ListFormat.ApplyBulletDefault

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