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

?

總結

以上是生活随笔為你收集整理的Word宏：一键删除空格空行、无格式粘贴的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。