Excel VBA：点击确认按钮后无法删除ListBox1中剩余Word书签

核心问题 #

你的代码存在三个关键问题导致删除书签功能失效：

1. 变量作用域错误：wdApp和wdDoc在UserForm_Initialize和Finish_Click中被分别声明为局部变量，导致两个过程操作的不是同一个Word文档对象。
2. 书签删除逻辑不完整：仅删除书签范围的文本，未彻底移除书签对象；且遍历过程中修改ListBox内容可能干扰后续操作。
3. Word实例关闭逻辑疏漏：未判断Word实例是否由本程序创建，可能误关用户其他Word窗口。

修复后的完整代码 #

首先在用户窗体模块的最顶部（所有过程之外）声明模块级变量：

' 模块级变量，确保Initialize和Finish_Click共享同一个Word对象
Dim wdApp As Object
Dim wdDoc As Object
Dim wdAppCreated As Boolean

然后修改Finish_Click过程：

Private Sub Finish_Click()
    Dim bookmarkName As String
    Dim i As Long

    On Error GoTo ErrorHandler

    ' 遍历ListBox1中的书签（不再修改ListBox内容）
    For i = 0 To Me.ListBox1.ListCount - 1
        ' 将ListBox中的空格还原为下划线（匹配Word中书签的真实名称）
        bookmarkName = Replace(Me.ListBox1.List(i), " ", "_")
        
        If wdDoc.Bookmarks.Exists(bookmarkName) Then
            With wdDoc.Bookmarks(bookmarkName).Range
                .Text = "" ' 清空书签位置的内容
                .Bookmarks(bookmarkName).Delete ' 彻底删除书签对象
            End With
        End If
    Next i

    ' 保存并关闭目标文档
    wdDoc.Save
    wdDoc.Close

    ' 仅关闭由本程序创建的Word实例
    If wdAppCreated Then
        wdApp.Quit
    End If

    ' 卸载用户窗体
    Unload Me

    ' 调用替换过程
    Call ReplaceWordsBetweenAngleBrackets

    Exit Sub

ErrorHandler:
    MsgBox "错误信息: " & Err.Description
End Sub

UserForm_Initialize过程调整变量声明逻辑（保留原有业务逻辑）：

Private Sub UserForm_Initialize()
    Dim bm As Object

    On Error GoTo ErrorHandler

    ' 获取或创建Word实例
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        Set wdApp = CreateObject("Word.Application")
        wdAppCreated = True ' 标记为程序创建的实例
    Else
        wdAppCreated = False
    End If
    On Error GoTo ErrorHandler

    ' 打开目标文档
    Set wdDoc = wdApp.Documents.Open("C:\Temp.print\wordTemplate.docx")

    ' 加载书签到ListBox1（排除logo和footer开头的书签）
    For Each bm In wdDoc.Bookmarks
        If Left(bm.Name, 4) <> "logo" And Left(bm.Name, 6) <> "footer" Then
            Me.ListBox1.AddItem Replace(bm.Name, "_", " ")
        End If
    Next bm

    Exit Sub

ErrorHandler:
    MsgBox "错误信息: " & Err.Description
End Sub

关键改动说明 #

• 模块级变量：将wdApp、wdDoc、wdAppCreated提升为模块级，确保两个过程操作的是同一个Word文档，避免ActiveDocument指向错误文档的问题。
• 完整删除书签：先清空书签范围的文本，再调用Bookmarks(bookmarkName).Delete彻底移除书签对象，确保Word中不再残留该书签。
• 移除不必要的ListBox修改：遍历过程中不再修改ListBox1的内容，避免索引混乱或意外干扰。
• 智能关闭Word实例：仅关闭由本程序创建的Word窗口，防止误关用户正在使用的其他Word文档。

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