Ivaylo,

The problem is the introduction of the "." which disables the ability
to MatchWholeWord.

Here is modified version that works in your case and will work in most
others, but not perfect.  For example it won't find am. as the very
first expression in a document.

Sub Duplicates()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = "([!A-z])am. "
   .MatchWildcards = True
   .Replacement.Text = "\1amer. "
   .Forward = True
   .Wrap = wdFindContinue
   .Format = True
   .Font.Italic = True
   .MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Someone will likely be along with a better solutions.

Hi Ivanov,

without going into detail,
I think,
adding a space at the start of your search expression,
might help.

ivanov.ivaylo@gmail.com was telling us:
ivanov.ivaylo@gmail.com nous racontait que :

Normally, you could use

   .MatchWholeWord = True

in the With block. But, because you are using a ".", this option is not
available.

So, try with this instead:

   .Text = " am. " 'this is a space plus 'am.' plus a space
   .Replacement.Text = " amer. " 'this is a space plus 'amer.' plus a space

By the way, when we quote code and comments together, in VBA (or VB for that
matter) , we use the apostrophe ( ' ) to separate the comments from the
code, as I have done.