您的位置:首页 > 编程语言 > VB

Word VBA自动排版(3)- 去除空白段落

2019-01-22 10:21 363 查看

老代码一则

Sub 删除空白段落()
For Each para In ActiveDocument.Paragraphs
If Right(para.Range.Text, 2) <> "。" & Chr(13) Then para.Range.Characters.Last.Delete
Next
End Sub
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: