首页 文章

在许多列表段落上循环Word宏会导致内存问题

提问于
浏览 次
0

我正在使用一个相当简单的用于Microsoft Word的vba宏来解决问题，它旨在解决我们在从Word文档创建PDF版本时我们看到的列表缩进问题 .

宏基本上循环遍历文档中的每个列表，并且对于与列表相关联的每个列表段落，它设置列表模板的项目符号和文本位置以匹配在段落级别应用的内容（代码需要与Word 2000一起使用，所以不使用列表样式） .

当处理大型文档（60个列表，~350个列表段落）时，宏第一次运行良好，但第二次在“此方法或属性不可用，因为存在内存或磁盘问题”时中断 .

我已经沿着通常的路线取消了在循环期间使用的任何对象引用，所以我看不出可能保留在内存中的内容 .

代码非常简单，由一个程序组成，当前存储在ThisDocument中：

Option Explicit

Sub test2()
    Dim i As Integer, n As Integer
    Dim curList As List, curPar As Paragraph, templ As ListTemplate
    Dim gapSize As Double, level As Integer

    Application.ScreenUpdating = False
    Application.Options.Pagination = False

    For i = 1 To Lists.Count
        Set curList = Lists(i)

        For n = 1 To curList.ListParagraphs.Count
            Set curPar = curList.ListParagraphs(n)

            Set templ = curPar.Range.ListFormat.ListTemplate
            level = curPar.Range.ListFormat.ListLevelNumber
            gapSize = templ.ListLevels(level).TextPosition - templ.ListLevels(level).NumberPosition

            templ.ListLevels(level).NumberPosition = curPar.LeftIndent - gapSize
            templ.ListLevels(level).TextPosition = curPar.LeftIndent
            templ.ListLevels(level).TabPosition = curPar.TabStops.After(curPar.LeftIndent - gapSize).position

            Set templ = Nothing
            Set curPar = Nothing
        Next n

        UndoClear
        Set curList = Nothing

    Next i

    Application.ScreenUpdating = True
    Application.Options.Pagination = True

End Sub
list vba for-loop ms-word

3 回答

  • 0

    除了UndoClear，您还可以在每个循环中保存文档 .

    但是，它可能会严重影响您的宏观性能 .

    这里有一个类似的问题http://social.msdn.microsoft.com/Forums/en-US/vsto/thread/de7a88b4-914f-4895-a88a-659b732e8d87/

    希望这可以帮助 .

    回复于
  • 0

    我发现了一个讨厌，肮脏的解决方案，可以解决这个问题，但实际上是一个非常糟糕的解决方案 . 基本上，一旦我们完成了一次完整的宏运行，关闭并保存文档并立即重新打开 . 然后，这允许立即或在任何阶段重新运行宏，因为关闭文档似乎最终正确地刷新内存 . 显然，这只能在用户乐于保存作为运行宏的一部分时使用，但在我的情况下它是

    回复于
  • 0

    你的代码看起来还不错，而我的sugestions只是尝试用另一种方式做同样的想法......
    想法1：在内环中的某处插入DoEvents，以方便垃圾收集 .
    想法2：使用FOR EACH构造简化代码：

    For Each curlist in Lists
    For each curPar in curList.ListParagraphs
       With curPar.Range.ListFormat.ListTemplate
          .....
       End With
    Next curPar
Next curList
    回复于

相关问题