如何快速删除Word文档大量书签？寻求无需重启文档的高效方案

问题背景 #

处理超1200页、含25000+书签的大型Word文档时，现有优化后的VBA宏删除书签速度极慢：

Public Sub RemoveBookmarks(ByRef doc As Document)
    Dim b As Bookmark
    Dim i As Long
    For Each b In doc.Bookmarks
        b.Delete
        ' 避免删除少量书签后Word崩溃
        i = i + 1
        If i Mod 4 = 0 Then
            doc.UndoClear
        End If
        ' 响应中断操作
        If i Mod 100 = 0 Then
            DoEvents
        End If
    Next b
    Set b = Nothing
End Sub

而OpenXML SDK的离线处理方式速度极快，但需要关闭并重新打开文档，不符合大型流程的连续性需求：

public static void RemoveAllBookmarks(string fileName)
{
    using (WordprocessingDocument wordDoc = WordprocessingDocument.Open(fileName, true))
    {
        var d = wordDoc.MainDocumentPart.Document;
        var bstart = d.Descendants<BookmarkStart>().ToList();
        foreach (var s in bstart)
            s.Remove();

        var bend = d.Descendants<BookmarkEnd>().ToList();
        foreach (var e in bend)
            e.Remove();
        
        d.Save();
        wordDoc.Save();
    }
}

需要实现：不关闭已打开文档，直接操作底层WordProcessingDocument快速删除书签

可行解决方案 #

1. VSTO插件（C#）直接操作已打开文档的OOXML #

在VSTO Word插件中，可通过Document.WordOpenXML获取文档底层OOXML，修改后写回，无需关闭文档：

public void RemoveBookmarksFromOpenDocument(Word.Document doc)
{
    // 获取当前文档的OOXML内容
    string docXml = doc.WordOpenXML;

    // 内存中加载并修改OOXML
    using (MemoryStream ms = new MemoryStream(Encoding.UTF8.GetBytes(docXml)))
    {
        using (WordprocessingDocument wordDoc = WordprocessingDocument.Open(ms, true))
        {
            var mainPart = wordDoc.MainDocumentPart;
            if (mainPart == null) return;

            // 批量删除所有书签起始和结束节点
            var bookmarkStarts = mainPart.Document.Descendants<BookmarkStart>().ToList();
            foreach (var start in bookmarkStarts)
            {
                start.Remove();
            }

            var bookmarkEnds = mainPart.Document.Descendants<BookmarkEnd>().ToList();
            foreach (var end in bookmarkEnds)
            {
                end.Remove();
            }

            mainPart.Document.Save();
        }

        // 将修改后的OOXML写回已打开的文档
        doc.Range().InsertXML(Encoding.UTF8.GetString(ms.ToArray()));
    }
}

• 优势：完全无需关闭文档，速度接近离线OpenXML处理效率，可无缝嵌入大型自动化流程
• 注意：需确保文档已保存未修改的内容，避免WordOpenXML获取到不一致的结构；建议在64位Office环境下运行，处理超大文档时避免内存不足

2. VBA+PowerShell变通方案（无需VSTO） #

若无法部署VSTO，可通过VBA生成临时副本，调用PowerShell用OpenXML处理后替换原文档：

VBA代码

Sub FastRemoveBookmarks()
    Dim tempPath As String
    tempPath = Environ("TEMP") & "\temp_doc_" & Format(Now, "YYYYMMDDHHMMSS") & ".docx"
    
    ' 保存当前文档到临时文件
    ActiveDocument.SaveCopyAs tempPath
    
    ' 调用PowerShell脚本处理书签
    Shell "powershell.exe -File ""C:\Scripts\RemoveBookmarks.ps1"" -FilePath """ & tempPath & """", vbHide
    
    ' 根据文档大小调整等待时间
    Application.Wait Now + TimeValue("00:00:05")
    
    ' 替换原文档
    ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
    Documents.Open tempPath
    
    ' 清理临时文件
    Kill tempPath
End Sub

配套PowerShell脚本（RemoveBookmarks.ps1）

param([string]$FilePath)

# 加载OpenXML SDK程序集（路径根据实际安装版本调整）
Add-Type -Path "C:\Program Files\Open XML SDK\V2.5\lib\DocumentFormat.OpenXml.dll"

using namespace DocumentFormat.OpenXml.Packaging
using namespace DocumentFormat.OpenXml.Wordprocessing

try {
    $wordDoc = [WordprocessingDocument]::Open($FilePath, $true)
    $mainPart = $wordDoc.MainDocumentPart
    if ($mainPart -ne $null) {
        # 批量删除书签节点
        $bookmarkStarts = $mainPart.Document.Descendants([BookmarkStart]) | ForEach-Object { $_ }
        foreach ($start in $bookmarkStarts) { $start.Remove() }
        
        $bookmarkEnds = $mainPart.Document.Descendants([BookmarkEnd]) | ForEach-Object { $_ }
        foreach ($end in $bookmarkEnds) { $end.Remove() }
        
        $mainPart.Document.Save()
    }
    $wordDoc.Save()
    $wordDoc.Close()
}
catch {
    Write-Error $_.Exception.Message
}

• 局限：需要关闭并重新打开文档，额外部署OpenXML SDK和脚本，适合无法使用VSTO的场景

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