vba - Word 2003 VBA - 你如何禁用 'Word has insufficient memory'' 警告

Question

我正在运行 Word 2003。

我有一个 Word 文档，我从中运行一个宏来打开其他 Word 文档并在保存和关闭它们之前对其执行任务。

由于更改次数过多，我不断点击“Word 内存不足。一旦完成，您将无法撤消此操作。你想继续吗？' 提示符。

我用“谷歌搜索”了这个错误，除了以下似乎对此不起作用的内容外，没有发现任何其他内容:

• Application.DisplayAlerts = False
• Application.DisplayAlerts =
wdAlertsNone

我认为这可能是因为代码适用于运行宏的文档，而不是宏正在处理的文档。

下面的代码是我正在使用的代码的精简版本。我删除的只是一些日志记录功能。

Function open_word_file(file_name)

    Call wd_backup_current_file_first(file_name) ' backup the current file - so that if damage is done, it can be undone.

    Documents.Open FileName:=file_name, ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""


    Application.DisplayAlerts = False
    'Application.DisplayAlerts = wdAlertsNone



    '<do_work>
    Call do_something_with_the_opened_file
    '</do_work>

    ActiveDocument.Save ' save the changes
    ActiveDocument.Close
End Function

Answer 1

经过大量试验和错误后，导致问题的是撤消缓冲区。

我将以下行放在处理文件的循环中，消息不再显示。

ActiveDocument.UndoClear