Word VBA排版去除空白段落

180it 2019-09-25 PM 2805℃ 0条

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

支付宝打赏支付宝打赏 微信打赏微信打赏

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

标签: none

Word VBA排版去除空白段落