VBA - Word - 遍历段落会随着时间的推移而减慢

Question

我的以下代码部分随着时间的推移会减慢执行速度。我的 Word 文档有 200 多页和大约 12000 段。在第 3000 段左右，可以说执行速度比开始时慢几倍。

有什么方法可以让速度保持在同一水平？也许对于大文档来说，遍历段落根本就没有办法？

Dim worddoc As Word.Document
Dim ParaCount as long, J as long, x as long
Dim RowData as string

With worddoc
    ParaCount = .Paragraphs.Count
    For J = 1 To ParaCount    
        RowData = .Paragraphs(J).Range.Text       
        x = x + 1
        If x Mod 10 = 0 Then Application.StatusBar = x
    Next ParaCount
End With

Answer 1

这样的事情应该可以工作。我相信你已经让它工作了，但这里提到了For Each 方法。

Public Sub Iterate_Paragraphs()
    Dim Paragraph As Word.Paragraph

    For Each Paragraph In ActiveDocument.Paragraphs
        Debug.Print Paragraph.Range.Text
    Next
End Sub