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

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

代碼一：

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 & "個(gè)"

Application.ScreenUpdating = True

End Sub

代碼輸入完畢，單擊“工具欄”中的“運(yùn)行”按鈕，執(zhí)行這段代碼。這時(shí)，會(huì)彈出一個(gè)消息窗口，告訴你一共刪除了多少空行。

代碼二：

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