multiple find and replace in vba for special words

Guessed · #2 11-01-2018, 05:04 PM

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.

Code:

Sub Macro1()
  With Selection.Find
    .Wrap = wdFindContinue

    .Text = ChrW(257)
    .Replacement.Text = "A"
    .Execute Replace:=wdReplaceAll

    .Text = ChrW(275)
    .Replacement.Text = "E"
    .Execute Replace:=wdReplaceAll

    .Text = ChrW(299)
    .Replacement.Text = "I"
    .Execute Replace:=wdReplaceAll

    .Text = ChrW(333)
    .Replacement.Text = "O"
    .Execute Replace:=wdReplaceAll

    .Text = ChrW(363)
    .Replacement.Text = "U"
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Find&Replace all bold, itlaic, underlined and highlighted words/characters	Kalü	Word VBA	22	04-24-2018 05:35 AM
Find and replace mutiple spaces between lowercase words only	Dave T	Word VBA	2	07-16-2015 11:23 PM
how to replace to words with multiple formats	cdk270	Word	1	07-16-2015 01:56 AM
Highlight and then replace multiple words	redhin	Word VBA	5	03-05-2013 05:42 AM
Find & Replace: substitute red-coloured words with underscores	tinfanide	Word	2	10-06-2012 11:04 PM