怎樣使用VBA批量刪除word中空行

在網上復制文本時，很多不必要的空格空行也跟著材料壹起被復制粘貼保存了下來，版面就不怎麽好看了。而且，材料多時，幾十上百頁的，要是手動刪除，那工程量可夠浩大的，有沒有什麽辦法快速批量刪除呢？很多人都會使用替換的方式來刪除空行，今天小編就帶大家學習壹下使用VBA來解決這個問題

用Word打開含空行的文章，依次單擊“工具” →“宏” →“Visual Basic編輯器”，打開Visual Basic編輯器。雙擊“Project”下的“ThisDocument”，打開“代碼”輸入窗口，將下面的代碼輸入進去，並保存。

代碼壹：

Sub DelBlank()

Dim i As Paragraph, n As Integer

Application.ScreenUpdating = False

For Each i In ActiveDocument.Paragraphs

If Len(i.Range) = 1 Then

i.Range.Delete

n = n + 1

End If

Next

MsgBox "***刪除空白段落" & n & "個"

Application.ScreenUpdating = True

End Sub

代碼輸入完畢，單擊“工具欄”中的“運行”按鈕，執行這段代碼。這時，會彈出壹個消息窗口，告訴妳壹***刪除了多少空行。

代碼二：

Sub 宏1()

Selection.WholeStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(^13){1,}"

.Replacement.Text = "^13"

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub