Sub simpleFind()
    ActiveDocument.Content.Find.Execute FindText:="tamj", ReplaceWith:="tam"
End Sub