Hare Krishna Macro for Word

[Pankaja_Dasa 1]

 

I am creating this simpl[ish] Macro, but I never actually did much with them. This is to Find the word 'Sri' and replace all these with 'Çré' and find 'Krsna' and replace with 'Kåñëa'. It works ok. Just when I play it, it says Do you want to replace 3 times. How do I get rid of these messages? And just let the macro play.

 

I don't think this would take that long, but be good to know how I could do it for really familiar words.

 

Also I used mouse keys/

 

 

Sub adddiacriticmarks()

'

' adddiacriticmarks Macro

' Macro recorded 01/05/05 by Pankaja dasa

'

Selection.Copy

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Sri"

.Replacement.Text = "Çré"

.Forward = True

.Wrap = wdFindAsk

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.MoveRight Unit:=wdCharacter, Count:=3

Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend

Selection.Copy

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Krsna"

.Replacement.Text = "Kåñëa"

.Forward = True

.Wrap = wdFindAsk

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub