$word->Selection->Find->Execute({Replace=>wdReplaceAll});
or for Single Word $word->Selection->Find->Execute({Replace=>wdReplaceOne});