I have the following vba macro in msoffice word, where individual programs are written for each special word. How to write a combined and comprehensive program.
Sub Macro1()


'
' Macro1 Macro
'
'
Selection.HomeKey

With Selection.Find
.Text = ChrW(257)
.Replacement.Text = "A"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll

' Selection.HomeKey
With Selection.Find
.Text = ChrW(275)
.Replacement.Text = "E"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ChrW(299)
.Replacement.Text = "I"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ChrW(333)
.Replacement.Text = "O"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(363)
.Replacement.Text = "U"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub