VBA - Word - 随着时间的推移，遍历段落的速度会大大减慢

随着时间的推移，VBA在Word中遍历段落的速度会逐渐变慢。这是因为随着文档的不断编辑和修改，Word会积累大量的格式和样式信息，导致操作变得缓慢。在处理大型文档时特别明显。

vba
Sub 遍历段落并输出()
    Dim 源文档 As Document
    Dim 新文档 As Document
    Dim 段落数 As Integer
    Dim i As Integer
    
    ' 打开源文档
    Set 源文档 = Documents.Open("C:\源文档.docx")
    
    ' 创建一个新的文档
    Set 新文档 = Documents.Add
    
    ' 获取源文档中的段落数
    段落数 = 源文档.Paragraphs.Count
    
    ' 遍历每个段落
    For i = 1 To 段落数
        ' 将每个段落的文本输出到新文档中
        新文档.Content.InsertAfter 源文档.Paragraphs(i).Range.Text & vbCrLf
    Next i
    
    ' 保存并关闭新文档
    新文档.SaveAs "C:\新文档.docx"
    新文档.Close
    
    ' 关闭源文档
    源文档.Close
    
    ' 释放对象
    Set 新文档 = Nothing
    Set 源文档 = Nothing
    
    MsgBox "段落遍历完成！"
End Sub

vba
Sub 遍历段落并输出()
    Dim 源文档 As Document
    Dim 新文档 As Document
    Dim 段落数 As Integer
    Dim i As Integer
    Dim 段落文本() As String
    
    ' 打开源文档
    Set 源文档 = Documents.Open("C:\源文档.docx")
    
    ' 创建一个新的文档
    Set 新文档 = Documents.Add
    
    ' 获取源文档中的段落数
    段落数 = 源文档.Paragraphs.Count
    
    ' 将段落文本存储到数组中
    ReDim 段落文本(1 To 段落数)
    For i = 1 To 段落数
        段落文本(i) = 源文档.Paragraphs(i).Range.Text
    Next i
    
    ' 遍历数组并将文本输出到新文档中
    For i = 1 To 段落数
        新文档.Content.InsertAfter 段落文本(i) & vbCrLf
    Next i
    
    ' 保存并关闭新文档
    新文档.SaveAs "C:\新文档.docx"
    新文档.Close
    
    ' 关闭源文档
    源文档.Close
    
    ' 释放对象
    Set 新文档 = Nothing
    Set 源文档 = Nothing
    
    MsgBox "段落遍历完成！"
End Sub