按CTRL+F使用替换把^p^p替换成^p就可以了,这样一次删除一行空行,至到完全删除空行。(^p表示一个回车)还可以用宏来完成,代码如下:Sub删除空行()DimiAsParagraph,nAsIntegerApplication.ScreenUpdating=FalseForEachiInActiveDocument.ParagraphsIfLen(i.Range)=1Theni.Range.Deleten=n+1EndIfNextMsgBox成功删除空行&n&个Application.ScreenUpdating=TrueEndSub
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号