Word VBA排版去除空白段落

Word VBA排版去除空白段落

Sub 删除空白段落()

For Each para In ActiveDocument.Paragraphs
     If Right(para.Range.Text, 2) <> "。" & Chr(13) Then para.Range.Characters.Last.Delete
Next

End Sub

赏 支付宝打赏 微信打赏

如果文章或资源对您有帮助，欢迎打赏作者。一路走来，感谢有您！