来源：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

无格式粘贴：

Sub PlainPaste() Selection.PasteAndFormat (wdFormatPlainText)

End Sub