九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

大家好，我們今日繼續(xù)講解VBA代碼解決方案的第143講內(nèi)容：利用VBA在Word中刪除空白的段落。我們在實際利用VBA的時候，如EXCEL中經(jīng)常的操作就是刪除空白行，那么在Word中可否能實現(xiàn)這個功能呢？答案當(dāng)然是肯定的，在這類問題上，VBA真的可以發(fā)揮到極致。今日我們就講解這個知識點。

看看代碼：

Sub mynzdetp()

Dim myParagraph As Paragraph, n As Integer

Application.ScreenUpdating = False

n = 1

For Each myParagraph In ActiveDocument.Paragraphs

If Len(Trim(myParagraph.Range)) = 1 Then

myParagraph.Range.Delete

n = n + 1

End If

Next

MsgBox '本次共刪除空白段落' & n - 1 & '個'

Application.ScreenUpdating = True

End Sub

代碼截圖：

代碼的講解：

①Dim myParagraph As Paragraph, n As Integer 定義段落和刪除數(shù)量的自變量

②Application.ScreenUpdating = False 關(guān)閉屏幕刷新

③然后將用一個FOR EACH 循環(huán)來遍歷每個段落

④當(dāng)Len(Trim(myParagraph.Range)) = 1時那么將刪除這個段落，大家是否理解這句的含義呢？一會兒我們做做測試。

⑤myParagraph.Range.Delete 如果Len(Trim(myParagraph.Range)) = 1成立那么將刪除這段

n = n + 1 段落的標(biāo)識增加1

我們先看看代碼的運行：

運行前：

運行后：

我們在原頁面中按下shift+ctrl+8 看看頁面的樣子：

相信你看了上面的截圖一定明白了Len(Trim(myParagraph.Range)) = 1的意義了吧。

今日內(nèi)容回向：

1 利用VBA代碼如何刪除空的段落？

2 空的段落的意義是什么