Word刪除空白段落的宏代碼介紹
發(fā)布時間：2013-04-03 17:08:03 作者：佚名 
我要評論
我要評論通過如下的宏代碼，您就可以在WORD中刪除空白的段落。
通過如下的宏代碼，您就可以在WORD中刪除空白的段落。
Sub DelBlank()
Dim i As Paragraph， n As Long
Application.ScreenUpdating = False ’關閉屏幕刷新
For Each i In ActiveDocument.Paragraphs ’在活動文檔的段落集合中循環(huán)
If Len(i.Range) = 1 Then ’判斷段落長段，此處可根據(jù)文檔實際情況
i.Range.Delete ’進行必要的修改可將任意長度段落刪除
n = n + 1 ’計數(shù)
End If
Next
MsgBox "共刪除空白段落" & n & "個!"
Application.ScreenUpdating = True ’恢復屏幕刷新
End Sub
代碼簡單，功能強大，希望對您有所幫助。
相關文章
在編輯Word文檔時，有時我們只需要導出其中的部分頁面，而不是整個文檔，下面將介紹如何在Word中導出部分頁面2025-04-14問卷星怎么轉換成word文檔? 問卷星問卷調(diào)查導出成word的技巧
在日常工作中，我們經(jīng)常需要將問卷星上的問卷內(nèi)容導出為Word格式，以便整理和分析數(shù)據(jù)，以下是三種簡單的操作方法2025-04-14word文檔一整頁怎么截屏? word文檔截圖截一張全的圖片技巧
在Word文檔中想將一整頁截屏下來，可以通過使用鍵盤中的Print Screen鍵和Word自帶的截屏功能等多種方法截圖，詳細如下2025-04-14word開發(fā)工具怎么調(diào)出來? word工具欄添加開發(fā)工具的教程
許多用戶在使用Word時，可能會發(fā)現(xiàn)菜單欄中缺少了“開發(fā)者工具”這一重要選項，這無疑限制了Word的某些高級功能應用，詳細請看下文介紹2025-04-14Word文本框中的數(shù)字和英文字母如何進行豎排? word文檔排版技巧
用Word進行排版成為我們辦公中的主要方式，偶爾我們也可能會讓文字豎著排版，讓文字豎著排版我們都知道怎么操作，但是如何讓英文字母和數(shù)字也縱向顯示呢？詳細請看下文介紹2025-03-25word文本框怎么對齊? word多個文本框快速批量對齊的技巧
word中有很多文本框，排列很亂，想要將所有文本框對齊，該怎么操作呢？下面我們就來看看詳細的教程2025-03-21word分欄后如何設置頁碼? Word同一頁分欄后的文本分別設置頁碼技巧
在使用Word進行文檔排版時，經(jīng)常需要將文檔分欄，并且希望每欄都有不同的頁碼,這種效果在Word默認的頁碼樣式中并不存在，需要通過手動插入域來實現(xiàn)，以下是詳細步驟2025-03-13word多級列表怎么修改編號? Word多級列表各級編號格式批量修改技巧
編輯Word長文檔時，為了讓文本之間具有層次性，編號的使用必不可少，那么，對于編號，你會使用了嗎？詳細如下2025-03-13Word頁面版式設置:Word創(chuàng)建多級列表常見問題解決辦法
你是否在設置多級列表時遇到了編號問題？今天來分享創(chuàng)建多級列表的常見問題，別擔心，這里為你提供全面的解決方案2025-03-13word文檔怎么鎖定排版? 輕松鎖定你的精心布局防止排版錯亂
在 Word 文檔中鎖定排版，防止他人隨意更改格式，可嘗試以下兩種方法，輕松鎖定你的精心布局，詳細如下文所屬2025-03-11
