使用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

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

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2020 CSDN 皮肤主题: 游动-白 设计师:白松林 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值