Custom toolbar button for search and replace

[883robert]

Hi. I often create Word documents for printing by pasting content from websites. The clipboard content usually contains many pairs of successive paragraph marks. To save paper I search and replace each instance of two paragraph marks with just one paragraph mark. I normally do this several times as there can be instances of five or six consecutive paragraph marks.
Can I make a button for the toolbar to do this for me? I'm using Word 2013.
Thanks for reading. Robert, Australia

 

[gmaxey]

You can save this VBA procedure to your Normal project and assign a QAT Button, Ribbon Button or keyboard shortcut to it:

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = Chr(13) & "{2,}"
.MatchWildcards = True
.Replacement.Text = Chr(13)
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Exit Sub
End Sub