宏1【最近不太灵光了，下面的宏2可能更好用。】


原文地址：Word宏：一键删除空格空行作者：Word之家

通过复制粘贴网络资源得到的Word文档无用空格和空行很多，一一删除非常麻烦，如果创建一个具有相关功能的word宏，然后再往工具栏上添加剂一个按钮，当我们单击工具栏中的这个按钮时，通过执行word宏就可以实现一键删除word文档中的所有空格和空行了。


　　先启动word然后关闭默认打开的word文档，再单击菜单“工具－宏－visualbasic编辑器”命令，调节器出"visualbasic编辑器"，在"visualbasic编辑器"窗口中，右击"Normal",选择“插入－模块“命令，插入一个模块。


　　插入一个模块后，在"visualbasic编辑器"右边自动打开的窗口中输入以下代码（代码如下：

Sub KongGe()

Dim i As Paragraph, n As Long

Application.ScreenUpdating = False

For Each i In ActiveDocument.Paragraphs

If Len(i.Range) = 1 Then

i.Range.Delete

n = n + 1

End If

Next

Application.ScreenUpdating = True

Options.AutoFormatAsYouTypeDeleteAutoSpaces = True

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

    .Text = " "

    .Replacement.Text = ""

    .Wrap = wdFindContinue

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

代码输入完毕后，退出"visualbasic编辑器",这时刚刚输入的代码不被自动保存了。

 


宏2：


来源：https://gist.github.com/bitdust/12e3e251f014897fbb9bf3ab4fc7fd8f

 

Sub 删除换行及空格()

'

' 删除换行及空格 宏

' 用于调整从PDF文件中复制出的文字格式

'

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

    .Text = " "

    .Replacement.Text = ""

    .Forward = True

    .Wrap = wdFindStop

    .Format = False

    .MatchCase = False

    .MatchWholeWord = False

    .MatchByte = True

    .MatchWildcards = False

    .MatchSoundsLike = False

    .MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.Replacement.ClearFormatting

With Selection.Find

    .Text = "^p"

    .Replacement.Text = ""

    .Forward = True

    .Wrap = wdFindStop

    .Format = False

    .MatchCase = False

    .MatchWholeWord = False

    .MatchByte = True

    .MatchWildcards = False

    .MatchSoundsLike = False

    .MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Microsoft Word 2010 - 删除空行

1. 删除空行

1.1 替换 





1.2 段落标记

特殊格式 -> 段落标记



 



 



 

最近朋友让帮忙解决一个批量删除word中空行的问题，在网上搜索相关内容并试验，并不能删除包含空格的空行，如下图：



自己对vb也不太熟悉，鼓捣半天，结果很简单，记录如下：

Sub 空行删除()
'
' 空行删除 宏
'
'
Dim p As Paragraph
Dim r As Range
Dim s As String
Dim l As Long
For Each p In ActiveDocument.Paragraphs
Set r = p.Range
s = CStr(r.Text)
l = Asc(s)
If (l = 13 Or l = 11) Then
r.Text = ""
ElseIf (l = 32) Then
r.Text = Trim(s)
End If
Next p
End Sub

新建一个宏，复制粘贴以上内容，运行即可

使用Word进行文字编辑的时候，偶尔会有存在多余空行，或不经意间留下的空格，影响整体文本排版及阅读的情况。或是有时从其他地方复制过来的文本，存在大量换行符的情况发生，遇到这种情况是否有能够快速去除这些空行或空格的方法？

答案是肯定的，运用Word替换功能，就能够快速做到！



一、批量删除空行

多余的空行很容易使文章整体变得空旷，致使文档总体篇幅过长，而一般情况下大多数人面对这些空行，基本方法都是单个删除，效率极低。

方法：按【Ctrl+H】快捷键，打开替换对话框，点击【更多】按钮，打开【特殊格式】下拉菜单，从中选择【段落标记】。在【查找内容】点击两次【段落标记】，在【替换为】点击一次【段落标记】，系统就会自动输入空行参数，点击【全部替换】即可。

二、批量删除空格

比起空行，多余的空格更容易让整篇文章看起来七零八落，缺乏整体感，也给文章排版带来了一些难度。那么多余空格又该如何批量删除？

方法：按【Ctrl+H】快捷键，打开替换对话框，点击【更多】按钮，打开【特殊格式】下拉菜单，从中选择【空白区域】。在【查找内容】点击一次【空白区域】，最后点击【全部替换】即可。



三、批量删除换行符

复制过来的文本存在换行符，会显得格式很乱，去除换行符的方法与上两种方法相同，只是特殊格式改变。

方法：按【Ctrl+H】快捷键，打开替换对话框，点击【更多】按钮，打开【特殊格式】下拉菜单，从中选择【手动换行符】。在【查找内容】点击一次【手动换行符】，最后点击【全部替换】即可。



特殊格式中还有很多符号参数等你去使用，快来试一试吧！