Private Sub CommandButton1_Click()
With ActiveDocument.Content.Find
.Text = "——"
.Forward = True
.Replacement.ClearFormatting
.Replacement.Text = "—"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
.Text = " "
.Forward = True
.Replacement.ClearFormatting
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
.Text = " "
.Forward = True
.Replacement.ClearFormatting
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
.Text = " "
.Forward = True
.Replacement.ClearFormatting
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
.Text = " "
.Forward = True
.Replacement.ClearFormatting
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
.Text = " "
.Forward = True
.Replacement.ClearFormatting
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
.Text = " "
.Forward = True
.Replacement.ClearFormatting
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
End Sub