怎样使用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

赞 (0)

相关推荐

  • 批量删除Word中图片的方法

    很多时候,我们需要将word中的图片删除掉,只留下文字,不过图片数量过多,一一删除太费时.今天的word教程就是教大家如快速批量删除图片的,如果也想知道操作的方法,那就进来学习咯,以下是详细的操作步骤 ...

  • 如何批量删除Word中的图片

    如何批量删除Word中的图片呢?下面小编来教大家. 操作方法 01 首先,我们打开一个有多张图片的word文档: 02 然后我们选中其中一张图片: 03 之后我们按键盘上的Ctrl+A键,我们可以看到 ...

  • 怎么批量删除word中的超链接？

    怎么批量删除word中的超链接？

    怎么批量地删除word中的超链接,跟着小编来看看吧.快捷键去除超链接法一.双击文档将文档打开:二.文档中有大批量的超链接:三.按下快捷键control A,全部选中文档中的文字:四.使用组合键cont ...

  • 用查找替换快速批量删除Word中的回车符号

    有时候我们从网页上复制一些文章到Word中时，往往会带有好多向下箭头的符号，这就是软回车符号（Word中软回车是同时按住shift+enter得来的）， 这些软回车占用了Word很多的空间，如果手动一 ...

  • 教你如何批量删除Word中选择题的答案

    我们在网络上下载的文档，通常都会附带答案的，但我们有时又想批量删除里面的答案，然后共享出去一起进行复习。对于这个问题小编已经心中有答案咯。 下面来看下怎样在word中批量删除答案的。如下图所示，选择题 ...

  • 怎么批量删除word中的某一相同字词？

    怎么批量删除word中的某一相同字词？

    我们在word编辑文档时,要批量地更改文档中的一个特定词语.一个一个地去找出来然后进行更改,不仅费时还费力.那么:有没有一种方法能对word中的某一字眼进行批量更改呢?一起来看看吧.方法如下:一.打开 ...

  • word怎么批量删除指定图片（如何批量删除word中的图片）

    word怎么批量删除指定图片（如何批量删除word中的图片）

    在word排版文档的过程中,有时需要批量删除.如何去快速简单图片,怎么删除大量图片呢?步骤:打开文档,选择[开始]-[替换],在弹出对话框中,点击"更多",下方会出现搜索选项和替换 ...

  • 怎样批量删除Word中回车？

    有时候我们从网页上复制一些文章到Word中时,往往会带有好多向下箭头的符号,这就是软回车符号(Word中软回车是同时按住shift+enter得来的), 这些软回车占用了Word很多的空间,那么如何才 ...

  • word:怎么批量删除word中已经定义的样式

    对于经常编写word文档的人来说,一般会有多个word模板,在使用一个已有的word模板时,可能会已经定义了多个样式,当样式非常多时,就想把多余的样式给删除掉,本文简单介绍样式删除的方法. 操作方法 ...