WD: "There is not enough memory..." Opening RTF or WordMail File

• Microsoft Word for Windows 95, version 7.0
• Microsoft Word for Windows, versions 6.x, 7.x
• Microsoft Word for the Macintosh, versions 6.x
• Microsoft Word for Windows NT, version 6.0

SYMPTOMS

Word may return the following error message when attempting to open a Rich Text Format (RTF) file or an email message from Exchange Client using WordMail:

   There is not enough memory to complete the operation.

CAUSE

Word retains revisions for all open documents in memory using a global revision table. A problem currently exists in rare instances where Word writes the revision tables of more than one open document to a single document when saving as RTF. If the revision table for that document grows larger than the 64 kilobyte (KB) revision table maximum supported by the RTF reader in Word, Word cannot reopen the file.

This problem can also occur when reading e-mail messages opened from Exchange using WordMail because this transfer is also based on RTF.

This problem most commonly occurs when running Word in a network environment where a large number of documents may be open at one time.

WORKAROUND

Word

NOTE: The following workaround addresses the problem described above, but the tradeoff is that the history of revisions made to the document is lost.

Method 1: Use a WordBasic Macro to Trim the Revision Table

The following macro trims the revision table in the RTF document.

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact the Microsoft fee-based consulting line at (800) 936-5200. For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

   http://www.microsoft.com/supportnet/refguide/

   Sub MAIN
   
      dothis = MsgBox("This macro will delete the revision history
      table" + " from an RTF file. To do this, you must first Open
      the RTF file" + " As Text. After the macro has run, just Save
      the file and Close." + " Click OK to run the macro.", " Delete
      REVTBL ", 305)
   
      If dothis = - 1 Then
         StartOfDocument
         EditFind .Find = "{\*\revtbl", .Direction = 0, .MatchCase = 0,
            .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .Format =
             0, .Wrap = 0
   
         If EditFindFound() = 0 Then
            MsgBox "No RevTbl Found"
         Else
            CharRight 1
            EditFind .Find = "}", .Direction = 0, .MatchCase =
               0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0,
               .Format = 0, .Wrap = 0
            CharRight 1
            mystart = GetSelStartPos()
            CharLeft 1
            EditFind .Find = "}}", .Direction = 0, .MatchCase =
               0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0,
              .Format = 0, .Wrap = 0
            CharLeft 1
            CharRight 1
            myend = GetSelEndPos()
            If myend - mystart < 100 Then
               MsgBox "RevTbl already trimmed"
            Else
               SetSelRange mystart, myend
               EditClear
               MsgBox "RevTbl successfully trimmed"
            EndIf
         EndIf
      EndIf
   
   End Sub