Pankaja_Dasa 1 Report post Posted May 1, 2005 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 Quote Share this post Link to post Share on other sites