如何防止 MS-Word 内存错误

Question

有没有办法释放内存并防止以下代码在 MS-Word 中崩溃？我收到以下错误消息：

This method or property is not available because there is a memory or disk problem.

Sub vbaTest()
Dim doc As Document
Dim sty As Style
Dim s As Style
Dim readingOrder As WdReadingOrder
Dim i As Integer
    Set doc = ActiveDocument
    Set sty = doc.Styles(wdStyleNormal)
    For i = 0 To 100
        readingOrder = sty.ParagraphFormat.readingOrder
        For Each s In doc.Styles
            s.Font.SizeBi = s.Font.Size + 3
        Next
        Set s = Nothing
    Next
    Set sty = Nothing
End Sub

-- 或--

public void CsharpRibbon_Click(O.IRibbonControl c)
{
    var doc = app.ActiveDocument;
    var style = doc.Styles[Wd.WdBuiltinStyle.wdStyleNormal];
    for (int i = 0; i < 100; i++)
    {
        var readingOrder = style.ParagraphFormat.ReadingOrder;
        foreach (Wd.Style s in doc.Styles)
            s.Font.SizeBi = s.Font.Size + 3;
    }
}

上面的代码实际上没有任何帮助。我有一个功能区按钮，我注意到它会导致重复按下按钮时崩溃（在 Word 会话中大约 5 或 6 次）。我剥离了代码并添加了 for 循环来模拟多次按下按钮。

Answer 1

我不确定这是否是你的错误，因为100次迭代似乎不足以导致内存错误，但VSTO使用COM对象，使用后必须释放。简单的方法是：

Paragraph para = Paragraphs[1];
// etc.
Marshal.ReleaseComObject(yourObject);

还有 VSTO Contrib 让这更容易一些。与其调用 ReleaseComObject，不如这样：

using (var doc = Document.WithComCleanup())
using (var paragraphs = doc.Resource.Paragraphs.WithComCleanup())
{
    int count = paragraphs.Resource.Count;
    // etc.
}

或者，对于集合：

foreach (Paragraph para in Paragraphs.ComLinq<Paragraph>())
{
    int pageBreakBefore = para.PageBreakBefore;
    // etc.
}

如何防止 MS-Word 内存错误

How to prevent MS-Word memory error

c#

vba

vsto

memory-management

ms-word