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

I'm not sure on what exactly you are expecting so all we can do is simplify what your code is already doing to make it more straightforward. This won't work any differently to what you already had.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Thank you for the response. I would like the program to be completed just in few lines.
if we can arrange the text to be replaced in one line and replacing text in another line, it shall be fine.
Ex.
text to be replaced (chaW(257), chaW(275),...)
replacement text ( A, E,...)

How about reading, for example: https://www.msofficeforums.com/word-...html#post46365

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Which sounds like a study task...

So how about you do some research on VBA arrays and looping through arrays. Post back with some evidence that you've made an attempt at solving this yourself and we can help you refine it.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Thank you all, for your proactive suggestions. I could solve it taking reference to your ideas.
Solved program is like this

Sub FiRe()
Application.ScreenUpdating = False
Dim Tbl As Table, FndList, RepList, i As Long
FndList = Array(ChrW(257), ChrW(275), ChrW(299), ChrW(333), ChrW(363))
RepList = Array("A", "E", "I", "O", "U")
Selection.HomeKey Unit:=wdStory
With ActiveDocument

With Selection.Find
For i = 0 To UBound(FndList)
.Text = FndList(i)
.Replacement.Text = RepList(i)
.Execute Replace:=wdReplaceAll
Next
End With
Application.ScreenUpdating = True
End With

End Sub

Thank you all once again

You can tidy up the code a bit more. Note the differences with this version.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Oh! beautiful and more simple
Thanks once again