todas - La colocación de una macro de Word en muchos párrafos de lista causa problemas de memoria

habilitar macros en excel 2016

Question

Estoy abordando el problema con una macro vba razonablemente sencilla para Microsoft Word que está diseñada para solucionar algunos problemas que estamos viendo con sangría de lista cuando creamos versiones de PDF desde el documento de Word.

La macro básicamente recorre cada lista en el documento, y para cada párrafo de lista asociado con la lista, establece la viñeta y la posición de texto de la plantilla de lista para que coincida con lo que se aplica en el nivel de párrafo (el código debe usarse con Word 2000 para que no usando estilos de lista).

Cuando se trata de documentos grandes (más de 60 listas, ~ 350 párrafos de lista), la macro se ejecuta bien por primera vez, pero la segunda vez muere a mitad de camino con un "Este método o propiedad no está disponible porque hay un problema de memoria o disco" .

He seguido la ruta habitual de desarmar cualquier referencia de objeto utilizada durante el ciclo, por lo que no puedo ver qué podría estar reteniendo la memoria.

El código es bastante simple y consiste en un único procedimiento, actualmente almacenado en 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

Answer 1

Además de UndoClear, también puede guardar el documento en cada ciclo.

Sin embargo, podría tener un gran impacto en su rendimiento macro.

Hay un problema similar aquí http://social.msdn.microsoft.com/Forums/en-US/vsto/thread/de7a88b4-914f-4895-a88a-659b732e8d87/

Espero que esto ayude.

Answer 2

Tu código se ve bien y mis sugerencias serán solo ideas para intentar hacer lo mismo de otra manera ...
Idea 1: inserte un DoEvents en algún lugar en el bucle interno, para facilitar la recolección de basura.
Idea 2: simplifique su código utilizando FOR EACH constructs:

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

Answer 3

He encontrado una solución desagradable y sucia que soluciona un poco el problema, pero que realmente es una solución muy pobre. Básicamente, una vez que hayamos completado una ejecución completa de la macro, cierre y guarde el documento y vuelva a abrirlo de inmediato. Esto permite que la macro vuelva a ejecutarse inmediatamente o en cualquier etapa porque parece que al cerrar el documento se vaciará la memoria. Obviamente, esto solo se puede usar si el usuario está feliz de guardar como parte de ejecutar la macro, pero en mi caso es