$word->Selection->Find->Execute({Replace=>$const->{'wdReplaceAll'}});   #replace whole file

$word->Selection->Find->Execute({Replace=>$const->{'wdReplaceOne'}});   #replace one by one