求助将多个word文档删除空白行变成一页，谢谢

wangweihebtu

也不知道学籍系统咋设置的，下载下来的学生学籍卡片都是在表格前有空行表格后有空行，明明一张信息，结果出来就是三张，这里高手多，求教如何批处理一下都变成一页，谢谢

taller

gwjkkkkk

Option Explicit
Sub test()
    Dim Par As Paragraph
   
    Application.ScreenUpdating = False
    With ActiveDocument
        For Each Par In .Paragraphs
            Par.Range.Select
            With Selection
                If .Information(wdWithInTable) = False And Len(.Range.Text) = 1 Then
                    Par.Range.Delete
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub