使用vb删除word中的空行（包含空格）

最近朋友让帮忙解决一个批量删除word中空行的问题，在网上搜索相关内容并试验，并不能删除包含空格的空行，如下图：

自己对vb也不太熟悉，鼓捣半天，结果很简单，记录如下：

Sub 空行删除()
'
' 空行删除 宏
'
'
Dim p As Paragraph
Dim r As Range
Dim s As String
Dim l As Long
For Each p In ActiveDocument.Paragraphs
Set r = p.Range
s = CStr(r.Text)
l = Asc(s)
If (l = 13 Or l = 11) Then
r.Text = ""
ElseIf (l = 32) Then
r.Text = Trim(s)
End If
Next p
End Sub

新建一个宏，复制粘贴以上内容，运行即可