在VBA中读取撤消历史记录

我在Word 2003中有一个相当简单的VBA,它将文档的字体更改为“Eco字体”(长篇故事),并显示“打印”对话框。

当用户单击“取消”或“确定”时,代码执行“撤消”以恢复更改。

问题是,有时当我按“确定”打印文档时, 二 操作需要撤消(“字体更改”和“更新字段”)。我似乎无法预测这将在何时发生。

是否有任何方法读取Word撤消缓冲区中的最后一项?这样我就可以一直按“撤消”,直到字体更改完成。

编辑: 最终代码(削减):

ActiveDocument.Range.Bookmarks.Add ("_tempEcoUndoStart_") 
ActiveDocument.Content.Font.Name = "Nanonymus Eco Sans" 
Dialogs(wdDialogFilePrint).Show 
While ActiveDocument.Bookmarks.Exists("_tempEcoUndoStart_") 
    ActiveDocument.Undo 
Wend