瀏覽量:64次
通過(guò)如下的宏代碼,您就可以在WORD中刪除空白的段落。
Sub DelBlank()
Dim i As Paragraph, n As Long
Application.ScreenUpdating = False ’關(guān)閉屏幕刷新
For Each i In ActiveDocument.Paragraphs ’在活動(dòng)文檔的段落集合中循環(huán)
If Len(i.Range) = 1 Then ’判斷段落長(zhǎng)段,此處可根據(jù)文檔實(shí)際情況
i.Range.Delete ’進(jìn)行必要的修改可將任意長(zhǎng)度段落刪除
n = n + 1 ’計(jì)數(shù)
End If
Next
MsgBox "共刪除空白段落" & n & "個(gè)!"
Application.ScreenUpdating = True ’恢復(fù)屏幕刷新
End Sub
代碼簡(jiǎn)單,功能強(qiáng)大,希望對(duì)您有所幫助。
[聲明]本網(wǎng)轉(zhuǎn)載網(wǎng)絡(luò)媒體稿件是為了傳播更多的信息,此類稿件不代表本網(wǎng)觀點(diǎn),本網(wǎng)不承擔(dān)此類稿件侵權(quán)行為的連帶責(zé)任。故此,如果您發(fā)現(xiàn)本網(wǎng)站的內(nèi)容侵犯了您的版權(quán),請(qǐng)您的相關(guān)內(nèi)容發(fā)至此郵箱【779898168@qq.com】,我們?cè)诖_認(rèn)后,會(huì)立即刪除,保證您的版權(quán)。
官網(wǎng)優(yōu)化
整站優(yōu)化
渠道代理
400-655-5776