vbw macros regarding searching and replacing a text and a word

See more:

VBA

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