多Word文档操作中StartCustomRecord失效，求C#/VB.NET解决方案

我明白你遇到的困扰了——你的VBA代码里因为频繁切换激活文档，导致Word为每个文档的操作生成了单独的撤销条目，没法合并成预期的一条自定义撤销记录。核心原因是：每次调用Activate切换文档时，Word会重置当前的撤销上下文，原本的自定义撤销记录没法覆盖跨激活文档的操作。

要解决这个问题，关键是避免激活文档，直接通过文档对象本身操作内容，这样所有操作都会被纳入同一个应用程序级的自定义撤销会话中。下面是对应的C#和VB.NET解决方案：

C# 实现 #

using Microsoft.Office.Interop.Word;

public void TestUndoRecord()
{
    Application wordApp = new Application();
    // 假设你已经有两个打开的文档，直接获取对应对象
    Document doc1 = wordApp.Documents[1];
    Document doc2 = wordApp.Documents[2];

    UndoRecord undoRecord = wordApp.UndoRecord;
    undoRecord.StartCustomRecord("TEST");

    // 直接操作文档内容，无需激活文档
    doc2.Content.Paragraphs.First.Range.Text = "1";
    doc1.Content.Paragraphs.First.Range.Text = "1";
    doc2.Content.Paragraphs.First.Range.Text = "2";
    doc1.Content.Paragraphs.First.Range.Text = "2";

    undoRecord.EndCustomRecord();
}

VB.NET 实现 #

Imports Microsoft.Office.Interop.Word

Public Sub TestUndoRecord()
    Dim wordApp As New Application()
    ' 假设已有两个打开的文档，直接获取对应对象
    Dim doc1 As Document = wordApp.Documents(1)
    Dim doc2 As Document = wordApp.Documents(2)

    Dim undoRecord As UndoRecord = wordApp.UndoRecord
    undoRecord.StartCustomRecord("TEST")

    ' 直接操作文档内容，无需激活文档
    doc2.Content.Paragraphs.First.Range.Text = "1"
    doc1.Content.Paragraphs.First.Range.Text = "1"
    doc2.Content.Paragraphs.First.Range.Text = "2"
    doc1.Content.Paragraphs.First.Range.Text = "2"

    undoRecord.EndCustomRecord()
End Sub

关键说明 #

• 移除了所有Activate调用：直接通过doc1和doc2对象操作内容，不会切换活动文档，从而保持自定义撤销会话的连续性。
• 自定义撤销记录是应用程序级的：只要在StartCustomRecord和EndCustomRecord之间的所有操作（无论针对哪个文档），都会被合并到同一个名为"TEST"的撤销条目中。
• 执行后，Word的撤销列表里只会出现一条"TEST"记录，撤销它会一次性还原所有跨文档的修改。

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